[open-ils-commits] r17064 - trunk/Open-ILS/src/perlmods/OpenILS/WWW (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2010-08-02 16:01:04 -0400 (Mon, 02 Aug 2010)
New Revision: 17064

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
Log:
escape more in the cn label for browse xml

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-08-02 19:16:02 UTC (rev 17063)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-08-02 20:01:04 UTC (rev 17064)
@@ -54,6 +54,9 @@
 
 		$cn_label =~ s/\n//gos;
 		$cn_label =~ s/'/'/go;
+		$cn_label =~ s/&/&/go;
+		$cn_label =~ s/</&lt;/go;
+		$cn_label =~ s/>/&gt;/go;
 
 		(my $ou_class = $cn->owning_lib->class_name) =~ s/::/-/gso;
 		$ou_class =~ s/Fieldmapper-//gso;