where-vessels: subclass smasher works; need to reorg to be a grid like Show

[ypp-sc-tools.db-live.git] / yarrg / web / check_lossperleague

diff --git a/yarrg/web/check_lossperleague b/yarrg/web/check_lossperleague
index 937535521dd4209a254a7efa2d9d81464f6b2527..3198d41df3bec1b2ca72a388e4105daed72615c2 100644 (file)
--- a/yarrg/web/check_lossperleague
+++ b/yarrg/web/check_lossperleague
@@ -46,7 +46,7 @@ s/^\s+//; s/\s+$//;
 my ($pct,$str);
 
 if (!m/\S/) {
-       $str= '';
+       return ('[no losses]', undef);
 } elsif (m/^(\d{1,2}(?:\.\d{0,5})?)\%$/) {
        $pct= $1 * 1.0;
        $str= sprintf("%g%%", $1);
@@ -54,10 +54,10 @@ if (!m/\S/) {
        $pct= 100.0/$1;
        $str= sprintf("1/%d", $1);
 } else {
-       expected_error("Cannot understand loss per league \`$_'.");
+       expected_error("Cannot understand loss per league ".escerrq($_).".");
 }
 
-return ("$str per league", $pct);
+return ("$str [per league]", $pct);
 
 </%perl>
 </%method>