X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_commod;h=8d55f2686130568ba92d2c578dd787d2362e368e;hp=3b2bf3554533f40a334d63690dac86f023b16764;hb=53dfe71f6c510ee12bbf6bdaeb3984024d34a7be;hpb=872e647cac241531e4599c8b8b330d8772020253 diff --git a/yarrg/web/query_commod b/yarrg/web/query_commod index 3b2bf35..8d55f26 100644 --- a/yarrg/web/query_commod +++ b/yarrg/web/query_commod @@ -50,6 +50,7 @@ my ($commodname,$cmid); my $qa= \%ARGS; +

Commodity enquiry

% $prselector->('BuySell'); @@ -69,10 +70,13 @@ my $qa= \%ARGS; %#========== results ========== +
+
<%perl> $emsgokorprint->($emsg) or $cmid=undef; -return unless defined $cmid; +print("
"), return + unless defined $cmid; $someresults->(); #---------- actually compute the results and print them ---------- @@ -109,7 +113,7 @@ foreach my $bs (split /_/, $ARGS{BuySell}) { % my $rowix= 0; % while ($island= $islands->fetchrow_hashref) { % if (!$rowix) { - +
@@ -212,3 +216,4 @@ No offers. <%perl> } +