diff options
Diffstat (limited to 'LedgerSMB')
| -rwxr-xr-x | LedgerSMB/OP.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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} |