summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-04-12 07:09:46 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-04-12 07:09:46 +0000
commita010013d6c7e9028221832a9a1531239099c0186 (patch)
tree08f533001b17e8f60bf312e303bcf138d139bcbb /LedgerSMB
parentca3958a65ca2b174ea2b0039aea0a77f6d88d978 (diff)
Fixing partial commit bugs in IS.pm and IR.pm
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1066 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-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;
}