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

[svn at svn.open-ils.org]

Author: gmc
Date: 2010-10-27 08:06:22 -0400 (Wed, 27 Oct 2010)
New Revision: 18487

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
Log:
fix glitch in escaping call number labels

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


Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-10-27 05:11:14 UTC (rev 18486)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-10-27 12:06:22 UTC (rev 18487)
@@ -53,8 +53,8 @@
 		my $cn_label = $cn->label;
 
 		$cn_label =~ s/\n//gos;
+		$cn_label =~ s/&/&amp;/go;
 		$cn_label =~ s/'/&apos;/go;
-		$cn_label =~ s/&/&amp;/go;
 		$cn_label =~ s/</&lt;/go;
 		$cn_label =~ s/>/&gt;/go;