diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-07-17 16:45:00 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-07-17 16:45:00 +0000 |
| commit | 2e86f2c33e5954c6b1e50c7687bc74c6766b5d0f (patch) | |
| tree | 4834285f0cf0939d8a54d7c5a67e9584bbd2b954 /LedgerSMB | |
| parent | 478075a6c2d3e8d12d1b40189f0929ba40d70269 (diff) | |
Fixed: scoping issues in IS.pm (bug 1754576
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1420 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
| -rw-r--r-- | LedgerSMB/IS.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm index 9682afd5..0a7d6486 100644 --- a/LedgerSMB/IS.pm +++ b/LedgerSMB/IS.pm @@ -1090,7 +1090,7 @@ sub post_invoice { (trans_id, chart_id, amount, transdate, project_id) VALUES (?, ?, ?, ?, ?)|; - $sth = $dbh->prepare($query); + my $sth = $dbh->prepare($query); $sth->execute( $form->{id}, $form->{"expense_accno_id_$i"}, @@ -1554,7 +1554,7 @@ sub process_assembly { assemblyitem, unit) VALUES (?, ?, ?, ?, 0, 0, ?, 't', ?)|; - $sth = $dbh->prepare($query); + my $sth = $dbh->prepare($query); $sth->execute( $form->{id}, $ref->{description}, $ref->{parts_id}, $ref->{qty}, $allocated, $ref->{unit} ) || $form->dberror($query); |