From 6d226bea192a1246f75dce81844a3a58e718aaf0 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Sat, 19 Nov 2005 04:19:24 +0000
Subject: [PATCH] a TT2 wrapper to Unicode::Normalize

git-svn-id: svn://svn.open-ils.org/ILS/trunk@2089 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../src/perlmods/OpenILS/Template/Plugin/Unicode.pm  | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 Open-ILS/src/perlmods/OpenILS/Template/Plugin/Unicode.pm

diff --git a/Open-ILS/src/perlmods/OpenILS/Template/Plugin/Unicode.pm b/Open-ILS/src/perlmods/OpenILS/Template/Plugin/Unicode.pm
new file mode 100644
index 0000000000..6a3423793a
--- /dev/null
+++ b/Open-ILS/src/perlmods/OpenILS/Template/Plugin/Unicode.pm
@@ -0,0 +1,12 @@
+package OpenILS::Template::Plugin::Unicode;
+use Unicode::Normalize;
+
+sub new { return bless {}, __PACKAGE__ }
+sub load { return __PACKAGE__ }
+
+sub C { shift; return NFC(@_); }
+sub D { shift; return NFD(@_); }
+sub entityDecode { shift; $_ = shift; s/&#x([0-9a-fA-F]+);/chr(hex($1))/egos; return $_ }
+sub entityEncode { shift; $_ = shift; s/(\PM\pM+)/sprintf('&#x%0.4x;',ord(NFC($1)))/sgoe; return $_ }
+
+1;
-- 
2.43.2