From 7a99497a89bee47dd229f87301e3817906bb9f95 Mon Sep 17 00:00:00 2001 From: dbs Date: Wed, 7 Oct 2009 17:56:39 +0000 Subject: [PATCH] Escaping angle brackets is too pervasive a change in entityize(). Revert this part of r14283. git-svn-id: svn://svn.open-ils.org/ILS/trunk@14293 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm index c6ace2ffc3..557143de9f 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm @@ -1381,10 +1381,8 @@ sub entityize { $string = NFC($string); } - # Convert raw ampersands and angle brackets to entities + # Convert raw ampersands to entities $string =~ s/&(?!\S+;)/&/gso; - $string =~ s//>/gso; # Convert Unicode characters to entities $string =~ s/([\x{0080}-\x{fffd}])/sprintf('&#x%X;',ord($1))/sgoe; -- 2.43.2