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 %>
</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;