From c2c600fb1b0bbe2627ac95e4dfe5e502780d986f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 23 Aug 2009 13:08:51 +0100
Subject: [PATCH] Do not dump sql results table if not debug

---
 yarrg/web/routetrade | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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;
-- 
2.30.2