Normalise commodity name case (from uploads)

[ypp-sc-tools.db-test.git] / yarrg / db-idempotent-populate

diff --git a/yarrg/db-idempotent-populate b/yarrg/db-idempotent-populate
index bb0448ce478389c1c030220514c1cdabe648f588..2b63f2b9b110f0b334c2fafade4eeba24c6380e3 100755 (executable)
--- a/yarrg/db-idempotent-populate
+++ b/yarrg/db-idempotent-populate
@@ -29,6 +29,8 @@
 # are used without permission.  This program is not endorsed or
 # sponsored by Three Rings.
 
+BEGIN { unshift @INC, qw(.) }
+
 use strict (qw(vars));
 
 use DBI;
@@ -229,6 +231,7 @@ table_maycompact('commods', 'commodid',
        commodclassid   INTEGER                 NOT NULL
        ordval          INTEGER                 NOT NULL
        posinclass      INTEGER                 NOT NULL
+       flags           TEXT                    NOT NULL
 END
 
 table_maycompact('islands', 'islandid',
@@ -343,6 +346,7 @@ END
                        commodclassid
                        ordval
                        posinclass
+                       flags
                        );
     my $insert= $dbh->prepare("
  INSERT OR IGNORE INTO $table{commods}
@@ -370,7 +374,8 @@ END
                          $c->{Volume},
                          $clid,
                          commodsortkey($commod),
-                         $posincl{$commod}
+                         $posincl{$commod},
+                         $c->{Flags}
                          );
        $insert->execute($commod, @valuevalues);
        $update->execute(@valuevalues, $commod);