my $data = upgrade_data(%opt);
- my $oldAutoCommit = $FS::UID::AutoCommit;
- local $FS::UID::AutoCommit = 0;
- local $FS::UID::AutoCommit = 0;
-
foreach my $table ( keys %$data ) {
my $class = "FS::$table";
my $start = time;
+ my $oldAutoCommit = $FS::UID::AutoCommit;
+ local $FS::UID::AutoCommit = 0;
+ $FS::UID::AutoCommit = 0;
+
$class->_upgrade_data(%opt);
if ( $oldAutoCommit ) {
- warn " committing";
dbh->commit or die dbh->errstr;
}