X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_offers;h=76f45c0da52f143bb39fd7de472c5a1118539cdf;hp=b9befe2c60ce3ed0016a6a37683737686a6e4d19;hb=aa69f9268584bedbdbdf5d0d51e2ce78b9ecd330;hpb=d343fff49b802614be47d21b569f43b7d42d4511 diff --git a/yarrg/web/query_offers b/yarrg/web/query_offers index b9befe2..76f45c0 100644 --- a/yarrg/web/query_offers +++ b/yarrg/web/query_offers @@ -88,14 +88,15 @@ return unless defined $cmid and @islandids; foreach my $wf (@warningfs) { $wf->(); } +if ($qa->{'debug'}) { %perl>
-NOT YET IMPLEMENTED bs= <% $qa->{BuySell} %> cmdid= <% $cmid %> islandids= <% join ',', map { defined($_) ? $_ : 'U' } @islandids %><%perl> +} my $locdesc; if (@islandids>1) { @@ -109,6 +110,8 @@ if (@islandids>1) { $locdesc= ' in '.$archipelagoes[0]; } +my $now= time; + my @conds; my @condvals; push @condvals, $cmid; @@ -124,13 +127,18 @@ foreach my $ix (0..$#islandids) { } } foreach my $bs (split /_/, $qa->{BuySell}) { + my %da_ages; + my %ts_sortkeys; + die unless grep { $bs eq $_ } qw(buy sell); my $ascdesc= $bs eq 'buy' ? 'DESC' : 'ASC'; %perl>
Archipelago + | Island + | Stall or Shoppe + | Price + | Quantity + | Data age + |
---|---|---|---|---|---|
= 3 ? 'align=right' : '' %> ><% $val |h %> +% } + | <% prettyprint_age($age) %> + |
+(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.)