From c17a10400f22cd4ff1a1b853c40320dedca49e49 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Franti=C5=A1ek=20Dvo=C5=99=C3=A1k?= <valtri@civ.zcu.cz>
Date: Sun, 26 May 2013 16:08:43 +0200
Subject: [PATCH] HTML validation of dashboard (XHTML 1.0 Strict).

---
 dashboard.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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";
-- 
1.8.2.3