chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 () {
}
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;
my $resp= $ua->get($url);
die $resp->status_line unless $resp->is_success;
$jsonresp= $resp->content;