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=47c3555700c4ba290100dedddcdc0ded18311b2e;hb=59393edc418d7062f6fb074a90d3b8e810c43772;hpb=db998ff5d636967de9de9218ff0b940a4feb9a6d

diff --git a/yarrg/web/query_offers b/yarrg/web/query_offers
index 47c3555..779d804 100644
--- a/yarrg/web/query_offers
+++ b/yarrg/web/query_offers
@@ -54,6 +54,7 @@ my ($commodname,$cmid);
 my $qa= \%ARGS;
 </%perl>
 
+<div class="query">
 <h1>Prices for commodity at location(s)</h1>
 
 % $prselector->('BuySell');
@@ -79,19 +80,150 @@ my $qa= \%ARGS;
 <& "lookup:formhidden", ours => $ours &>
 
 </form>
+</div>
+<div class="results">
 
 %#========== results ==========
 <%perl>
 
 $emsgokorprint->($emsg) or $cmid=undef;
-return unless defined $cmid and @islandids;
+print("</div>"), return
+	unless defined $cmid and @islandids;
 
 foreach my $wf (@warningfs) { $wf->(); }
-</%perl>
 
+if ($qa->{'debug'}) {
+</%perl>
 <pre>
-NOT YET IMPLEMENTED
-
+bs= <% $qa->{BuySell} %>
 cmdid= <% $cmid %>
 islandids= <% join ',', map { defined($_) ? $_ : 'U' } @islandids %>
 </pre>
+<%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>