From: František Dvořák Date: Sun, 11 Mar 2012 18:42:39 +0000 (+0100) Subject: Fix colour thingy. X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=b0fe7105d4fa341c80e829caeaaf461ede8cb251;p=meta-dashboard.git Fix colour thingy. --- diff --git a/dashboard.pl b/dashboard.pl index 4ea2d87..5270d3b 100755 --- 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="$result error"; } - else { $result="$result errors"; } } else { if ($section == 0) { $result = 'Error'; } else { $result = 'Failed'; } @@ -208,9 +206,12 @@ print qq( 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="$item->{result} error"; } + else { $result="$item->{result} errors"; } + print " $item->{date}
{dir}/\">$result\n"; } else { print " \n"