DROP TABLE aside_$table;
END
- $dbh->commit;
}
table('commods', <<END);
END
;
-$dbh->commit;
+db_chkcommit();
#---------- commodity list ----------
if (defined $c->{Ordval} and defined $cl) {
$incl{$cl}++;
$setinclass->execute($incl{$cl}, $commod);
+ } elsif (defined $cl) {
+ $incl{$cl} += 0;
}
}
db_doall(<<END);
foreach my $cl (sort keys %incl) {
$addclass->execute($cl, $incl{$cl});
}
- $dbh->commit;
+ db_chkcommit();
}
#---------- vessel types ----------
my @qa= ($name, $shotdamage, map { $v->{$_} } qw(Mass Volume));
$idempotent->execute(@qa);
}
- $dbh->commit;
+ db_chkcommit();
}