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/OP.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/OP.pm')
-rw-r--r-- | LedgerSMB/OP.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/LedgerSMB/OP.pm b/LedgerSMB/OP.pm index 962011de..4b8d9121 100644 --- a/LedgerSMB/OP.pm +++ b/LedgerSMB/OP.pm @@ -37,6 +37,12 @@ package OP; sub overpayment { my ( $self, $myconfig, $form, $dbh, $amount, $ml ) = @_; + my $invnumber = $form->{invnumber}; + $invnumber = + $form->update_defaults( $myconfig, ( $form->{arap} eq 'ar' ) + ? "sinumber" + : "vinumber", $dbh ) + unless $invnumber; my $fxamount = $form->round_amount( $amount * $form->{exchangerate}, 2 ); my ($paymentaccno) = split /--/, $form->{account}; @@ -57,12 +63,6 @@ sub overpayment { $query = qq|SELECT id FROM $form->{arap} WHERE invnumber = '$uid'|; ($uid) = $dbh->selectrow_array($query); - my $invnumber = $form->{invnumber}; - $invnumber = - $form->update_defaults( $myconfig, ( $form->{arap} eq 'ar' ) - ? "sinumber" - : "vinumber", $dbh ) - unless $invnumber; $query = qq| UPDATE $form->{arap} |