From: František Dvořák <valtri@civ.zcu.cz>
Date: Sun, 26 May 2013 14:08:43 +0000 (+0200)
Subject: HTML validation of dashboard (XHTML 1.0 Strict).
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=c17a10400f22cd4ff1a1b853c40320dedca49e49;p=meta-dashboard.git

HTML validation of dashboard (XHTML 1.0 Strict).
---

diff --git a/dashboard.pl b/dashboard.pl
index 1623616..c793a69 100755
--- a/dashboard.pl
+++ b/dashboard.pl
@@ -225,15 +225,15 @@ print qq(<?xml version="1.0" encoding="UTF-8"?>
 	foreach my $c (sort keys %components) {
 		if ( $installs ) { print "		<th class=\"scen\">Install</th>\n"; }
 		if ( $upgrades ) { print "		<th class=\"scen\">Upgrade</th>\n"; }
-		if ( $distupgrades ) { print "		<th class=\"scen\">Dist<BR>Upgrade</th>\n"; }
-		if ( $doubledistupgrades ) { print "		<th class=\"scen\">Dbl. Dist<BR>Upgrade</th>\n"; }
+		if ( $distupgrades ) { print "		<th class=\"scen\">Dist<br/>Upgrade</th>\n"; }
+		if ( $doubledistupgrades ) { print "		<th class=\"scen\">Dbl. Dist<br/>Upgrade</th>\n"; }
 	}
 
 	
 	print "	</tr>\n";
 	foreach my $p (sort keys %platforms) {
 		$pout=$p;
-		$pout =~ s/-/<BR>/;
+		$pout =~ s/-/<br\/>/;
 		print "	<tr class=\"platf\">\n		<th class=\"cert\">$pout</th>\n";
 		foreach my $c (sort keys %components) {
 			if ( $installs ) {
@@ -316,7 +316,7 @@ print qq(<?xml version="1.0" encoding="UTF-8"?>
 	}
 	print "<tr class=\"overallreps\"><td class=\"overallreps\"></td>\n";
 	foreach my $c (sort keys %components) {
-		print "		<td class=\"overallreps\" colspan=\"$colsforeach\">Get <A HREF=\"report-$c.twiki\" type=\"text/html\"><B>Report</B></A></td>\n";
+		print "		<td class=\"overallreps\" colspan=\"$colsforeach\">Get <a href=\"report-$c.twiki\" type=\"text/html\"><b>Report</b></a></td>\n";
 	}
 	print "	</tr>\n";
 	print "</table>\n\n";