index: show tests failed since last run in red
authorMans Rullgard <mans@mansr.com>
Sat, 29 Jan 2011 22:34:22 +0000 (22:34 +0000)
committerMans Rullgard <mans@mansr.com>
Sat, 29 Jan 2011 22:34:22 +0000 (22:34 +0000)
index.cgi

index c3c575a..213012c 100755 (executable)
--- a/index.cgi
+++ b/index.cgi
@@ -202,6 +202,8 @@ for my $rep (sort repcmp @reps) {
         my $report = load_report $$rep{slot}, $$rep{date};
         my @fail = grep $$_{status} ne '0', @{$$report{recs}};
         my $nfail = @fail;
+        my $lastpass = load_lastpass $$rep{slot};
+
         start 'tr', id => $slotid, class => 'slotfail';
         start 'td', colspan => 9;
         start 'table', class => 'minirep';
@@ -213,7 +215,9 @@ for my $rep (sort repcmp @reps) {
         end 'thead';
         start 'tbody';
         for (sort { $$a{name} cmp $$b{name} } @fail) {
-            start 'tr', class => 'alt hilight';
+            my $falert = $$rep{pdate} eq $$lastpass{$$_{name}}{date} ?
+              'alert' : '';
+            start 'tr', class => "alt hilight $falert";
             td $$_{name};
             td $$_{status}, class => 'errcode';
             end 'tr';