X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/13f64783b1e5ed763a85912e7129d58791de8340..0ef6354c95222a6da6db28bf1e6d536f5fae8282:/chars.plp diff --git a/chars.plp b/chars.plp index 775674e..83c40ab 100644 --- a/chars.plp +++ b/chars.plp @@ -2,7 +2,7 @@ Html({ title => 'character support sheet', - version => 'v1.0', + version => '1.0', keywords => [qw' unicode glyph char character reference common ipa symbol sign mark table digraph '], @@ -89,7 +89,7 @@ for (map { split /[^\d-]/ } $query) { # output character list say '
'; -print ''; +print '
'; print '' x 3; print "" for 2, map { scalar @{ $groupinfo->{os}->{$_} } } @ossel; @@ -104,8 +104,10 @@ print ''; print '
unicode'; print 'name'; print 'dihtml'; -printf '%s', $font{$_}->{-name}, $font{$_}->{-abbr} - for @fontlist; +printf('%s', map { EscapeHTML($_) } + join("\n", $font{$_}->{-name}, $font{$_}->{-description}), + $font{$_}->{-abbr}, +) for @fontlist; say ''; for my $chr (@chars) {