From: erickson Date: Sat, 19 Aug 2006 15:18:34 +0000 (+0000) Subject: fixed escape ordering bug X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=743a0bf0b4b42e63e2f52dd0fb073e09cb818bab;p=evergreen%2Fpines.git fixed escape ordering bug git-svn-id: svn://svn.open-ils.org/ILS/trunk@5601 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- diff --git a/Evergreen/src/support-scripts/eg_gen_overdue.pl b/Evergreen/src/support-scripts/eg_gen_overdue.pl index 9fc0f1814f..faaf4eda0c 100755 --- a/Evergreen/src/support-scripts/eg_gen_overdue.pl +++ b/Evergreen/src/support-scripts/eg_gen_overdue.pl @@ -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/\/>/og; $stuff =~ s/\&/&/og; + $stuff = NFC($stuff); + $stuff =~ s/([\x{0080}-\x{fffd}])/sprintf('&#x%X;',ord($1))/sgoe; return $stuff; }