-</%perl>
-
-<h1>Specify route</h1>
-
-% $prselector->('ShowStalls');
-
-%#---------- textbox, user enters route as string ----------
-% if (!$qa->{Dropdowns}) {
-
-Enter route (islands, or archipelagoes, separated by |s or commas;
- abbreviations are OK):<br>
-
-<form action="<% $quri->() |h %>" method="get">
-
-<&| qtextstring, qa => $qa, dbh => $dbh,
- thingstring => 'routestring', emsgstore => \$emsg,
- perresult => sub {
- my ($canonname, $island, $arch) = @_;
- push @islandids, $island;
- push @archipelagoes, defined $island ? undef : $arch;
- }
- &>
- size=80
-</&>
-
-% } else { #---------- dropdowns, user selects from menus ----------