Make query dumping conditional on debug

diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index e9e358a433bc928b325a773651441b9ee25971d4..ee726a9ced8d0a6c024c6d83bc3aaa95a7966882 100644 (file)
--- 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 9a7b036cdde9b468233f5a770a2dafec1d59420e..e154f2c6c2c683d434ae182fd33b390051f6aa87 100644 (file)
--- 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 &>