From 6c00612168df1037c0d58845bd99c9890f51c6d6 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 22 Aug 2009 15:45:57 +0100
Subject: [PATCH] Put data into flows

---
 yarrg/web/routetrade | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade
index 35bec07..de9e73c 100644
--- a/yarrg/web/routetrade
+++ b/yarrg/web/routetrade
@@ -107,8 +107,10 @@ my $stmt= "
 
 my $sth= $dbh->prepare($stmt);
 $sth->execute(@query_params);
+my @flows;
 
 </%perl>
+
 % if ($qa->{'debug'}) {
 <pre>
 <% $stmt |h %>
@@ -116,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;
-- 
2.30.2