summaryrefslogtreecommitdiff
path: root/bin/add-history-records.pl
diff options
context:
space:
mode:
Diffstat (limited to 'bin/add-history-records.pl')
-rwxr-xr-xbin/add-history-records.pl3
1 files changed, 2 insertions, 1 deletions
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++;
}