X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fpirate-route;h=f58d47c20f450041eb39d2b13ee3d8784b4f1442;hp=a7d5eb25c2c210ba5c8d64f69929dfa23688bf80;hb=007700c6236644463a0e78724b8260f14be4bedd;hpb=f4739073c3f78b1c2646b58d6adbe983ab00ca15;ds=sidebyside diff --git a/yarrg/web/pirate-route b/yarrg/web/pirate-route index a7d5eb2..f58d47c 100644 --- a/yarrg/web/pirate-route +++ b/yarrg/web/pirate-route @@ -66,7 +66,7 @@ foreach my $var (@vars) { print '

'; } -db_setocean($a{'ocean'}); +db_setocean($a{Ocean}); db_connect(); @@ -76,9 +76,55 @@ db_connect(); % if (!$a{Dropdowns}) { Enter route (islands, or archipelagoes, separated by commas; - abbreviations are OK):
-
-


+ abbreviations are OK):
+ + + +
+

+ % } else { <%perl> @@ -102,9 +148,9 @@ while ($row=$sth->fetchrow_arrayref) { <% $islandlistdata %> % } -% } +% } @@ -112,5 +158,6 @@ while ($row=$sth->fetchrow_arrayref) { <%init> use CommodsWeb; use HTML::Entities; +use URI::Escape;