fix glitch in escaping call number labels

Signed-off-by: Galen Charlton <gmc@esilibrary.com>

git-svn-id: svn://svn.open-ils.org/ILS/trunk@18487 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 3e81d2f..88c17f3 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
@@ -53,8 +53,8 @@ $browse_types{call_number}{xml} = sub {
                my $cn_label = $cn->label;
 
                $cn_label =~ s/\n//gos;
-               $cn_label =~ s/'/'/go;
                $cn_label =~ s/&/&/go;
+               $cn_label =~ s/'/'/go;
                $cn_label =~ s/</&lt;/go;
                $cn_label =~ s/>/&gt;/go;