Do not dump sql results table if not debug

[ypp-sc-tools.main.git] / yarrg / web / routetrade

diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade
index c5c2ab7e3b8d042de5660aaef9f4f96d2940865b..0edcca539afa87cc072e9abc6ab4dd6c86fedfc5 100644 (file)
--- 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;