Handle apostrophes sligtly smarter

[project-aon.git] / common / scripts / xmlize.pl

diff --git a/common/scripts/xmlize.pl b/common/scripts/xmlize.pl
index 063bd05..d78bd94 100755 (executable)
--- a/common/scripts/xmlize.pl
+++ b/common/scripts/xmlize.pl
@@ -135,6 +135,7 @@ sub xmlize {
     $inline =~ s/\&(?=[[:space:]])/<ch.ampersand\/>/g;
     $inline =~ tr/\"\`/\'/;
     $inline =~ s/[\N{U+2018}\N{U+201C}]/<quote>/g;
+    $inline =~ s|[\N{U+2019}\N{U+201D}]([[:alpha:]])|<ch.apos/>$1|g;
     $inline =~ s/[\N{U+2019}\N{U+201D}]/<\/quote>/g;
     $inline =~ s/[\N{U+2014}]/<ch.endash\/>/g;
     $inline =~ s/[\N{U+2014}]/<ch.emdash\/>/g;