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 7c9e52e4a3960f27909cc84af33fc650d736244f..016f8d7f770fef6e003e8bb76649c6bf7dcbd730 100755 (executable)
--- 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++;