From: khoff <khoff>
Date: Thu, 31 Mar 2005 03:47:28 +0000 (+0000)
Subject: Committing the inserts helps.
X-Git-Tag: SQL_LEDGER_2_4_4~1^2~383
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=4a2291d95440dcdfbe53976c6095742690ef5963;p=freeside.git

Committing the inserts helps.
---

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