<%args>
$quri
$dbh
+$islandstring => '';
$capacitystring => '';
$lossperleague => '';
$capitalstring => '';
+$distance => '';
+$someresults
$emsgokorprint
</%args>
my @islandids;
my $qa= \%ARGS;
-my $routeparams= { EmsgRef => \$emsg };
+my $routeparams= { EmsgRef => \$emsg, SayOptionalCapital => 1 };
my $maxdist;
+
</%perl>
<h1>Find most profitable routes and trades</h1>
<&| enter_advrouteopts, qa=>$qa, dbh=>$dbh, routeparams=>$routeparams &>
<td>
- Something:
+ Maximum distance:
<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'ml',
- thingstring => 'capitalstring', emsgstore => \$emsg,
+ thingstring => 'distance', emsgstore => \$emsg,
onresults => sub { ($maxdist)= @_; } &>
</&>
</&>
+<input type=submit name=submit value="Go">
+% my $ours= sub { $_[0] =~ m/^lossperleague|^islandstring|^capitalstring|^capacitystring|^distance/; };
+<& "lookup:formhidden", ours => $ours &>
% }
+
+</form>
+<%perl>
+
+$emsgokorprint->($emsg) or return;
+@islandids or return;
+
+</%perl>