From 7cdb58dad70dccf374395ab4f690b751afe0f1b8 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 2 Aug 2010 20:01:04 +0000
Subject: [PATCH] escape more in the cn label for browse xml

git-svn-id: svn://svn.open-ils.org/ILS/trunk@17064 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
index a38bcf84b..85ad77fc1 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
@@ -54,6 +54,9 @@ $browse_types{call_number}{xml} = sub {
 
 		$cn_label =~ s/\n//gos;
 		$cn_label =~ s/'/&apos;/go;
+		$cn_label =~ s/&/&amp;/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;
-- 
2.11.0