arg! with the quoting!
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 9 Mar 2006 20:26:29 +0000 (20:26 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 9 Mar 2006 20:26:29 +0000 (20:26 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@3301 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm

index 73ed6db..2318bf4 100644 (file)
@@ -625,7 +625,7 @@ sub create_record_feed {
 
 sub entityize {
        my $stuff = NFC(shift());
-       #$stuff =~ s/&(?!#.{2,4};|amp;)/&amp;/gso;
+       $stuff =~ s/&(?!\S+;)/&amp;/gso;
        $stuff =~ s/([\x{0080}-\x{fffd}])/sprintf('&#x%X;',ord($1))/sgoe;
        return $stuff;
 }