routesearch: proper titles and pretty up the results

diff --git a/yarrg/TODO b/yarrg/TODO
index f8988df57d8f8a3354ce73e6c5359ef9666639b0..baba7a012056a70b4c582363760b49024262a6c7 100644 (file)
--- a/yarrg/TODO
+++ b/yarrg/TODO
@@ -1,8 +1,5 @@
 query_routesearch:
 
 query_routesearch:
 

-       ap=A, ap=P turn into proper headings
-       notes about leagues
-

        links to per-route pages
 
        nice routesearch
        links to per-route pages
 
        nice routesearch

diff --git a/yarrg/web/query_routesearch b/yarrg/web/query_routesearch
index dc8c230c54767b3b5310004eed0d6b48c495d4db..e5e7c6b98619c48174328badb9e501623113df47 100644 (file)
--- a/yarrg/web/query_routesearch
+++ b/yarrg/web/query_routesearch
@@ -249,7 +249,11 @@ seconds of CPU time so more processing resources should be available soon.
 
 </%perl>
 % foreach my $ap (qw(A P)) {
 
 </%perl>
 % foreach my $ap (qw(A P)) {

-<h2>ap=<% $ap %></h2>
+%      if ($ap eq 'A') {
+<h2>Best routes for total profit</h2>
+%      } else {
+<h2>Best routes for profit per league</h2>
+%      }

 <table rules=groups>
 <colgroup span=2>
 <colgroup span=1>
 <table rules=groups>
 <colgroup span=2>
 <colgroup span=1>


@@ -289,6 +293,16 @@ seconds of CPU time so more processing resources should be available soon.
 %      } # $isles
 </table>
 % } # $ap
 %      } # $isles
 </table>
 % } # $ap

+
+<p>
+
+<h2>Notes</h2>
+
+Per league values count each island visited as one
+(additional) league; the `Dist.' column is however the actual distance
+to be sailed.  All profit figures are somewhat approximate; get a
+complete trading plan for a route for accurate information.
+

 <%perl>
 
 
 <%perl>