Compress flow ids

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

diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index 18c3ecb1390af1f2d3a3fc4f2108d2a64f5c90ce..adcb89deea5b2a7af860c79b5c9403756a811158 100644 (file)
--- a/yarrg/web/query_route
+++ b/yarrg/web/query_route
@@ -166,7 +166,7 @@ function ms_Setarch(dd) {
 % } #---------- end of dropdowns, now common middle of page code ----------
 
 <input type=submit name=submit value="Go">
 % } #---------- 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>
 <& "lookup:formhidden", ours => $ours &>
 
 <%perl>