freeside/bin add-history-records.pl,1.2,1.3

[Kristian Hoffmann]

Update of /home/cvs/cvsroot/freeside/bin
In directory pouncequick:/tmp/cvs-serv9889

Modified Files:
	add-history-records.pl 
Log Message:
Committing the inserts helps.


Index: add-history-records.pl
===================================================================
RCS file: /home/cvs/cvsroot/freeside/bin/add-history-records.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- add-history-records.pl	31 Mar 2005 00:53:45 -0000	1.2
+++ add-history-records.pl	31 Mar 2005 03:47:28 -0000	1.3
@@ -40,9 +40,10 @@
 
     unless ($h_rec) {
       my $h_insert_rec = $rec->_h_statement('insert', 1);
-      #print $h_insert_rec . "\n";
+      print $h_insert_rec . "\n";
       $dbh->do($h_insert_rec);
       die $dbh->errstr if $dbh->err;
+      $dbh->commit or die $dbh->errstr;
       $cnt++;
     }