diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-05-25 18:27:28 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-05-25 18:27:28 +0000 |
commit | dd779e7ff888ad90d0cefff239b5e77fc80d991e (patch) | |
tree | 4cea8b5691ba1bccbdbe092f1cec15527b42cefa /LedgerSMB/AA.pm | |
parent | 6bff0e985bd6e56bf31184df4d5ca460d5545f34 (diff) |
Fixes to per-transaction separation of duties
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2155 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/AA.pm')
-rw-r--r-- | LedgerSMB/AA.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/LedgerSMB/AA.pm b/LedgerSMB/AA.pm index ce8679a7..4663971b 100644 --- a/LedgerSMB/AA.pm +++ b/LedgerSMB/AA.pm @@ -61,6 +61,9 @@ Post transaction uses the following variables in the $form variable: sub post_transaction { my ( $self, $myconfig, $form ) = @_; + if ($form->{separate_duties}){ + $form->{approved} = '0'; + } for (1 .. $form->{rowcount}){ $form->{"amount_$_"} = $form->parse_amount( $myconfig, $form->{"amount_$_"} |