Highlight PO files with errors in red on the web site.

diff --git a/wwwtools/nls-status-page b/wwwtools/nls-status-page
index 3e177fcd1fc31f0281790554914ead7c15caa4c6..9fcc644a7b224be11a1d1a3eeeb1ec3f1ba4333c 100755 (executable)
--- a/wwwtools/nls-status-page
+++ b/wwwtools/nls-status-page
@@ -18,6 +18,7 @@ a { color: #0092C3; }
 .newpo { color: #666; visibility: visible; }
 .qualifiedpo { background-color: #FFFF00; }
 .fullpo { background-color: #00FF00; }
+.errorpo { background-color: #FF0000; }
 </style>
 <script type="text/javascript">
 function getStyleClass (className) {

diff --git a/wwwtools/nls-status-table b/wwwtools/nls-status-table
index d81b7cfe26d76307b935c44e7293fb306d153f47..43a61250fb8e1e1889f414449774059f5f745f28 100755 (executable)
--- a/wwwtools/nls-status-table
+++ b/wwwtools/nls-status-table
@@ -108,9 +108,11 @@ foreach my $catalog (sort @catalogs) {
     foreach my $lang (@all_lang) {
        my $pct = $everything->{$catalog}{$lang};
        print "<td align=\"center\"";
-        if (defined $pct and int($pct) == 100 and !$errors->{"$catalog"}{"$lang"}) {
+       if ($errors->{"$catalog"}{"$lang"}) {
+           print " class='errorpo'";
+        } elsif (defined $pct and int($pct) == 100) {
            print " class='fullpo'";
-        } elsif (defined $pct and $pct >= $QUALIFIED_CUTOFF and !$errors->{"$catalog"}{"$lang"}) {
+        } elsif (defined $pct and $pct >= $QUALIFIED_CUTOFF) {
            print " class='qualifiedpo'";
         }
        print ">";