diff options
author | khoff <khoff> | 2005-03-31 03:47:28 +0000 |
---|---|---|
committer | khoff <khoff> | 2005-03-31 03:47:28 +0000 |
commit | 4a2291d95440dcdfbe53976c6095742690ef5963 (patch) | |
tree | 02d932df4ba7810dfdca5451584678d68212c509 /bin/add-history-records.pl | |
parent | 4c1c6a0dcce4f2082faf33ae8c56c4858af1bb45 (diff) |
Committing the inserts helps.
Diffstat (limited to 'bin/add-history-records.pl')
-rwxr-xr-x | bin/add-history-records.pl | 3 |
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++; } |