User: knarf Date: 2010/06/16 01:52 PM
Modified: /release-info/ parse_testsuite_results.cgi
Log: output table header also at bottom
File Changes:
Directory: /release-info/ =========================
File [modified]: parse_testsuite_results.cgi Delta lines: +13 -2 =================================================================== --- release-info/parse_testsuite_results.cgi 2010-06-16 18:50:40 UTC (rev 230) +++ release-info/parse_testsuite_results.cgi 2010-06-16 18:52:41 UTC (rev 231) @@ -59,7 +59,6 @@
my %allhosts = (); my %alltests = (); -my $table_entries = "<tr><th rowspan='2'>Thorn</th><th rowspan='2'>Test</th>"; foreach my $thorn (sort(keys(%results))) { if (!defined($alltests{$thorn})) { $alltests{$thorn} = (); @@ -78,6 +77,7 @@ } } } +my $table_entries = "<tr><th rowspan='2'>Thorn</th><th rowspan='2'>Test</th>"; foreach my $host (sort(keys(%allhosts))) { $table_entries .= "<th colspan='".scalar(keys(%{$allhosts{$host}}))."'>$host</th>"; } @@ -89,7 +89,6 @@ } $table_entries .= "</tr>\n";
- my $tr = "<tr>"; foreach my $thorn (sort(keys(%alltests))) { my $nr_tests = scalar(keys(%{$alltests{$thorn}})); @@ -128,6 +127,18 @@ $table_entries .= "</tr>\n"; $tr="<tr>"; } } +my $table_entries = "<tr><th rowspan='2'>Thorn</th><th rowspan='2'>Test</th>"; +foreach my $host (sort(keys(%allhosts))) { + $table_entries .= "<th colspan='".scalar(keys(%{$allhosts{$host}}))."'>$host</th>"; +} +$table_entries .= "</tr>\n<tr>"; +foreach my $host (sort(keys(%allhosts))) { + foreach my $nprocs (sort(keys(%{$allhosts{$host}}))) { + $table_entries .= "<th>$nprocs</th>"; + } +} +$table_entries .= "</tr>\n"; + $table_entries .= "<tr><th colspan='2'>Total</th>"; foreach my $host (sort(keys(%allhosts))) { foreach my $nprocs (sort(keys(%{$allhosts{$host}}))) {