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

[knarf at cct.lsu.edu]

User: knarf
Date: 2010/06/16 07:55 PM

Modified:
 /release-info/
  parse_testsuite_results.cgi

Log:
 reorder

File Changes:

Directory: /release-info/
=========================

File [modified]: parse_testsuite_results.cgi
Delta lines: +7 -6
===================================================================
--- release-info/parse_testsuite_results.cgi	2010-06-17 00:53:50 UTC (rev 257)
+++ release-info/parse_testsuite_results.cgi	2010-06-17 00:55:27 UTC (rev 258)
@@ -131,24 +131,25 @@
 foreach my $host (sort(keys(%allhosts))) {
   $table_entries .= "<th colspan='".scalar(keys(%{$allhosts{$host}}))."'>$host</th>";
 }
-$table_entries .= "</tr>\n<tr>";
+$table_entries .= "</tr>\n";
+my $table_entries_h = "<tr>";
 foreach my $host (sort(keys(%allhosts))) {
   foreach my $nprocs (sort(keys(%{$allhosts{$host}}))) {
     my $color = " style=\"background-color:#d0d0d0;\"";
     if ($nprocs != "1") { $color = " style=\"background-color:#e0e0e0;\""; }
-    $table_entries .= "<th$color>$nprocs</th>";
+    $table_entries_h .= "<th$color>$nprocs</th>";
   }
 }
-$table_entries .= "</tr><tr>\n";
+$table_entries_h .= "</tr><tr>\n";
 foreach my $host (sort(keys(%allhosts))) {
   foreach my $nprocs (sort(keys(%{$allhosts{$host}}))) {
     my $color = " style=\"background-color:#d0d0d0;\"";
     if ($nprocs != "1") { $color = " style=\"background-color:#e0e0e0;\""; }
-    $table_entries .= "<td$color align='center'><b>".$allhosts{$host}{$nprocs}{"fail"}."</b>/".
-                                                     $allhosts{$host}{$nprocs}{"ran"}."</td>";
+    $table_entries_h .= "<td$color align='center'><b>".$allhosts{$host}{$nprocs}{"fail"}."</b>/".
+                                                       $allhosts{$host}{$nprocs}{"ran"}."</td>";
   }
 }
-my $table_entries_h = "<tr><th rowspan='2'>Totals</th>";
+$table_entries_h .= "<tr><th rowspan='2'>Totals</th>";
 $table_entries_h .= "</tr><tr><td>Failing</td>\n";
 foreach my $host (sort(keys(%allhosts))) {
   foreach my $nprocs (sort(keys(%{$allhosts{$host}}))) {