routesearch: middle arch is middle in list of arches, not arch of middle isle

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

diff --git a/yarrg/web/enter_route b/yarrg/web/enter_route
index 58b29f4f13387c4916cd8348e8d49e2eeddccb24..c21d967de469d24d8b32b2aa4363d66fb2824e5b 100644 (file)
--- a/yarrg/web/enter_route
+++ b/yarrg/web/enter_route
@@ -51,8 +51,8 @@ $archipelagoes_r
 <% $enterwhat %> (islands, or archipelagoes, separated by |s or commas;
  abbreviations are OK):<br>
 
-<&| qtextstring, qa => $qa, dbh => $dbh,
-    thingstring => 'routestring', emsgstore => $emsg_r,
+<&| qtextstring, qa => $qa, dbh => $dbh, emsgstore => $emsg_r,
+    thingstring => 'routestring', prefix => 'rl',
     onresults => sub {
        foreach (@_) {
        my ($canonname, $island, $arch) = @$_;
@@ -186,5 +186,6 @@ for my $dd (0..$qa->{Dropdowns}-1) {
 }
 
 </%perl>
+<p>
 
 % }