X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=blobdiff_plain;f=yarrg%2Fcommod-email-processor;h=1cff462cda1c67d451ee8064b9ac952e8e096cae;hp=79db83d4e97d8b063cebf21496a58b65ea36e41c;hb=2cf70baa979e0c460e4e46a9c1a53677b09a1972;hpb=01c14767c024ac56686dbbfcd88d9f3a0b4b1574

diff --git a/yarrg/commod-email-processor b/yarrg/commod-email-processor
index 79db83d..1cff462 100755
--- a/yarrg/commod-email-processor
+++ b/yarrg/commod-email-processor
@@ -39,7 +39,7 @@ BEGIN {
 use Commods;
 use CommodsDatabase;
 
-setlocale(LC_CTYPE, "en_GB.UTF-8");
+set_ctype_utf8();
 my $parser= new MIME::Parser;
 our $entity;
 
@@ -134,7 +134,7 @@ sub main () {
                 "SELECT stallid FROM stalls
 			WHERE islandid == $islandid AND stallname == ?
                 ");
-    $sth_insert{'commods'}= $dbh->prepare(
+    $sth_insert{'commod'}= $dbh->prepare(
                 "INSERT OR IGNORE
                         INTO commods
                         (commodname) VALUES (?)