summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xLedgerSMB/IR.pm5
-rwxr-xr-xLedgerSMB/IS.pm4
2 files changed, 1 insertions, 8 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;
}
diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm
index a04a6dcf..9c117eb9 100755
--- a/LedgerSMB/IS.pm
+++ b/LedgerSMB/IS.pm
@@ -791,7 +791,6 @@ sub customer_details {
for (keys %$ref) { $form->{$_} = $ref->{$_} }
$sth->finish;
- $dbh->commit;
}
@@ -1560,7 +1559,6 @@ sub cogs {
$sth->finish;
$allocated;
- $dbh->commit;
}
@@ -1707,7 +1705,6 @@ sub delete_invoice {
}
}
- $dbh->commit;
$rc;
@@ -1977,7 +1974,6 @@ sub retrieve_item {
}
$sth->finish;
- $dbh->commit;
}