</%doc>
<%args>
$quri
+$dbh
$commodstring => '';
$someresults
$emsgokorprint
<form action="<% $quri->() |h %>" method="get">
-<&| qtextstring, qa => $qa, thingstring => 'commodstring', emsgstore => \$emsg,
+<&| qtextstring, qa => $qa, dbh => $dbh,
+ thingstring => 'commodstring', emsgstore => \$emsg,
perresult => sub { ($commodname,$commodid)= @_; }
&>
size=80