X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=pctb%2Fdictionary-pixmap-options;h=e83f685a7275d0ae103042dab646e9f2b09fb674;hb=98f6e10120eeed636e79bf0893b654b5644983e2;hp=5b7a825fd4daded0a1cfe3c7cb0a34e27ee448ef;hpb=e888c1dd3476ca49bccf82b93b4a3633587d400d;p=ypp-sc-tools.db-live.git

diff --git a/pctb/dictionary-pixmap-options b/pctb/dictionary-pixmap-options
index 5b7a825..e83f685 100755
--- a/pctb/dictionary-pixmap-options
+++ b/pctb/dictionary-pixmap-options
@@ -69,7 +69,8 @@ sub ptcl ($) {
 }
     
 sub main__island () {
-    my $url= "$pctb/islands.php?oceanName=SAGE";
+    my $ocean= $ENV{'YPPSC_OCEAN'};  die unless $ocean;
+    my $url= "$pctb/islands.php?oceanName=".uc $ocean;
     my $resp= $ua->get($url);
     die $resp->status_line unless $resp->is_success;
     $jsonresp= $resp->content;
@@ -104,7 +105,7 @@ Land {On land} {
     Booty  Booty
     Ahoy!  Ahoy!
 }
-Ship {On board a ship} {
+Vessel {On board a ship} {
     Crew   Crew
     Vessel Vessel
     Ye     Ye