speed problems

[ypp-sc-tools.db-test.git] / pctb / dictionary-pixmap-options

diff --git a/pctb/dictionary-pixmap-options b/pctb/dictionary-pixmap-options
index 5b7a825fd4daded0a1cfe3c7cb0a34e27ee448ef..e83f685a7275d0ae103042dab646e9f2b09fb674 100755 (executable)
--- 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