summaryrefslogtreecommitdiff
path: root/LedgerSMB/IR.pm
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB/IR.pm')
-rwxr-xr-xLedgerSMB/IR.pm5
1 files changed, 1 insertions, 4 deletions
diff --git a/LedgerSMB/IR.pm b/LedgerSMB/IR.pm
index 6effad33..d648ed5b 100755
--- a/LedgerSMB/IR.pm
+++ b/LedgerSMB/IR.pm
@@ -743,7 +743,6 @@ sub post_invoice {
$form->audittrail($dbh, "", \%audittrail);
- my $rc = $dbh->commit;
foreach $item (keys %updparts) {
$item = $dbh->quote($item);
@@ -753,8 +752,8 @@ sub post_invoice {
lastcost = lastcost($item)
WHERE id = $item|;
$dbh->prepare($query) || $form->dberror($query);
- $dbh->commit;
}
+ my $rc = $dbh->commit;
$rc;
@@ -1281,7 +1280,6 @@ sub retrieve_item {
}
$sth->finish;
- $dbh->commit;
}
@@ -1360,7 +1358,6 @@ sub vendor_details {
}
$sth->finish;
- $dbh->commit;
}