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());