[Commits] [svn:einsteintoolkit] www/release-info/ (Rev. 257)
knarf at cct.lsu.edu
knarf at cct.lsu.edu
Wed Jun 16 19:53:50 CDT 2010
User: knarf
Date: 2010/06/16 07:53 PM
Modified:
/release-info/
parse_testsuite_results.cgi
Log:
reorder
File Changes:
Directory: /release-info/
=========================
File [modified]: parse_testsuite_results.cgi
Delta lines: +9 -6
===================================================================
--- release-info/parse_testsuite_results.cgi 2010-06-16 23:20:10 UTC (rev 256)
+++ release-info/parse_testsuite_results.cgi 2010-06-17 00:53:50 UTC (rev 257)
@@ -127,7 +127,7 @@
$table_entries .= "</tr>\n"; $tr="<tr>";
}
}
-$table_entries .= "<tr><th rowspan='5' colspan='2'>Total failing</th>";
+$table_entries .= "<tr><th rowspan='3' colspan='2'> </th>";
foreach my $host (sort(keys(%allhosts))) {
$table_entries .= "<th colspan='".scalar(keys(%{$allhosts{$host}}))."'>$host</th>";
}
@@ -148,26 +148,29 @@
$allhosts{$host}{$nprocs}{"ran"}."</td>";
}
}
-$table_entries .= "</tr><tr>\n";
+my $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}}))) {
my $color = " style=\"background-color:#d0d0d0;\"";
if ($nprocs != "1") { $color = " style=\"background-color:#e0e0e0;\""; }
- $table_entries .= "<td$color align='center' valign='bottom'>".
+ $table_entries_h .= "<td$color align='center' valign='bottom'>".
"<img src='red.png' alt='fail' width='20px' height='".
$allhosts{$host}{$nprocs}{"fail"}."px'/></td>\n";
}
}
-$table_entries .= "</tr><tr>\n";
+$table_entries_h .= "</tr><tr><td>Succeeding</th>\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' valign='top'>".
+ $table_entries_h .= "<td$color align='center' valign='top'>".
"<img src='green.png' alt='success' width='20px' height='".
$allhosts{$host}{$nprocs}{"success"}."px'/></td>\n";
}
}
-$table_entries .= "</tr>\n";
+$table_entries_h .= "</tr>\n";
+$table_entries = $table_entries_h . $table_entries;
+
print "<table border='1'>$table_entries</table>\n";
More information about the Commits
mailing list