where-vessels: No notes is default. Better treatment of lack of notes/ownership

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

diff --git a/yarrg/db-idempotent-populate b/yarrg/db-idempotent-populate
index bb0448ce478389c1c030220514c1cdabe648f588..eb1a30b43a581047e330b4f226670083366e3fb0 100755 (executable)
--- a/yarrg/db-idempotent-populate
+++ b/yarrg/db-idempotent-populate
@@ -229,6 +229,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 +344,7 @@ END
                        commodclassid
                        ordval
                        posinclass
+                       flags
                        );
     my $insert= $dbh->prepare("
  INSERT OR IGNORE INTO $table{commods}
@@ -370,7 +372,8 @@ END
                          $c->{Volume},
                          $clid,
                          commodsortkey($commod),
-                         $posincl{$commod}
+                         $posincl{$commod},
+                         $c->{Flags}
                          );
        $insert->execute($commod, @valuevalues);
        $update->execute(@valuevalues, $commod);