chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.web-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Put data into flows
[ypp-sc-tools.web-live.git]
/
yarrg
/
web
/
routetrade
diff --git
a/yarrg/web/routetrade
b/yarrg/web/routetrade
index 35bec07ad827d5cf2cb62f0482f3e4d8ea513bf5..de9e73c8129c5793b1dd1b7d3ab2f5ed344fb724 100644
(file)
--- a/
yarrg/web/routetrade
+++ b/
yarrg/web/routetrade
@@
-107,8
+107,10
@@
my $stmt= "
my $sth= $dbh->prepare($stmt);
$sth->execute(@query_params);
my $sth= $dbh->prepare($stmt);
$sth->execute(@query_params);
+my @flows;
</%perl>
</%perl>
+
% if ($qa->{'debug'}) {
<pre>
<% $stmt |h %>
% if ($qa->{'debug'}) {
<pre>
<% $stmt |h %>
@@
-116,7
+118,17
@@
$sth->execute(@query_params);
</pre>
% }
</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;
<%init>
use CommodsWeb;