X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_offers;h=779d80407dc767857e2a74fd389e07432a6b0f96;hp=76f45c0da52f143bb39fd7de472c5a1118539cdf;hb=59393edc418d7062f6fb074a90d3b8e810c43772;hpb=6302552bfa5844eddb7c26386c9995733f0a5174 diff --git a/yarrg/web/query_offers b/yarrg/web/query_offers index 76f45c0..779d804 100644 --- a/yarrg/web/query_offers +++ b/yarrg/web/query_offers @@ -54,6 +54,7 @@ my ($commodname,$cmid); my $qa= \%ARGS; +

Prices for commodity at location(s)

% $prselector->('BuySell'); @@ -79,12 +80,15 @@ my $qa= \%ARGS; <& "lookup:formhidden", ours => $ours &> +
+
%#========== results ========== <%perl> $emsgokorprint->($emsg) or $cmid=undef; -return unless defined $cmid and @islandids; +print("
"), return + unless defined $cmid and @islandids; foreach my $wf (@warningfs) { $wf->(); } @@ -166,7 +170,7 @@ foreach my $bs (split /_/, $qa->{BuySell}) { % while ($row= $sth->fetchrow_arrayref) { % if (!$rowix) { - +
@@ -221,3 +225,5 @@ database. This will be a pain for you to program, slow to run, and pointlessly overload our server. Instead, see our information for developers to find out how to get testing data or a real-time feed.) + +