From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 2 Nov 2009 15:57:32 +0000 (+0000)
Subject: Do referential integrity check on every incoming update
X-Git-Tag: 6.0~18
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=commitdiff_plain;h=cba205110eac9bebe7b8e55f4a28c5a7b7b029ec;ds=sidebyside

Do referential integrity check on every incoming update
---

diff --git a/yarrg/commod-email-processor b/yarrg/commod-email-processor
index 1cff462..8acf4c1 100755
--- 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();
 
     # select * from ((buy natural join commods) natural join stalls) natural join islands;
     # select * from ((sell natural join commods) natural join stalls) natural join islands;