Fix colour thingy.

diff --git a/dashboard.pl b/dashboard.pl
index 4ea2d87..5270d3b 100755 (executable)
--- a/dashboard.pl
+++ b/dashboard.pl
@@ -72,8 +72,6 @@ foreach my $s (keys %list) {
                                if ($section == 0 && ($yaim_used != 0 || $yaim_finished == 0)) {
                                        $result=`grep -- '-TEST FAILED-' $item->{dir}/report.twiki 2>/dev/null| wc -l | sed 's/ *//g'`;
                                        chomp $result;
-                                       if ( "$result" == "1" ) { $result="<B>$result error</B>"; }
-                                       else { $result="<B>$result errors</B>"; }
                                } else {
                                        if ($section == 0) { $result = '<B>Error</B>'; }
                                        else { $result = '<B>Failed</B>'; }
@@ -208,9 +206,12 @@ print qq(<?xml version="1.0" encoding="UTF-8"?>
                foreach my $c (sort keys %components) {
                        $item = $list{install}{$c}{$p};
                        if (defined $item) {
-                               $result = $item->{result};
                                if ($item->{result} eq '0') { $class='OK'; }
                                else { $class='FAIL'; }
+
+                               if ( $item->{result} == "0" ) { $result="<B>$item->{result} error</B>"; }
+                               else { $result="<B>$item->{result} errors</B>"; }
+
                                print "         <td class=\"$class\"><span class=\"date\">$item->{date}</span><br/><a href=\"$item->{dir}/\">$result</a></td>\n";
                        } else {
                                print "         <td class=\"NA\"></td>\n"