diff options
| -rwxr-xr-x | LedgerSMB/IR.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/LedgerSMB/IR.pm b/LedgerSMB/IR.pm index 5cff5019..93b627e2 100755 --- a/LedgerSMB/IR.pm +++ b/LedgerSMB/IR.pm @@ -839,7 +839,7 @@ sub reverse_invoice { transdate, project_id) VALUES (?, ?, ?, ?, ?)|; - $sth = $dbh->prepare($query); + my $sth = $dbh->prepare($query); $sth->execute( $pthref->{trans_id}, $ref->{expense_accno_id}, $amount, $form->{transdate}, $ref->{project_id} ) |