SF.net SVN: ledger-smb: [1066] branches/1.2/LedgerSMB

[..hidden..]

Revision: 1066
          http://svn.sourceforge.net/ledger-smb/?rev=1066&view=rev
Author:   einhverfr
Date:     2007-04-12 00:09:46 -0700 (Thu, 12 Apr 2007)

Log Message:
-----------
Fixing partial commit bugs in IS.pm and IR.pm

Modified Paths:
--------------
    branches/1.2/LedgerSMB/IR.pm
    branches/1.2/LedgerSMB/IS.pm

Modified: branches/1.2/LedgerSMB/IR.pm
===================================================================
--- branches/1.2/LedgerSMB/IR.pm	2007-04-12 01:40:29 UTC (rev 1065)
+++ branches/1.2/LedgerSMB/IR.pm	2007-04-12 07:09:46 UTC (rev 1066)
@@ -743,7 +743,6 @@
  
 	$form->audittrail($dbh, "", \%audittrail);
  
-	my $rc = $dbh->commit;
 
 	foreach $item (keys %updparts) {
 		$item = $dbh->quote($item);
@@ -753,8 +752,8 @@
 			       lastcost = lastcost($item)
 			 WHERE id = $item|;
 		$dbh->prepare($query) || $form->dberror($query);
-		$dbh->commit;
 	}
+	my $rc = $dbh->commit;
   
 	$rc;
   
@@ -1281,7 +1280,6 @@
 	}
   
 	$sth->finish;
-	$dbh->commit;
   
 }
 
@@ -1360,7 +1358,6 @@
 	}
 
 	$sth->finish;
-	$dbh->commit;
 
 }
 

Modified: branches/1.2/LedgerSMB/IS.pm
===================================================================
--- branches/1.2/LedgerSMB/IS.pm	2007-04-12 01:40:29 UTC (rev 1065)
+++ branches/1.2/LedgerSMB/IS.pm	2007-04-12 07:09:46 UTC (rev 1066)
@@ -791,7 +791,6 @@
 	for (keys %$ref) { $form->{$_} = $ref->{$_} }
 
 	$sth->finish;
-	$dbh->commit;
 
 }
 
@@ -1560,7 +1559,6 @@
 	$sth->finish;
 
 	$allocated;
-	$dbh->commit;
 }
 
 
@@ -1707,7 +1705,6 @@
 		}
 	}
   
-	$dbh->commit;
   
 	$rc;
   
@@ -1977,7 +1974,6 @@
 	}
   
 	$sth->finish;
-	$dbh->commit;
   
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.