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=9dfab7e37309726a924f70d4f42a47cf4e86ab09;hp=42de303d16caf9bc960077596de6be4ba38d709c;hb=43f6ebdd538a6e75b3d6c43d0ce18b81c972ffd7;hpb=2839e990a1173a3b7e9d8ba3c662405ed25ba1b2 diff --git a/yarrg/web/pirate-route b/yarrg/web/pirate-route index 42de303..9dfab7e 100644 --- a/yarrg/web/pirate-route +++ b/yarrg/web/pirate-route @@ -1,5 +1,14 @@
'; + print "
\n\n"; } -db_setocean($a{'ocean'}); +die "unknown ocean $a{Ocean} ?" + unless grep { $_ eq $a{Ocean} } ocean_list(); + +db_setocean($a{Ocean}); db_connect(); %perl> +<%args> +$debug => 0 +%args>