Strip "none" values when replicating our url

diff --git a/yarrg/web/lookup b/yarrg/web/lookup
index e062e60c6c4b072ca6daf1f96709f0d111e87cad..9c00a65466481bd3e6e1633fa3fe0c7fbf418f9a 100644 (file)
--- a/yarrg/web/lookup
+++ b/yarrg/web/lookup
@@ -56,7 +56,9 @@ my %queryqf;
 foreach my $var (keys %ARGS) {
        next unless $var =~
                m/^(?:routestring|islandid\d|archipelago\d|debug)$/;
 foreach my $var (keys %ARGS) {
        next unless $var =~
                m/^(?:routestring|islandid\d|archipelago\d|debug)$/;

-       $queryqf{$var}= $ARGS{$var};
+       my $val= $ARGS{$var};
+       next if $val eq 'none';
+       $queryqf{$var}= $val;

 }
 
 my $uri= URI->new($m->current_comp()->name());
 }
 
 my $uri= URI->new($m->current_comp()->name());