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

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;
   
 }