my @islandids;
my $qa= \%ARGS;
-my $routeparams= { EmsgRef => \$emsg, SayOptionalCapital => 1 };
+my $routeparams= { EmsgRef => \$emsg, SayRequiredCapacity => 1 };
my $maxdist;
</%perl>
&>
<&| enter_advrouteopts, qa=>$qa, dbh=>$dbh, routeparams=>$routeparams &>
+<td>
+
+
<td>
Maximum distance:
<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'ml',
thingstring => 'distance', emsgstore => \$emsg,
onresults => sub { ($maxdist)= @_; } &>
+ size=10
</&>
</&>