diff options
| -rwxr-xr-x | LedgerSMB/IR.pm | 5 | ||||
| -rwxr-xr-x | LedgerSMB/IS.pm | 4 |
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; } |