[Xen-devel] [OSSTEST PATCH 5/6] sg-report-flight: Include actual status in column-head cells

[Ian Jackson <ian.jackson@xxxxxxxxxxxxx>]

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@xxxxxxxxxxxxx>
---
 sg-report-flight |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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++;
-- 
1.7.10.4


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxx
http://lists.xen.org/xen-devel