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=d356bd1be195aa4e2590d4f172b0cf096434cd1c;hb=6fed4d2eccc640ca025f66c63cb7ac4d4423e6fb;hpb=1d64ed943c682bb0f99ce5efbd237abaf301a615 diff --git a/yarrg/web/pirate-route b/yarrg/web/pirate-route index d356bd1..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,11 +81,16 @@ db_setocean($a{Ocean}); db_connect(); %perl> +<%args> +$debug => 0 +%args>