+<%perl>
+}
+
+my $locdesc;
+if (@islandids>1) {
+ $locdesc= ' at specified locations';
+} elsif (defined $islandids[0]) {
+ my $sth= $dbh->prepare("SELECT islandname FROM islands
+ WHERE islandid == ?");
+ $sth->execute($islandids[0]);
+ $locdesc= ' at '.($sth->fetchrow_array())[0];
+} else {
+ $locdesc= ' in '.$archipelagoes[0];
+}
+
+my $now= time;
+
+my @conds;
+my @condvals;
+push @condvals, $cmid;
+foreach my $ix (0..$#islandids) {
+ my $iid= $islandids[$ix];
+ my $arch= $archipelagoes[$ix];
+ if (defined $iid) {
+ push @conds, 'offers.islandid == ?';
+ push @condvals, $iid;
+ } else {
+ push @conds, 'islands.archipelago == ?';
+ push @condvals, $arch;
+ }
+}
+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>
+<h2>Offers to <% uc $bs |h %> <% $commodname |h %> <% $locdesc %></h2>
+<%perl>
+ my $stmt= "
+ SELECT archipelago, islandname,
+ stallname, price, qty, timestamp,
+ offers.stallid
+ FROM $bs AS offers
+ JOIN islands ON offers.islandid==islands.islandid
+ JOIN uploads ON offers.islandid==uploads.islandid
+ JOIN stalls ON offers.stallid==stalls.stallid
+ WHERE offers.commodid == ?
+ AND ( ".join("
+ OR ", @conds)."
+ )
+ ORDER BY archipelago, islandname, price $ascdesc, qty ASC,
+ stallname $ascdesc
+";
+ if ($qa->{'debug'}) {
+</%perl>
+<pre>
+<% $stmt %>
+<% join ',', @condvals |h %>
+</pre>
+<%perl>
+ }
+
+ my $row;
+ my $sth= $dbh->prepare($stmt);
+ $sth->execute(@condvals);
+ my $rowix= 0;
+</%perl>
+% while ($row= $sth->fetchrow_arrayref) {
+% if (!$rowix) {
+<table class="data" id="<% $bs %>_table" rules=groups>
+<colgroup span=2>
+<colgroup span=3>
+<colgroup span=1>
+<tr>
+<th>Archipelago
+<th>Island
+<th>Stall or Shoppe
+<th>Price
+<th>Quantity
+<th>Data age
+</tr>
+% }
+% my $rowid= ${bs}.$row->[6];
+% my $tscellid= "c$rowid";
+% my $age= $now - $row->[5];
+% $da_ages{$rowid}= $age;
+% $row->[5]=
+<tr id=<% $rowid %> class="<% 'datarow'.($rowix & 1) %>" >
+% foreach my $ci (0..4) {
+% my $val= $row->[$ci];
+% $ts_sortkeys{$ci}{$rowid}= $val;
+<td <% $ci >= 3 ? 'align=right' : '' %> ><% $val |h %>
+% }
+<td id="<% $tscellid %>" align=right><% prettyprint_age($age) %>
+</tr>
+% $rowix++;
+% }
+% if ($rowix) {
+</table>
+
+<&| tabsort, table => "${bs}_table", rowclass => 'datarow', cols => [
+ {}, {}, {},
+ { Numeric => 1, DoReverse => 1 },
+ { Numeric => 1, DoReverse => 1 },
+ { Numeric => 1, DoReverse => 1, SortKey => "${bs}_ages[rowid]" }],
+ sortkeys => "${bs}_sortkeys"
+ &>
+ <%$bs%>_sortkeys= <% to_json_protecttags(\%ts_sortkeys) %>;
+ <%$bs%>_ages= <% to_json_protecttags(\%da_ages) %>;
+</&tabsort>
+% } else {
+No offers.
+% }
+
+<%perl>
+}
+</%perl>
+
+<p>
+(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
+<a href="devel">information for developers</a>
+to find out how to get testing data or a real-time feed.)
+
+</div>