[Commits] [svn:einsteintoolkit] www/release-info/ (Rev. 231)

[knarf at cct.lsu.edu]

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}}))) {