diff options
| -rw-r--r-- | CONTRIBUTORS | 2 | ||||
| -rwxr-xr-x | LedgerSMB/OP.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/CONTRIBUTORS b/CONTRIBUTORS index 95a8bf6f..497cf833 100644 --- a/CONTRIBUTORS +++ b/CONTRIBUTORS @@ -65,7 +65,7 @@ some performance fixes and has contributed a great deal of work to our web site. Donna Robinson [email omitted] contributed some fixes to the HTML code. -Victor Sterpu <victor @ ambra.ro> has contributed some bug fixes to COGS +Victor Sterpu <victor @ ambra.ro> has contributed several bug fixes to COGS handling. Original Authors of SQL-Ledger: diff --git a/LedgerSMB/OP.pm b/LedgerSMB/OP.pm index f5592086..525717ff 100755 --- a/LedgerSMB/OP.pm +++ b/LedgerSMB/OP.pm @@ -36,6 +36,7 @@ package OP; sub overpayment { my ( $self, $myconfig, $form, $dbh, $amount, $ml ) = @_; + my $invnumber = $form->{invnumber}; $invnumber = $form->update_defaults( $myconfig, ( $form->{arap} eq 'ar' ) @@ -62,7 +63,6 @@ sub overpayment { $query = qq|SELECT id FROM $form->{arap} WHERE invnumber = '$uid'|; ($uid) = $dbh->selectrow_array($query); - my $invnumber = $form->{invnumber}; $query = qq| UPDATE $form->{arap} |