WIP new dictionary arrangements

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

diff --git a/pctb/dictionary-pixmap-options b/pctb/dictionary-pixmap-options
index 5b7a825fd4daded0a1cfe3c7cb0a34e27ee448ef..67ca72264d95414b881710e385ed435d2ed30b77 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;