Do not dump sql results table if not debug

[ypp-sc-tools.db-live.git] / yarrg / web / query_route

diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index e9e358a433bc928b325a773651441b9ee25971d4..b2c52b158f3b7c6531b48fbf9b0b34677ed56df8 100644 (file)
--- a/yarrg/web/query_route
+++ b/yarrg/web/query_route
@@ -36,6 +36,7 @@
 <%args>
 $quri
 $dbh
+$prselector
 $routestring => '';
 $someresults
 $emsgokorprint
@@ -50,11 +51,13 @@ my %islandid2;
 my $qa= \%ARGS;
 </%perl>
 
+<h1>Specify route</h1>
+
+% $prselector->('ShowStalls');
+
 %#---------- textbox, user enters route as string ----------
 % if (!$qa->{Dropdowns}) {
 
-<h1>Specify route</h1>
-
 Enter route (islands, or archipelagoes, separated by |s or commas;
  abbreviations are OK):<br>
 
@@ -207,5 +210,7 @@ for my $dd (0..$qa->{Dropdowns}-1) {
 <& routetrade,
    dbh => $dbh,
    islandids => \@islandids,
-   archipelagoes => \@archipelagoes &>
+   archipelagoes => \@archipelagoes,
+   qa => $qa
+ &>
 % }