Backport the email header escape helper for TT

git-svn-id: svn://svn.open-ils.org/ILS-Contrib/conifer/branches/rel_1_6_1@1251 6d9bc8c9-1ec2-4278-b937-99fde70a366f

diff --git a/src/perlmods/OpenILS/Application/Trigger/Reactor.pm b/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
index aa93eb1..f30c50f 100644 (file)
--- a/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
+++ b/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
@@ -1,5 +1,6 @@
 package OpenILS::Application::Trigger::Reactor;
 use strict; use warnings;
+use Encode;
 use Template;
 use DateTime;
 use DateTime::Format::ISO8601;
@@ -43,6 +44,13 @@ my $_TT_helpers = {
         return $str;
     },
 
+    # encode email headers in UTF-8, per RFC2231
+    escape_email_header => sub {
+        my $str = shift;
+        $str = encode("MIME-Header", $str);
+        return $str;
+    },
+
     # returns the calculated user locale
     get_user_locale => sub { 
         my $user_id = shift;