query_routesearch: Properly propagate %baseqf (so we don't reset ocean etc.)

[ypp-sc-tools.main.git] / yarrg / web / lookup
diff --git a/yarrg/web/lookup b/yarrg/web/lookup

index 2f67760c487d6f1281b37bcb819ca6a7b2dd3d01..56b34fc36fb09d228cb4d9598f5c138a507ef444 100755 (executable)
--- a/yarrg/web/lookup
+++ b/yarrg/web/lookup
@@ -146,6 +146,7 @@ tr.datarow1 { background: #ffffff; }
  </&script>
  </head><body>
  
+% if (!printable($m)) {
  <a href="<% $m->current_comp()->name() |u %>">YARRG</a> -
   Yet Another Revenue Research Gatherer
  |
@@ -155,6 +156,7 @@ tr.datarow1 { background: #ffffff; }
  |
  <a href="devel">development</a>
  <p>
+% }
  <%perl>
  
  foreach my $var (@vars) {
@@ -186,6 +188,7 @@ my $quri= sub {
  
  my $prselector_core= sub {
         my ($var)= @_;
+       return if printable($m);
         my $name= $var->{Name};
         my $lname= lc $var->{Name};
         my $delim= $var->{Before};
@@ -251,10 +254,13 @@ my $someresults= sub {
  $debug => 0
  </%args>
  
+% if (!printable($m)) {
  <hr>
+% }
  
  <& "query_$styles{Query}", %baseqf, %queryqf, %styles,
-    quri => $quri, dbh => $dbh, queryqf => \%queryqf, allargs => \%ARGS,
+    quri => $quri, dbh => $dbh,
+    baseqf => \%baseqf, queryqf => \%queryqf, allargs => \%ARGS,
      prselector => $prselector,
      someresults => $someresults,
      emsgokorprint => sub {