<link rel="stylesheet" type="text/css" media="all" href="/base.css">
</head>
-<body>
+<body id="charset">
<h1>Character encoding</h1>
<:
return $_;
}
-print "<ul>\n";
-
my @nibble = (0..9, 'A'..'F');
for my $row (@request) {
- printf '<li><table class="glyphs%s">', !$row->{cell} && ' charmap';
+ printf '<div class="section"><table class="glyphs%s">', !$row->{cell} && ' charmap';
printf '<caption>%s</caption>', $row->{set};
print '<col>' x 17;
for my $section (qw{thead}) {
}
print "\n";
}
- print "</table>\n";
+ print "</table></div>\n";
}
-print "</ul>\n";
-
:>
<hr>