[open-ils-commits] r18488 - branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/WWW (gmc)

[svn at svn.open-ils.org]

Author: gmc
Date: 2010-10-27 09:51:55 -0400 (Wed, 27 Oct 2010)
New Revision: 18488

Modified:
   branches/rel_2_0/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: branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-10-27 12:06:22 UTC (rev 18487)
+++ branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-10-27 13:51:55 UTC (rev 18488)
@@ -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;