From 20bea992a857ea1f03f19d81f7164b113a560e83 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.(none)>
Date: Sun, 11 Oct 2009 21:07:45 +0100
Subject: [PATCH] WIP routesearch UI: entry improvements re advanced options

---
 yarrg/web/enter_advrouteopts | 41 +++++++++++++++++++++++-------------
 yarrg/web/query_route        |  3 ---
 yarrg/web/query_routesearch  |  6 +++++-
 3 files changed, 31 insertions(+), 19 deletions(-)

diff --git a/yarrg/web/enter_advrouteopts b/yarrg/web/enter_advrouteopts
index c8a6ddb..95a7143 100644
--- a/yarrg/web/enter_advrouteopts
+++ b/yarrg/web/enter_advrouteopts
@@ -34,7 +34,7 @@
 
  Some useful parameters are in %$routeparams:
 	${ $routeparams->{EmsgRef} }
-	$routeparams->{SayOptionalCapital}
+	$routeparams->{SayRequiredCapacity}
  The results are returned there:
 	$routeparams->{LossPerLeaguePct}
 	$routeparams->{MaxMass}
@@ -49,6 +49,15 @@ $dbh
 $routeparams
 </%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:
@@ -62,6 +71,22 @@ Vessel or capacity:
  size=40
 </&>
 
+</table>
+% if ($routeparams->{SayRequiredCapacity}) {
+<& SELF:advanced &>
+% }
+<table><tr>
+
+<td>Available capital:
+
+<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'ac',
+    thingstring => 'capitalstring', emsgstore => $routeparams->{EmsgRef},
+    helpref => 'capital',
+    onresults => sub { ($routeparams->{MaxCapital})= @_; }
+ &>
+ size=9
+</&>
+
 <td>
 &nbsp;
 &nbsp;
@@ -77,20 +102,6 @@ Expected losses:
  size=9
 </&>
 
-</table>
-<table><tr>
-
-<td>Available capital<%
- $routeparams->{SayOptionalCapital} ? ' (optional)' : '' %>:
-
-<&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'ac',
-    thingstring => 'capitalstring', emsgstore => $routeparams->{EmsgRef},
-    helpref => 'capital',
-    onresults => sub { ($routeparams->{MaxCapital})= @_; }
- &>
- size=9
-</&>
-
 <% $m->content %>
 
 </table>
diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index 7871c3d..3c37d6f 100644
--- a/yarrg/web/query_route
+++ b/yarrg/web/query_route
@@ -90,9 +90,6 @@ my $goupdate= sub { $be_post ? 'Update' : 'Go' };
 % my $routeparams= { EmsgRef => \$emsg };
 % if (!$qa->{Dropdowns}) {
 
-<strong>Advanced options - you may leave these blank:</strong>
-<p>
-
 <& enter_advrouteopts, qa=>$qa, dbh=>$dbh, routeparams=>$routeparams &>
 
 % } #---------- end of dropdowns, now common middle of page code ----------
diff --git a/yarrg/web/query_routesearch b/yarrg/web/query_routesearch
index bbeba5b..93fcf0b 100644
--- a/yarrg/web/query_routesearch
+++ b/yarrg/web/query_routesearch
@@ -51,7 +51,7 @@ my @warningfs;
 my @islandids;
 
 my $qa= \%ARGS;
-my $routeparams= { EmsgRef => \$emsg, SayOptionalCapital => 1 };
+my $routeparams= { EmsgRef => \$emsg, SayRequiredCapacity => 1 };
 my $maxdist;
 
 </%perl>
@@ -70,11 +70,15 @@ This feature is not available from the "drop down menus" interface.
  &>
 
 <&| enter_advrouteopts, qa=>$qa, dbh=>$dbh, routeparams=>$routeparams &>
+<td>
+&nbsp;
+&nbsp;
 <td>
  Maximum distance:
  <&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'ml',
     thingstring => 'distance', emsgstore => \$emsg,
     onresults => sub { ($maxdist)= @_; } &>
+   size=10
  </&>
 </&>
 
-- 
2.30.2