HTML validation of dashboard (XHTML 1.0 Strict).

diff --git a/dashboard.pl b/dashboard.pl
index 1623616..c793a69 100755 (executable)
--- 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";