Much tidying; preserve query type etc. in query_commod

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

diff --git a/yarrg/web/query_commod b/yarrg/web/query_commod
index ab87cac30e5bb6e7d01ef638f3906dd8a11ae16e..2358b4167cc373874dd8bf959f3099a610612eeb 100644 (file)
--- a/yarrg/web/query_commod
+++ b/yarrg/web/query_commod
@@ -35,21 +35,30 @@
 </%doc>
 <%args>
 $quri
-$qa
 $commodstring => '';
 </%args>
 
+% my $qa= \%ARGS;
+
 %#---------- textbox, user enters route as string ----------
 % if (!$qa->{Dropdowns}) {
 
 <h1>Select commodity</h1>
 
+Enter commodity (abbreviations are OK):<br>
+
 <form action="<% $quri->() |h %>" method="get">
 
 <&| qtextstring, qa => $qa, thingstring => 'commodstring' &>
  size=80
 </&>
 
+<input type=submit name=submit value="Go">
+% my $ours= sub { $_[0] =~ m/^commodstring/; };
+<& "lookup:formhidden", ours => $ours &>
+
+</form>
+
 % } else { #---------- dropdowns, user selects from menus ----------
 
 % } #---------- end of dropdowns, now common middle of page code ----------