Some useful parameters are in %$routeparams:
${ $routeparams->{EmsgRef} }
- $routeparams->{SayOptionalCapital}
+ $routeparams->{SayRequiredCapacity}
The results are returned there:
$routeparams->{LossPerLeaguePct}
$routeparams->{MaxMass}
$routeparams->{MaxVolume}
$routeparams->{MaxCapital}
+ $routeparams->{MinProfit}
</%doc>
$qa
$dbh
$routeparams
+$minprofit_needs_apply => 0
</%args>
+<%method advanced>
+<strong>Advanced options - you may leave these blank:</strong>
+<p>
+</%method>
+
+% if (!$routeparams->{SayRequiredCapacity}) {
+<& SELF:advanced &>
+% }
+
<table><tr><td>
Vessel or capacity:
-<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'cs',
+<& qtextstring, qa => $qa, dbh => $dbh, prefix => 'cs',
thingstring => 'capacitystring', emsgstore => $routeparams->{EmsgRef},
- helpref => 'capacity',
+ helpref => 'capacity', boxopts => 'size=30',
onresults => sub {
($routeparams->{MaxMass}, $routeparams->{MaxVolume}) = @_;
}
&>
- size=40
-</&>
<td>
-<td>
-Expected losses:
-
-<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'll',
- thingstring => 'lossperleague', emsgstore => $routeparams->{EmsgRef},
- helpref => 'losses',
- onresults => sub { ($routeparams->{LossPerLeaguePct})= @_; }
+<td>Minimum trade value:
+<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'mt', checkkind => 'poe',
+ thingstring => 'minprofitstring', emsgstore => $routeparams->{EmsgRef},
+ helpref => 'minprofit', boxopts => 'size=9',
+ onresults => sub {
+ ($routeparams->{MinProfit}) = @_;
+ }
&>
- size=9
+% if ($minprofit_needs_apply) {
+<input type=submit name="apply_minprofit" value="Apply">
+% }
</&>
</table>
<table><tr>
-<td>Available capital<%
- $routeparams->{SayOptionalCapital} ? ' (optional)' : '' %>:
+<td>Available capital:
-<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'ac',
+<& qtextstring, qa => $qa, dbh => $dbh, prefix => 'ac', checkkind => 'poe',
thingstring => 'capitalstring', emsgstore => $routeparams->{EmsgRef},
- helpref => 'capital',
+ helpref => 'capital', boxopts => 'size=9',
onresults => sub { ($routeparams->{MaxCapital})= @_; }
&>
- size=9
-</&>
+
+<td>
+
+
+
+<td>
+Expected losses:
+
+<& qtextstring, qa => $qa, dbh => $dbh, prefix => 'll',
+ thingstring => 'lossperleague', emsgstore => $routeparams->{EmsgRef},
+ helpref => 'losses', boxopts => 'size=9',
+ onresults => sub { ($routeparams->{LossPerLeaguePct})= @_; }
+ &>
<% $m->content %>