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%2Froutetrade;h=de9e73c8129c5793b1dd1b7d3ab2f5ed344fb724;hp=e6aff44eece5329da0bccc817e641ac7597f7d92;hb=6c00612168df1037c0d58845bd99c9890f51c6d6;hpb=21023ed45c8db0ff06c0106593123d5b84a19c72

diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade
index e6aff44..de9e73c 100644
--- a/yarrg/web/routetrade
+++ b/yarrg/web/routetrade
@@ -100,16 +100,17 @@ my $stmt= "
 	   OR	", @flow_conds)."
 	)
 	  AND	buy.price > sell.price
-	GROUP BY commodname, commods.commodid,
-		org_id, org_price, dst_id, dst_price
+	GROUP BY commods.commodid, org_id, org_price, dst_id, dst_price
 	ORDER BY org_name, dst_name, profit DESC, commodname,
 		 org_price, dst_price DESC
      ";
 
 my $sth= $dbh->prepare($stmt);
 $sth->execute(@query_params);
+my @flows;
 
 </%perl>
+
 % if ($qa->{'debug'}) {
 <pre>
 <% $stmt |h %>
@@ -117,7 +118,17 @@ $sth->execute(@query_params);
 </pre>
 % }
 
-<& dumpqueryresults, sth =>$sth &>
+<& dumpqueryresults:start, sth => $sth &>
+% my $flow;
+% while ($flow= $sth->fetchrow_hashref()) {
+%	push @flows, $flow;
+<& dumpqueryresults:row, sth => $sth, row => $flow &>
+% }
+<& dumpqueryresults:end &>
+
+<%perl>
+
+</%perl>
 
 <%init>
 use CommodsWeb;