Compress flow ids

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

diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index b2c52b158f3b7c6531b48fbf9b0b34677ed56df8..adcb89deea5b2a7af860c79b5c9403756a811158 100644 (file)
--- a/yarrg/web/query_route
+++ b/yarrg/web/query_route
@@ -166,9 +166,8 @@ 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/; };
+% my $ours= sub { $_[0] =~ m/^island|^archipelago|^routestring|^[RT]/; };
 <& "lookup:formhidden", ours => $ours &>
-</form>
 
 <%perl>
 #========== results ==========
@@ -213,4 +212,5 @@ for my $dd (0..$qa->{Dropdowns}-1) {
    archipelagoes => \@archipelagoes,
    qa => $qa
  &>
+</form>
 % }