chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Generalise dumpqueryresults and rename to dumptable
[ypp-sc-tools.db-test.git]
/
yarrg
/
web
/
routetrade
diff --git
a/yarrg/web/routetrade
b/yarrg/web/routetrade
index f8e0f89145b11888878067f383a74f5e9c1872fd..fa29e6a596936a933917d21368d28e52c069cabb 100644
(file)
--- a/
yarrg/web/routetrade
+++ b/
yarrg/web/routetrade
@@
-143,15
+143,15
@@
my @columns= qw(org_name dst_name commodname
% }
% {
% }
% {
-<& dump
queryresults
:start, sth => $sth &>
+<& dump
table
:start, sth => $sth &>
% my $flow;
% while ($flow= $sth->fetchrow_hashref()) {
% $flow->{Ix}= @flows;
% $flow->{Var}= "f$flow->{Ix}";
% push @flows, $flow;
% my $flow;
% while ($flow= $sth->fetchrow_hashref()) {
% $flow->{Ix}= @flows;
% $flow->{Var}= "f$flow->{Ix}";
% push @flows, $flow;
-<& dump
queryresults
:row, sth => $sth, row => $flow &>
+<& dump
table
:row, sth => $sth, row => $flow &>
% }
% }
-<& dump
queryresults
:end &>
+<& dump
table
:end &>
% }
% if (!$specific || $confusing || @islandids<=1) {
% }
% if (!$specific || $confusing || @islandids<=1) {