Compress flow ids

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

diff --git a/yarrg/web/lookup b/yarrg/web/lookup
index 8475f689d4bb31b3bc452d5a99eccf163a7895f9..cfffd146af3548c87efcccde44ea0b2db3090c8a 100755 (executable)
--- a/yarrg/web/lookup
+++ b/yarrg/web/lookup
@@ -139,7 +139,7 @@ foreach my $var (keys %ARGS) {
                        islandid \d |
                        archipelago \d |
                        debug |
-                       rtsel[ag]_\w+
+                       [RT]\w+
                    )$/x;
        my $val= $ARGS{$var};
        next if $val eq 'none';