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%2Fquery_route;h=8f6d99c49d29ed353f5f2fcdf6d88dc55180afac;hp=dd8644f1675694d200e28341d0b32bc5d6396422;hb=9d01242d0991d15f7ea84454264c868e1c4ed8ad;hpb=b6d8c4a781c0bedf79a4b13af5afe9ad47de97ed

diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index dd8644f..8f6d99c 100644
--- a/yarrg/web/query_route
+++ b/yarrg/web/query_route
@@ -51,6 +51,9 @@ my $qa= \%ARGS;
 
 <h1>Specify route</h1>
 
+Enter route (islands, or archipelagoes, separated by |s or commas;
+ abbreviations are OK):<br>
+
 <form action="<% $quri->() |h %>" method="get">
 
 <&| qtextstring, qa => $qa, thingstring => 'routestring' &>
@@ -112,8 +115,6 @@ $dbh->rollback();
 
 </%perl>
 
-<input type=hidden name=dropdowns value="<% $qa->{Dropdowns} |h %>">
-
 <&| script &>
 ms_lists= <% to_json_protecttags(\%resetislandlistdata) %>;
 function ms_Setarch(dd) {
@@ -155,6 +156,8 @@ function ms_Setarch(dd) {
 % } #---------- end of dropdowns, now common middle of page code ----------
 
 <input type=submit name=submit value="Go">
+% my $ours= sub { $_[0] =~ m/^island|^archipelago|^routestring/; };
+<& "lookup:formhidden", ours => $ours &>
 </form>
 
 <%perl>