[open-ils-commits] r14293 - trunk/Open-ILS/src/perlmods/OpenILS/Application (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2009-10-07 13:56:39 -0400 (Wed, 07 Oct 2009)
New Revision: 14293

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
Log:
Escaping angle brackets is too pervasive a change in entityize(). Revert this part of r14283.


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2009-10-07 15:56:12 UTC (rev 14292)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2009-10-07 17:56:39 UTC (rev 14293)
@@ -1381,10 +1381,8 @@
 		$string = NFC($string);
 	}
 
-	# Convert raw ampersands and angle brackets to entities
+	# Convert raw ampersands to entities
 	$string =~ s/&(?!\S+;)/&/gso;
-	$string =~ s/</&lt;/gso;
-	$string =~ s/>/&gt;/gso;
 
 	# Convert Unicode characters to entities
 	$string =~ s/([\x{0080}-\x{fffd}])/sprintf('&#x%X;',ord($1))/sgoe;