chiark / gitweb /
query_routesearch: Properly propagate %baseqf (so we don't reset ocean etc.)
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Tue, 27 Oct 2009 01:31:42 +0000 (01:31 +0000)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Tue, 27 Oct 2009 01:31:42 +0000 (01:31 +0000)
yarrg/web/lookup
yarrg/web/query_routesearch

index a2ccc8d..56b34fc 100755 (executable)
@@ -259,7 +259,8 @@ $debug => 0
 % }
 
 <& "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 {
index 65f57f8..89a8137 100644 (file)
@@ -36,6 +36,7 @@
 <%args>
 $quri
 $dbh
+$baseqf
 $queryqf
 $islandstring => '';
 $capacitystring => '';
@@ -206,7 +207,7 @@ while (<$fh>) {
        for ($i=1; $i < @i-1; $i++) {
                push @{ $item->{Vias} }, $i[$i];
        }
-       my %linkqf= %$queryqf;
+       my %linkqf= (%$baseqf, %$queryqf);
        delete $linkqf{'query'};
        $linkqf{'routestring'}= join ', ', @fi;
        $item->{Url}= $quri->(%linkqf);