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

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