+
+<input type=submit name=submit value="Go">
+% my $ours= sub { $_[0] =~ m/^commodstring|^commodid/; };
+<& "lookup:formhidden", ours => $ours &>
+
+</form>
+
+%#========== results ==========
+% $emsgokorprint->($emsg) or $commodid=undef;
+
+% if (defined $commodid) {
+% $someresults->();
+COMMODITY <% $commodid %> named <% $commodname |h %>
+
+% }