diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-11-13 01:15:47 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-11-13 01:15:47 +0000 |
commit | 1aaa9fe478fc2e9ea0fa744edb704ccacf46d07b (patch) | |
tree | 948069945fd10e396cb2c3876269fba31add977d /LedgerSMB/AA.pm | |
parent | f7ae08a1336c4667e2fb4028d034a52fda7f492b (diff) |
Correcting issues with draft editing.
Moving AA::post_transaction to use strict.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2392 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/AA.pm')
-rw-r--r-- | LedgerSMB/AA.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/LedgerSMB/AA.pm b/LedgerSMB/AA.pm index 9d922bb0..295b89a6 100644 --- a/LedgerSMB/AA.pm +++ b/LedgerSMB/AA.pm @@ -59,8 +59,15 @@ Post transaction uses the following variables in the $form variable: =cut sub post_transaction { + use strict; my ( $self, $myconfig, $form ) = @_; + + my $exchangerate; + my $batch_class; + my %paid; + my $paidamount; + my @queries; if ($form->{separate_duties}){ $form->{approved} = '0'; } @@ -404,7 +411,6 @@ sub post_transaction { # add individual transactions foreach $ref ( @{ $form->{acc_trans}{lineitems} } ) { - # insert detail records in acc_trans if ( $ref->{amount} ) { $query = qq| |