summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
5a13264)
More strict adherence to strict HTML 4.01. Though most browsers could
parse it correctly already, it was certainly erroneous.
print '<table><col>';
print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;
print '<table><col>';
print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;
+print "</colgroup><col>\n";
for my $section (qw{thead tfoot}) {
print "<$section><tr><th> ";
for my $section (qw{thead tfoot}) {
print "<$section><tr><th> ";
- print "<th>$_" for map {@$_} @chars2;
+ print '<th>', quote($_) for map {@$_} @chars2;
+ print "<th> \n";
}
for my $c1group (@chars) {
print '<tbody>';
for my $c1 (@$c1group) {
}
for my $c1group (@chars) {
print '<tbody>';
for my $c1 (@$c1group) {
+ print '<tr><th>', quote($c1);
for my $c2 (map {@$_} @chars2) {
my $mnem = $c1 . $c2;
if (not defined $di->{$mnem}) {
for my $c2 (map {@$_} @chars2) {
my $mnem = $c1 . $c2;
if (not defined $di->{$mnem}) {
printf "\n".'<td class="%s" title="%s">%s',
join(' ', @class), quote($desc), $glyph;
}
printf "\n".'<td class="%s" title="%s">%s',
join(' ', @class), quote($desc), $glyph;
}
+ print "\n<th>", quote($c1), "\n";