From: Jonathan Blake <jonathan.blake@projectaon.org>
Date: Sun, 8 Sep 2019 00:16:09 +0000 (-0700)
Subject: Handle apostrophes sligtly smarter
X-Git-Tag: 29tsoc-20200103~65
X-Git-Url: http://git.projectaon.org/?p=project-aon.git;a=commitdiff_plain;h=85f996374fe02404eabb740212bd36fe7e86e855

Handle apostrophes sligtly smarter
---

diff --git a/common/scripts/xmlize.pl b/common/scripts/xmlize.pl
index 063bd05..d78bd94 100755
--- 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;