X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fenter_advrouteopts;h=66b012890ec9824f6dac9680ec4ab866e0c9c3a1;hp=95a71433ddbf2e1ec4d18e9381131e41c937dfa9;hb=70abc75f17b353bb3f3e112d949056e753b7ecb3;hpb=05a607330cc73832ccc778cd10f69cbac8e6dba3

diff --git a/yarrg/web/enter_advrouteopts b/yarrg/web/enter_advrouteopts
index 95a7143..66b0128 100644
--- a/yarrg/web/enter_advrouteopts
+++ b/yarrg/web/enter_advrouteopts
@@ -40,6 +40,7 @@
 	$routeparams->{MaxMass}
 	$routeparams->{MaxVolume}
 	$routeparams->{MaxCapital}
+	$routeparams->{MinProfit}
 
 
 </%doc>
@@ -47,6 +48,7 @@
 $qa
 $dbh
 $routeparams
+$minprofit_needs_apply => 0
 </%args>
 
 <%method advanced>
@@ -61,31 +63,41 @@ $routeparams
 <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>
+&nbsp;
+&nbsp;
+
+<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}) = @_;
+    }
+ &>
+% if ($minprofit_needs_apply) {
+<input type=submit name="apply_minprofit" value="Apply">
+% }
 </&>
 
 </table>
-% if ($routeparams->{SayRequiredCapacity}) {
-<& SELF:advanced &>
-% }
 <table><tr>
 
 <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>
 &nbsp;
@@ -94,13 +106,11 @@ Vessel or capacity:
 <td>
 Expected losses:
 
-<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'll',
+<& qtextstring, qa => $qa, dbh => $dbh, prefix => 'll',
     thingstring => 'lossperleague', emsgstore => $routeparams->{EmsgRef},
-    helpref => 'losses',
+    helpref => 'losses', boxopts => 'size=9',
     onresults => sub { ($routeparams->{LossPerLeaguePct})= @_; }
  &>
- size=9
-</&>
 
 <% $m->content %>