Much tidying; preserve query type etc. in query_commod

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

diff --git a/yarrg/web/query_commod b/yarrg/web/query_commod
index 5a7497bac9d3d8d042bf40c031d565bf952607d2..2358b4167cc373874dd8bf959f3099a610612eeb 100644 (file)
--- a/yarrg/web/query_commod
+++ b/yarrg/web/query_commod
@@ -45,12 +45,20 @@ $commodstring => '';
 
 <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 ----------