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

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
index a38bcf8..85ad77f 100644 (file)
--- 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/'/'/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;