X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_offers;h=779d80407dc767857e2a74fd389e07432a6b0f96;hb=3dbb2f33eae3a509123ffc99e48e35f858a8292a;hp=76f45c0da52f143bb39fd7de472c5a1118539cdf;hpb=872e647cac241531e4599c8b8b330d8772020253;p=ypp-sc-tools.db-test.git
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;
%perl>
+
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}) {
%perl>
% 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.)
+
+