X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/f850d8bca38d6f025cd26b62b6e5504dd4d77ad1..c11640facf0c976140547ef1b58971ec8a661dd3:/charset.plp diff --git a/charset.plp b/charset.plp index 29e7e23..66e0cc9 100644 --- a/charset.plp +++ b/charset.plp @@ -94,14 +94,6 @@ for my $cp437 (grep {$request[$_]->{set} eq 'cp437'} 0 .. $#request) { ); } -sub quote { - local $_ = shift; - s/"/"/g; - s/</g; - s/>/>/g; - return $_; -} - my @nibble = (0..9, 'A'..'F'); for my $row (@request) { printf '
%s', - join(' ', @class), quote($desc), $glyph; + join(' ', @class), EscapeHTML($desc), $glyph; } print "\n"; } |