X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=blobdiff_plain;f=yarrg%2Fcommod-email-processor;h=e65b2b6a91fcfe2237f6d8c123e0891a0ec5cebd;hp=1cff462cda1c67d451ee8064b9ac952e8e096cae;hb=HEAD;hpb=38888dbd9221f97b1886ee545d0113c88432556a

diff --git a/yarrg/commod-email-processor b/yarrg/commod-email-processor
index 1cff462..ff0880e 100755
--- a/yarrg/commod-email-processor
+++ b/yarrg/commod-email-processor
@@ -34,6 +34,8 @@ BEGIN {
     my $selfdir= $0;
     $selfdir =~ s,/+[^/]*$,,;
     chdir("$selfdir") or die "$selfdir $!";
+
+    unshift @INC, qw(.);
 }
 
 use Commods;
@@ -195,8 +197,9 @@ sub main () {
     pipethrough_run_finish($pt, 'gunzip <$deduped_tsv.gz');
 
 #    print "\n";
-    $dbh->commit();
+    db_chkcommit(0);
 
+    # Warning!  Below runes are bogus.  Do not use NATURAL JOIN!
     # select * from ((buy natural join commods) natural join stalls) natural join islands;
     # select * from ((sell natural join commods) natural join stalls) natural join islands;