where-vessels: icons for lock state too

[ypp-sc-tools.main.git] / yarrg / commod-email-processor

diff --git a/yarrg/commod-email-processor b/yarrg/commod-email-processor
index 1cff462cda1c67d451ee8064b9ac952e8e096cae..a75864a57e2ff4f0d3d48514697f78d900a14d24 100755 (executable)
--- a/yarrg/commod-email-processor
+++ b/yarrg/commod-email-processor
@@ -195,7 +195,7 @@ sub main () {
     pipethrough_run_finish($pt, 'gunzip <$deduped_tsv.gz');
 
 #    print "\n";
-    $dbh->commit();
+    db_chkcommit(0);
 
     # select * from ((buy natural join commods) natural join stalls) natural join islands;
     # select * from ((sell natural join commods) natural join stalls) natural join islands;