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=0e1aa989a7bf61b5c7ff8b1bda8281d72d25671a;hb=3dbb2f33eae3a509123ffc99e48e35f858a8292a;hpb=2fff004c6943a096fe955b75fe6c81ed61de1ebf diff --git a/yarrg/web/query_offers b/yarrg/web/query_offers index 0e1aa98..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,10 @@ foreach my $bs (split /_/, $qa->{BuySell}) { % while ($row= $sth->fetchrow_arrayref) { % if (!$rowix) { - +
+++
Archipelago Island @@ -218,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.) + +