fixed escape ordering bug
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sat, 19 Aug 2006 15:18:34 +0000 (15:18 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sat, 19 Aug 2006 15:18:34 +0000 (15:18 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5601 dcc99617-32d9-48b4-a31d-7c20da2025e4

Evergreen/src/support-scripts/eg_gen_overdue.pl

index 9fc0f18..faaf4ed 100755 (executable)
@@ -334,11 +334,11 @@ sub handle_event {
 
 sub entityize {
        my $stuff = shift || return "";
-       $stuff = NFC($stuff);
-       $stuff =~ s/([\x{0080}-\x{fffd}])/sprintf('&#x%X;',ord($1))/sgoe;
        $stuff =~ s/\</&lt;/og;
        $stuff =~ s/\>/&gt;/og;
        $stuff =~ s/\&/&amp;/og;
+       $stuff = NFC($stuff);
+       $stuff =~ s/([\x{0080}-\x{fffd}])/sprintf('&#x%X;',ord($1))/sgoe;
        return $stuff;
 }