Add [?] links to help for advanced strings

diff --git a/yarrg/web/docs b/yarrg/web/docs
index 6ed64d1e223f0cb2c7300160eacac3c7c989ee8f..6f754bff46e258472de8c5d413723ab7fa8eb117 100755 (executable)
--- a/yarrg/web/docs
+++ b/yarrg/web/docs
@@ -101,7 +101,7 @@ After getting the results, you can untick various trades individually,
 and select `Update' to get a new plan.  The unticked trades will be
 excluded from the voyage plan (if any) and also from the totals.
 
 and select `Update' to get a new plan.  The unticked trades will be
 excluded from the voyage plan (if any) and also from the totals.
 

-<h3>Vessel capacity</h3>
+<h3><a name="capacity">Vessel capacity</a></h3>

 
 If you don't specify a vessel or a vessel capacity, the trading plan
 will not take into account the fact that your voyage will be on a ship
 
 If you don't specify a vessel or a vessel capacity, the trading plan
 will not take into account the fact that your voyage will be on a ship


@@ -139,7 +139,7 @@ all the preceding terms.  The first term may be a ship name or
 abbrevation instead.  If the first term specifies only one of mass or
 volume, all the subsequent terms may only adjust that same value.
 
 abbrevation instead.  If the first term specifies only one of mass or
 volume, all the subsequent terms may only adjust that same value.
 

-<h3>Expected losses</h3>
+<h3><a name="losses">Expected losses</a></h3>

 
 In theory if you were guaranteed to have a trouble-free voyage it
 would be worth trading goods at very low margins.  However, in
 
 In theory if you were guaranteed to have a trouble-free voyage it
 would be worth trading goods at very low margins.  However, in

diff --git a/yarrg/web/qtextstring b/yarrg/web/qtextstring
index 639e9abf25bc3a3db06a091f776138e856c32092..d57f863490fda37637957afd0e988be1e1c4f14d 100644 (file)
--- a/yarrg/web/qtextstring
+++ b/yarrg/web/qtextstring
@@ -42,6 +42,7 @@ $thingstring
 $emsgstore
 $perresult
 $prefix => 'ts';
 $emsgstore
 $perresult
 $prefix => 'ts';

+$helpref => undef;

 </%args>
 <%perl>
 my $stringval= $qa->{$thingstring};
 </%args>
 <%perl>
 my $stringval= $qa->{$thingstring};


@@ -97,7 +98,7 @@ register_onload(<%$p%>Needed);
  id="<% $thingstring %>" name="<% $thingstring %>"
  onchange="<%$p%>Needed();" onkeyup="<%$p%>Later();"
  value="<% $stringval |h %>"
  id="<% $thingstring %>" name="<% $thingstring %>"
  onchange="<%$p%>Needed();" onkeyup="<%$p%>Later();"
  value="<% $stringval |h %>"

- >
+ ><% defined($helpref) ? "<a href=\"docs#$helpref\">[?]</a>" : '' %>

 <br>
 <div id="<%$p%>results">&nbsp;</div><br>
 
 <br>
 <div id="<%$p%>results">&nbsp;</div><br>
 

diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index ed9fa4406c70ba1fd7aaaaad7dab4fe02f89a50e..9a6ca0829114c622552209991c1fb6e1901094f4 100644 (file)
--- a/yarrg/web/query_route
+++ b/yarrg/web/query_route
@@ -97,6 +97,7 @@ Enter route (islands, or archipelagoes, separated by |s or commas;
 Vessel or capacity:
 <&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'cs',
     thingstring => 'capacitystring', emsgstore => \$emsg,
 Vessel or capacity:
 <&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'cs',
     thingstring => 'capacitystring', emsgstore => \$emsg,

+    helpref => 'capacity',

     perresult => sub {
         ($max_mass,$max_volume) = @_;
     }
     perresult => sub {
         ($max_mass,$max_volume) = @_;
     }


@@ -113,9 +114,10 @@ Expected losses:
 
 <&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'll',
     thingstring => 'lossperleague', emsgstore => \$emsg,
 
 <&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'll',
     thingstring => 'lossperleague', emsgstore => \$emsg,

+    helpref => 'losses',

     perresult => sub { ($lossperleaguepct)= @_; }
  &>
     perresult => sub { ($lossperleaguepct)= @_; }
  &>

- size=10
+ size=9

 </&>
 
 </table>
 </&>
 
 </table>