chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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>
<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' &>
<form action="<% $quri->() |h %>" method="get">
<&| qtextstring, qa => $qa, thingstring => 'routestring' &>
@@
-112,8
+115,6
@@
$dbh->rollback();
</%perl>
</%perl>
-<input type=hidden name=dropdowns value="<% $qa->{Dropdowns} |h %>">
-
<&| script &>
ms_lists= <% to_json_protecttags(\%resetislandlistdata) %>;
function ms_Setarch(dd) {
<&| 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">
% } #---------- 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>
</form>
<%perl>