diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-07-10 21:54:36 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-07-10 21:54:36 +0000 |
| commit | c61e43ab6bdd595be5b68a36bcc3a1d52b502dde (patch) | |
| tree | 9a9c9e7113b59b517bc006b322b635c5b7f861bb /LedgerSMB/AA.pm | |
| parent | 76764f45c77fcda19f69ab4b99d248bf6319d3c9 (diff) | |
Fixing partial commit due to update_defaults in legacy code
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1377 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/AA.pm')
| -rw-r--r-- | LedgerSMB/AA.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/LedgerSMB/AA.pm b/LedgerSMB/AA.pm index 5a523cd0..c29652b0 100644 --- a/LedgerSMB/AA.pm +++ b/LedgerSMB/AA.pm @@ -42,6 +42,8 @@ sub post_transaction { # connect to database my $dbh = $form->{dbh}; + $form->{invnumber} = $form->update_defaults( $myconfig, $invnumber ) + unless $form->{invnumber}; my $query; my $sth; @@ -286,8 +288,6 @@ sub post_transaction { $form->{datepaid} = $form->{transdate} unless $form->{datepaid}; my $datepaid = ($paid) ? qq|'$form->{datepaid}'| : 'NOW'; - $form->{invnumber} = $form->update_defaults( $myconfig, $invnumber ) - unless $form->{invnumber}; $query = qq| UPDATE $table |