commodclassid INTEGER NOT NULL
ordval INTEGER NOT NULL
posinclass INTEGER NOT NULL
+ flags TEXT NOT NULL
END
table_maycompact('islands', 'islandid',
commodclassid
ordval
posinclass
+ flags
);
my $insert= $dbh->prepare("
INSERT OR IGNORE INTO $table{commods}
$c->{Volume},
$clid,
commodsortkey($commod),
- $posincl{$commod}
+ $posincl{$commod},
+ $c->{Flags}
);
$insert->execute($commod, @valuevalues);
$update->execute(@valuevalues, $commod);
;
}
-db_check_referential_integrity();
+db_check_referential_integrity(1);
#---------- compact IDs ----------
#---------- put it all into effect ----------
-db_chkcommit();
+db_chkcommit(1);
{
local $dbh->{AutoCommit} = 1;