$capacitystring => '';
$lossperleague => '';
$capitalstring => '';
+$minprofitstring => '';
$someresults
$emsgokorprint
+$allargs
</%args>
<%perl>
my @warningfs;
my @archipelagoes;
my @islandids;
-my ($max_volume, $max_mass);
-my $lossperleaguepct;
-my $capital;
my $qa= \%ARGS;
</%perl>
-<h1>Specify route</h1>
-
% # Sadly we need to do this rather hacky thing to make it be a POST
% # form if the user has already selected some thing(s)
% if (!$qa->{Dropdowns}) {
% } (0..$qa->{Dropdowns}-1));
% }
+<div class="query">
+
+<h1>Specify route</h1>
+
% $prselector->('ShowStalls');
<& enter_route, qa => $qa, dbh => $dbh, emsg_r => \$emsg,
&>
%#---------- textboxes, user enters details as strings ----------
+% my $routeparams= { EmsgRef => \$emsg };
% if (!$qa->{Dropdowns}) {
-<strong>Advanced options - you may leave these blank:</strong>
+<input type=submit name=submit value="<% $goupdate->() %>">
<p>
-<table>
-<tr>
-<td>
-
-Vessel or capacity:
-<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'cs',
- thingstring => 'capacitystring', emsgstore => \$emsg,
- helpref => 'capacity',
- onresults => sub { ($max_mass,$max_volume) = @_; }
- &>
- size=40
-</&>
-<td>
-
-
-
-<td>
-Expected losses:
-
-<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'll',
- thingstring => 'lossperleague', emsgstore => \$emsg,
- helpref => 'losses',
- onresults => sub { ($lossperleaguepct)= @_; }
- &>
- size=9
-</&>
-</tr>
-<tr>
-
-<td>Available capital:
-
-<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'ac',
- thingstring => 'capitalstring', emsgstore => \$emsg,
- helpref => 'capital',
- onresults => sub { ($capital)= @_; }
- &>
- size=9
-</&>
-</td>
-</tr>
-</table>
+<& enter_advrouteopts, qa=>$qa, dbh=>$dbh,
+ minprofit_needs_apply => $be_post,
+ routeparams=>$routeparams &>
% } #---------- end of dropdowns, now common middle of page code ----------
-<input type=submit name=submit value="<% $goupdate->() %>">
% my $ours= sub { $_[0] =~
-% m/^island|^archipelago|^routestring|^capacitystring|^lossperleague|^capitalstring|^[RT]/;
+% m/^island|^archipelago|^routestring|^capacitystring|^lossperleague|^capitalstring|^minprofitstring|^[RT]/;
% };
<& "lookup:formhidden", ours => $ours &>
+</div>
+<div class="results">
<%perl>
#========== results ==========
</%perl>
% if (@islandids) {
-% $someresults->('Relevant trades');
+% $someresults->();
<& routetrade,
dbh => $dbh,
islandids => \@islandids,
archipelagoes => \@archipelagoes,
- qa => $qa,
- max_mass => $max_mass,
- max_volume => $max_volume,
- lossperleaguepct => $lossperleaguepct,
- max_capital => $capital
+ qa => $qa, quri => $quri,
+ routeparams => $routeparams,
+ reset_suppressions => !!$allargs->{'apply_minprofit'}
&>
% }
+</div>
</form>