diff options
Diffstat (limited to 'LedgerSMB/IR.pm')
| -rwxr-xr-x | LedgerSMB/IR.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/LedgerSMB/IR.pm b/LedgerSMB/IR.pm index 2f799975..7dd38c3e 100755 --- a/LedgerSMB/IR.pm +++ b/LedgerSMB/IR.pm @@ -333,7 +333,7 @@ sub post_invoice { WHERE i.parts_id = ? AND (i.qty + i.allocated) > 0 ORDER BY transdate|; - $sth = $dbh->prepare($query); + my $sth = $dbh->prepare($query); $sth->execute( $form->{"id_$i"} ) || $form->dberror($query); @@ -363,7 +363,7 @@ sub post_invoice { VALUES (?, ?, ?, ?, ?, ?)|; - $sth = $dbh->prepare($query); + my $sth = $dbh->prepare($query); $sth->execute( $ref->{trans_id}, $ref->{inventory_accno_id}, $linetotal, $ref->{transdate}, @@ -385,7 +385,7 @@ sub post_invoice { $sth->execute( $ref->{trans_id}, $ref->{expense_accno_id}, $linetotal * -1, $ref->{transdate}, - $ref->{project_id}, $invoice_id + $:ref->{project_id}, $invoice_id ) || $form->dberror($query); } |