X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=bin%2Fadd-history-records.pl;h=722de47f135b8940baacfbd1f706408d59c847a5;hp=18c473d4628a5b36de714dfeacb2a6e8d7d8d29c;hb=4a2291d95440dcdfbe53976c6095742690ef5963;hpb=4c1c6a0dcce4f2082faf33ae8c56c4858af1bb45

diff --git a/bin/add-history-records.pl b/bin/add-history-records.pl
index 18c473d46..722de47f1 100755
--- a/bin/add-history-records.pl
+++ b/bin/add-history-records.pl
@@ -40,9 +40,10 @@ foreach my $table (@tables) {
 
     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++;
     }