From 5cc1eb0200564bcc8d67ecf4250afebaaeff2eff Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Wed, 12 Aug 2009 14:02:41 +0100 Subject: [PATCH] clean up pirate-route --- yarrg/web/pirate-route | 88 ++++++++++-------------------------------- 1 file changed, 20 insertions(+), 68 deletions(-) diff --git a/yarrg/web/pirate-route b/yarrg/web/pirate-route index 9dfab7e..154b37d 100644 --- a/yarrg/web/pirate-route +++ b/yarrg/web/pirate-route @@ -1,18 +1,14 @@ Specify route - - <%perl> 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] }, @@ -76,6 +72,8 @@ foreach my $var (@vars) { print "

\n\n"; } +#---------- initial checks, startup, main entry form ---------- + die "unknown ocean $a{Ocean} ?" unless grep { $_ eq $a{Ocean} } ocean_list(); @@ -90,7 +88,9 @@ $debug => 0

Specify route

+%#---------- textbox, user enters route as string ---------- % if (!$a{Dropdowns}) { + Enter route (islands, or archipelagoes, separated by |s or commas; abbreviations are OK):
@@ -138,7 +138,8 @@ function tr_Ready() { onchange="tr_Needed();" onkeyup="tr_Later();">

-% } else { + +% } else { #---------- dropdowns, user selects from menus ---------- <%perl> my ($sth,$row);; @@ -191,47 +192,12 @@ function ms_Setarch(dd) { } -% if (0) { - var nodes= select.getElementsByTagName('option'); -alert(ms_lists[dd]); - for (var i=0; i -table -{ -table-layout: fixed; -color: red; -} -pre -{ -color:yellow; -} - -% } - % for my $dd (0..$a{Dropdowns}-1) { % } @@ -247,29 +213,7 @@ color:yellow;

- - -% if (0) { - -% } - -% } +% } #---------- end of dropdowns, now common code ---------- @@ -281,6 +225,14 @@ Debug log: % } + <%init> use CommodsWeb; -- 2.30.2