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 9fc0f18..faaf4ed 100755 (executable)
--- 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/\</&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;
 }