From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 2 Nov 2009 15:56:31 +0000 (+0000)
Subject: Add commodclasses even for un-ordval'd commods
X-Git-Tag: 6.0~19
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=commitdiff_plain;h=e353043ae5bf5a7df54f650c51f00d6c3b862ba9

Add commodclasses even for un-ordval'd commods
---

diff --git a/yarrg/Commods.pm b/yarrg/Commods.pm
index 5161af2..c6ed253 100644
--- a/yarrg/Commods.pm
+++ b/yarrg/Commods.pm
@@ -37,7 +37,7 @@ BEGIN {
     @ISA         = qw(Exporter);
     @EXPORT      = qw(&parse_info_clientside &fetch_with_rsync
 		      &parse_info_serverside &parse_info_serverside_ocean
-		      %oceans %commods %clients
+		      %oceans %commods %clients %commodclasses
 		      %vessels %shotname2damage
 		      &parse_pctb_commodmap %pctb_commodmap @pctb_commodmap
 		      &get_our_version &check_tsv_line
diff --git a/yarrg/db-idempotent-populate b/yarrg/db-idempotent-populate
index 2e0b0ae..5e0a8d5 100755
--- a/yarrg/db-idempotent-populate
+++ b/yarrg/db-idempotent-populate
@@ -238,6 +238,8 @@ END
 	if (defined $c->{Ordval} and defined $cl) {
 	    $incl{$cl}++;
 	    $setinclass->execute($incl{$cl}, $commod);
+	} elsif (defined $cl) {
+	    $incl{$cl} += 0;
 	}
     }
     db_doall(<<END);