Permit entry of loss per league

[ypp-sc-tools.main.git] / yarrg / web / routetrade

diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade
index 7f7d27f45d26d51a25c20b42ff66003e60d6848a..9a6824e97ced58bb08b3e84b11e43f975fe8505f 100644 (file)
--- a/yarrg/web/routetrade
+++ b/yarrg/web/routetrade
@@ -38,11 +38,24 @@ $dbh
 @islandids
 @archipelagoes
 $qa
+$max_mass
+$max_volume
+$lossperleaguepct
 </%args>
 <&| script &>
   da_pageload= Date.now();
 </&script>
 
+% if (defined $max_mass || defined $max_volume) {
+<strong>WARNING - VESSEL CAPACITY LIMIT NOT YET IMPLEMENTED</strong>
+<p>
+% }
+% if (defined $lossperleaguepct) {
+<strong>WARNING - DEFINED LOSS PER LEAGUE NOT YET IMPLEMENTED</strong>
+<% $lossperleaguepct |h %>
+<p>
+% }
+
 <%perl>
 
 my $now= time;
@@ -643,7 +656,7 @@ $addcols->({ Total => 0, DoReverse => 1 }, qw(
      }
 
      my $total;
-     my $dline= 1;
+     my $dline= 0;
      my $show_flows= sub {
        my ($od,$arbitrage,$collectdeliver) = @_;
 </%perl>
@@ -699,7 +712,7 @@ $addcols->({ Total => 0, DoReverse => 1 }, qw(
 %              $total_total += $sign * $total;
 %      }
 %      $total= undef;
-%      $dline= 1;
+%      $dline= 0;
 <%perl>
      };