X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/f850d8bca38d6f025cd26b62b6e5504dd4d77ad1..c11640facf0c976140547ef1b58971ec8a661dd3:/unicode.plp

diff --git a/unicode.plp b/unicode.plp
index ac63170..959b121 100644
--- a/unicode.plp
+++ b/unicode.plp
@@ -24,14 +24,6 @@ my $diinfo = do 'digraphs.inc.pl';
 my %di = map { $diinfo->{$_}->[0] => $_ } grep { ref $diinfo->{$_} }
 	sort { length $a <=> length $b } keys %$diinfo;
 
-sub quote {
-	local $_ = shift;
-	s/"/&quot;/g;
-	s/</&lt;/g;
-	s/>/&gt;/g;
-	return $_;
-}
-
 sub glyph_table {
 	my ($digraphs) = @_;
 
@@ -109,8 +101,8 @@ sub glyph_table {
 			defined $name  ? qq{ title="$name"}  : '',
 			@class ? sprintf(' class="%s"', join ' ', @class) : '',
 			$colspan > 1 && qq{ colspan="$colspan"},
-			$cell eq '' ? '&nbsp;' : quote($cell),
-			defined $code ? sprintf(' <small class="digraph">%s</small>', quote($code))
+			$cell eq '' ? '&nbsp;' : EscapeHTML($cell),
+			defined $code ? sprintf(' <small class="digraph">%s</small>', EscapeHTML($code))
 				: length($cell) == 1 && $cell !~ /[a-z]/
 					? sprintf(' <small class="%s">%04X</small>', 'value', ord $cell)
 					: '',