X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=blobdiff_plain;f=yarrg%2Fdatabase-info-fetch;h=90db002aa4bddd79dd320c61eabaafece677e577;hp=1e789b88fcb389686675f07393e1d0fab7a48ac1;hb=fe2f7bacc8e293c0df0660a7c0ebcf305b1916b8;hpb=1c640671a7ee8d30ee80c393822fa02ef3da0031

diff --git a/yarrg/database-info-fetch b/yarrg/database-info-fetch
index 1e789b8..90db002 100755
--- a/yarrg/database-info-fetch
+++ b/yarrg/database-info-fetch
@@ -159,7 +159,7 @@ sub main__comparesources () {
 		sub { });
     for_commods(sub {
 		    my ($commod)= @_;
-		    my $srcs= $commods{$commod};
+		    my $srcs= $commods{$commod}{Srcs};
 		    compare_sources_one($srcs, "commodity $commod");
 		});
 }
@@ -167,8 +167,8 @@ sub main__comparesources () {
 sub main__island () {
     my $ocean= get_ocean();
     
-    parse_info_clientside();
-    get_arches_islands_pctb($ocean);
+    parse_info_clientside() if $ENV{'YPPSC_YARRG_YARRG'};
+    get_arches_islands_pctb($ocean) if $pctb;
 
     for_islands($ocean,
 		sub {