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