X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_commod;h=3b2bf3554533f40a334d63690dac86f023b16764;hb=3579e35d2b8ed951db24cc4873c155fded7f4375;hp=34b1347f20f5034315a1821d535cd6de40f8f8e2;hpb=f6d7a4d627f3ecc0624649bb895dbf8e59afcf47;p=ypp-sc-tools.db-live.git
diff --git a/yarrg/web/query_commod b/yarrg/web/query_commod
index 34b1347..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):
-