[Commits] [svn:einsteintoolkit] www/release-info/ (Rev. 254)
knarf at cct.lsu.edu
knarf at cct.lsu.edu
Wed Jun 16 18:03:45 CDT 2010
User: knarf
Date: 2010/06/16 06:03 PM
Modified:
/release-info/
parse_testsuite_results.cgi
Log:
give up on css
File Changes:
Directory: /release-info/
=========================
File [modified]: parse_testsuite_results.cgi
Delta lines: +13 -5
===================================================================
--- release-info/parse_testsuite_results.cgi 2010-06-16 22:55:41 UTC (rev 253)
+++ release-info/parse_testsuite_results.cgi 2010-06-16 23:03:45 UTC (rev 254)
@@ -127,7 +127,7 @@
$table_entries .= "</tr>\n"; $tr="<tr>";
}
}
-$table_entries .= "<tr><th rowspan='4' colspan='2'>Total failing</th>";
+$table_entries .= "<tr><th rowspan='5' colspan='2'>Total failing</th>";
foreach my $host (sort(keys(%allhosts))) {
$table_entries .= "<th colspan='".scalar(keys(%{$allhosts{$host}}))."'>$host</th>";
}
@@ -154,12 +154,20 @@
my $color = " style=\"background-color:#d0d0d0;\"";
if ($nprocs != "1") { $color = " style=\"background-color:#e0e0e0;\""; }
$table_entries .= "<td$color align='center' valign='bottom'>".
- "<img src='red.png' alt='fail' width='20px' style='position:relative;z-index:0;bottom:0px;' height='".
- $allhosts{$host}{$nprocs}{"ran"}."px'/><br/>".
- "<img src='green.png' alt='success' width='20px' style='position:relative;z-index:1;bottom:0px;' height='".
- $allhosts{$host}{$nprocs}{"fail"}."px'/></td>";
+ "<img src='red.png' alt='fail' width='20px' height='".
+ $allhosts{$host}{$nprocs}{"fail"}."px'/></td>\n";
}
}
+$table_entries .= "</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' valign='top'>".
+ "<img src='green.png' alt='success' width='20px' height='".
+ $allhosts{$host}{$nprocs}{"success"}."px'/></td>\n";
+ }
+}
$table_entries .= "</tr>\n";
print "<table border='1'>$table_entries</table>\n";
More information about the Commits
mailing list