X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_commod;h=3b2bf3554533f40a334d63690dac86f023b16764;hb=767fa1cf87952a46530bfaa2de0543ac07b64c2a;hp=c9b17ae6700b72a0e5ba135a14d95ff381ae3a98;hpb=00ba9271fd8409f29fcae6ee2af15824810bc939;p=ypp-sc-tools.db-test.git
diff --git a/yarrg/web/query_commod b/yarrg/web/query_commod
index c9b17ae..3b2bf35 100644
--- a/yarrg/web/query_commod
+++ b/yarrg/web/query_commod
@@ -36,6 +36,7 @@
<%args>
$quri
$dbh
+$commodid => undef;
$commodstring => '';
$prselector
$someresults
@@ -44,7 +45,7 @@ $emsgokorprint
<%perl>
my $emsg;
-my ($commodname,$commodid);
+my ($commodname,$cmid);
my $qa= \%ARGS;
%perl>
@@ -54,25 +55,12 @@ my $qa= \%ARGS;
% $prselector->('BuySell');
% $prselector->('ShowBlank');
-%#---------- textbox, user enters route as string ----------
-% if (!$qa->{Dropdowns}) {
-
-Enter commodity (abbreviations are OK):
-