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=4c9c71ec2a0de4284b4929ba5fdc2fff0e7a1f47;hb=5b0690cc2d23aa69180aea98397d4ad44b528559;hpb=703efc8c2d4862002c9f087bf66101fda56bfe67
diff --git a/yarrg/web/query_offers b/yarrg/web/query_offers
index 4c9c71e..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,10 @@ foreach my $bs (split /_/, $qa->{BuySell}) {
%perl>
% while ($row= $sth->fetchrow_arrayref) {
% if (!$rowix) {
-
+
+
+
+
Archipelago
| Island
@@ -187,7 +194,7 @@ foreach my $bs (split /_/, $qa->{BuySell}) {
% $ts_sortkeys{$ci}{$rowid}= $val;
| = 3 ? 'align=right' : '' %> ><% $val |h %>
% }
- | <% prettyprint_age($age) %>
+ | <% prettyprint_age($age) %>
|
% $rowix++;
% }
@@ -211,3 +218,12 @@ No offers.
<%perl>
}
%perl>
+
+
+(Please don't use these pages to scrape data out of the YARRG
+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.)
+
+