Cosmetic improvements to loss per league box

diff --git a/yarrg/web/check_lossperleague b/yarrg/web/check_lossperleague
index aaeb5b0cf381ba124fe0c1354520a57de6e680b5..5994f6fdd8373831c1402499a5de0f7ddbc02fa7 100644 (file)
--- a/yarrg/web/check_lossperleague
+++ b/yarrg/web/check_lossperleague
@@ -48,7 +48,7 @@ s/^\s+//; s/\s+$//;
 my $res= sub {
        my ($pct,$str) = @_;
        push @{ $h->{Results} }, [ $pct ];
 my $res= sub {
        my ($pct,$str) = @_;
        push @{ $h->{Results} }, [ $pct ];

-       ${ $h->{Canon} }= "Considering expected losses of $str per league";
+       ${ $h->{Canon} }= "$str per league";

 };
 
 if (!m/\S/) {
 };
 
 if (!m/\S/) {

diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index 296c0126f8989fb1a22c897605e197944a1771d0..cfe03df4202d0d1db8fb6917f964b0ac229ae101 100644 (file)
--- a/yarrg/web/query_route
+++ b/yarrg/web/query_route
@@ -109,7 +109,7 @@ Vessel capacity:
  
 
 <td>
 &nbsp;
 
 <td>

-Estimated loss per league:
+Expected losses:

 
 <&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'll',
     thingstring => 'lossperleague', emsgstore => \$emsg,
 
 <&| qtextstring, qa => $qa, dbh => $dbh, prefix => 'll',
     thingstring => 'lossperleague', emsgstore => \$emsg,