From e05f0567ea23491da8e48f892a3337f37139628f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 22 Aug 2009 14:04:08 +0100
Subject: [PATCH] Make query dumping conditional on debug

---
 yarrg/web/query_route | 4 +++-
 yarrg/web/routetrade  | 3 +++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index e9e358a..ee726a9 100644
--- a/yarrg/web/query_route
+++ b/yarrg/web/query_route
@@ -207,5 +207,7 @@ for my $dd (0..$qa->{Dropdowns}-1) {
 <& routetrade,
    dbh => $dbh,
    islandids => \@islandids,
-   archipelagoes => \@archipelagoes &>
+   archipelagoes => \@archipelagoes,
+   qa => $qa
+ &>
 % }
diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade
index 9a7b036..e154f2c 100644
--- a/yarrg/web/routetrade
+++ b/yarrg/web/routetrade
@@ -2,6 +2,7 @@
 $dbh
 @islandids
 @archipelagoes
+$qa
 </%args>
 <%perl>
 
@@ -69,10 +70,12 @@ my $sth= $dbh->prepare($stmt);
 $sth->execute(@query_params);
 
 </%perl>
+% if ($qa->{'debug'}) {
 <pre>
 <% $stmt |h %>
 <% join(' | ',@query_params) |h %>
 </pre>
+% }
 
 <& dumpqueryresults, sth =>$sth &>
 
-- 
2.30.2