Much tidying; preserve query type etc. in query_commod

[ypp-sc-tools.db-live.git] / yarrg / web / query_route

diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index dd8644f1675694d200e28341d0b32bc5d6396422..8f6d99c49d29ed353f5f2fcdf6d88dc55180afac 100644 (file)
--- 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>