From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 23 Aug 2009 12:08:51 +0000 (+0100)
Subject: Do not dump sql results table if not debug
X-Git-Tag: 3.4~138
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=commitdiff_plain;h=c2c600fb1b0bbe2627ac95e4dfe5e502780d986f;ds=inline

Do not dump sql results table if not debug
---

diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade
index c5c2ab7..0edcca5 100644
--- a/yarrg/web/routetrade
+++ b/yarrg/web/routetrade
@@ -163,15 +163,15 @@ push @columns,		     qw(commodname
 % }
 
 % {
-<& dumptable:start, sth => $sth &>
+<& dumptable:start, qa => $qa, sth => $sth &>
 %   my $flow;
 %   while ($flow= $sth->fetchrow_hashref()) {
 %	$flow->{Ix}= @flows;
 %	$flow->{Var}= "f$flow->{Ix}";
 %	push @flows, $flow;
-<& dumptable:row, sth => $sth, row => $flow &>
+<& dumptable:row, qa => $qa, sth => $sth, row => $flow &>
 %   }
-<& dumptable:end &>
+<& dumptable:end, qa => $qa &>
 % }
 
 % my $optimise= $specific && !$confusing && @islandids>1;