use Commods;
use CommodsDatabase;
-setlocale(LC_CTYPE, "en_GB.UTF-8");
+set_ctype_utf8();
my $parser= new MIME::Parser;
our $entity;
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;