X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fpirate-route;h=84b61e40acc00b29865ed85466d4bd180cf60c2f;hp=639c8b19d91449ea2b14708ddb89368e0ec1ceab;hb=6fed4d2eccc640ca025f66c63cb7ac4d4423e6fb;hpb=4c157b676894d03718be0395900162acea4f1ff3 diff --git a/yarrg/web/pirate-route b/yarrg/web/pirate-route index 639c8b1..84b61e4 100644 --- a/yarrg/web/pirate-route +++ b/yarrg/web/pirate-route @@ -4,6 +4,11 @@ my %a; my @vars; +#---------- "mode" argument parsing and mode menu at top of page ---------- + +# for debugging, invoke as +# http://www.chiark.greenend.org.uk/ucgi/~clareb/mason/pirates/pirate-route?debug=1 + @vars= ({ Name => 'Ocean', Before => 'Ocean: ', CmpCanon => sub { ucfirst lc $_[0] }, @@ -56,6 +61,7 @@ foreach my $var (@vars) { } } my $uri= URI->new($m->current_comp()->name()); + $qf{'debug'}=1 if $debug; $uri->query_form(%qf); print ''; $after= ''; @@ -63,9 +69,11 @@ foreach my $var (@vars) { print $html, $after; $cvalix++; } - print '
'; + print "
\n\n"; } +#---------- initial checks, startup, main entry form ---------- + die "unknown ocean $a{Ocean} ?" unless grep { $_ eq $a{Ocean} } ocean_list(); @@ -73,121 +81,158 @@ db_setocean($a{Ocean}); db_connect(); %perl> +<%args> +$debug => 0 +%args>