X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fdb-idempotent-populate;h=80ded466aefeb4ab89899fae5218dd7da2537e72;hb=bdad24af2d97e3448b671da80bb4247411bafbea;hp=b7743ed9cb1ff3f78ef9b6be379d4635ec467e1e;hpb=c68fb80a6bbf7acbcac4b2cb2143f5fea745cd2b;p=ypp-sc-tools.db-test.git

diff --git a/yarrg/db-idempotent-populate b/yarrg/db-idempotent-populate
index b7743ed..80ded46 100755
--- a/yarrg/db-idempotent-populate
+++ b/yarrg/db-idempotent-populate
@@ -38,10 +38,12 @@ my ($oceanname) = @ARGV;
 
 #---------- setup ----------
 
-parse_masters_ocean($oceanname);
+parse_info_serverside();
+parse_info_serverside_ocean($oceanname);
 our $ocean= $oceans{$oceanname};
 
 db_setocean($oceanname);
+db_writer();
 db_connect();
 
 #---------- schema ----------
@@ -101,12 +103,26 @@ $dbh->commit;
 #---------- commodity list ----------
 
 {
-    my $sth= $dbh->prepare(<<'END')
- INSERT OR IGNORE INTO commods (commodname) VALUES (?);
+    my $insert= $dbh->prepare(<<'END')
+ INSERT OR IGNORE INTO commods
+     (unitmass,
+      unitvolume,
+      commodname)
+     VALUES (?,?,?);
+END
+    ;
+    my $update= $dbh->prepare(<<'END')
+ UPDATE commods
+     SET unitmass = ?,
+         unitvolume = ?
+     WHERE commodname = ?
 END
     ;
     foreach my $commod (sort keys %commods) {
-	$sth->execute($commod);
+	my $c= $commods{$commod};
+	my @qa= ($c->{Mass}, $c->{Volume}, $commod);
+	$insert->execute(@qa);
+	$update->execute(@qa);
     }
     $dbh->commit;
 }