X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Flookup;h=931594a2b71ce718d615bbfecf46e09c00c9d5d2;hb=ad7330407875909b4723839c8872da2de61c8244;hp=9206d4b536b68629c6cd93f9bc928fdffe2e4eeb;hpb=1e054798d3b98978221871919c52af06464d48f2;p=ypp-sc-tools.db-live.git diff --git a/yarrg/web/lookup b/yarrg/web/lookup index 9206d4b..931594a 100755 --- a/yarrg/web/lookup +++ b/yarrg/web/lookup @@ -85,7 +85,6 @@ foreach my $var (@vars) { <% ucfirst $ahtml{Query} %> - YARRG -<& webcopyright &> YARRG - Yet Another Revenue Research Gatherer @@ -134,7 +133,9 @@ foreach my $var (@vars) { my %qf= (%baseqf,%queryqf); delete $qf{$lname}; $qf{$lname}= $value if $cvalix; - print ''; + + +<%perl> $after= ''; } print $html, $after; @@ -159,15 +160,15 @@ $routestring => '' % if ($a{Query} eq 'route') {

Specify route

-
+ %#---------- textbox, user enters route as string ---------- % if (!$a{Dropdowns}) { Enter route (islands, or archipelagoes, separated by |s or commas; - abbreviations are OK):
+ abbreviations are OK):
- +
-
 

+
 

% } else { #---------- dropdowns, user selects from menus ---------- @@ -269,8 +270,8 @@ foreach my $arch (keys %islandlistdata) { - + @@ -398,14 +399,14 @@ Debug log: % } - + <& footer &> @@ -413,6 +414,5 @@ function debug (m) { use CommodsWeb; use HTML::Entities; use URI::Escape; -use JSON;