From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Fri, 1 May 2015 14:47:44 +0000 (+0100)
Subject: sg-report-flight: Include actual status in column-head cells
X-Git-Tag: wip.libvirt-v3-base~213
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=4aa32f35817ebc35f5d4921cb21f869ac6d88efa;p=people%2Fliuw%2Fosstest.git

sg-report-flight: Include actual status in column-head cells

Adjust the $cell_html anonymous sub to include the actual step status
unless it is told not to (by passing it a new $core_only argument).

Change the main body call site to pass this option.  As a result the
column headings now include the step status.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
Acked-by: Ian Campbell <ian.campbell@citrix.com>
---

diff --git a/sg-report-flight b/sg-report-flight
index 7c9e52e..016f8d7 100755
--- a/sg-report-flight
+++ b/sg-report-flight
@@ -953,7 +953,7 @@ END
     print H "</th>";
 
     my $cell_html = sub {
-	my ($ei) = @_;
+	my ($ei, $core_only) = @_;
 	# => ($h, $priority);
 	my $s= $ei->{Step};
 	my $sum_core= $ei->{SummaryCore};
@@ -965,6 +965,7 @@ END
 	    $sum_core= $s->{status};
 	    ($bgc,$priority)= html_status2_colour_priority($s->{status});
 	} else {
+	    $sum_core= "$s->{status} $sum_core" unless $core_only;
 	    ($bgc,$priority) =
 		$ei->{Blocker} eq 'regression'
 		? ('#ff8888',400)
@@ -1039,7 +1040,7 @@ END
             if ($ei) {
                 $deferred_cells->(1);
                 my $s= $ei->{Step};
-		my ($h,$priority,$ch) = $cell_html->($ei);
+		my ($h,$priority,$ch) = $cell_html->($ei, 1);
                 print H "<td ",$ch,">",$h,"</td>";
             } else {
                 $ndeferred++;