chiark / gitweb /
Compress flow ids
[ypp-sc-tools.web-live.git] / yarrg / web / query_route
index 18c3ecb..adcb89d 100644 (file)
@@ -166,7 +166,7 @@ function ms_Setarch(dd) {
 % } #---------- end of dropdowns, now common middle of page code ----------
 
 <input type=submit name=submit value="Go">
-% my $ours= sub { $_[0] =~ m/^island|^archipelago|^routestring|^rtsel[ag]_/; };
+% my $ours= sub { $_[0] =~ m/^island|^archipelago|^routestring|^[RT]/; };
 <& "lookup:formhidden", ours => $ours &>
 
 <%perl>