From 3885317b7370101366ab1c3eabf177a9b6a3599f Mon Sep 17 00:00:00 2001
From: dbs <dbs@6d9bc8c9-1ec2-4278-b937-99fde70a366f>
Date: Tue, 1 Mar 2011 04:38:40 +0000
Subject: [PATCH] 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
---
 src/perlmods/OpenILS/Application/Trigger/Reactor.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/perlmods/OpenILS/Application/Trigger/Reactor.pm b/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
index aa93eb1830..f30c50f122 100644
--- 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;
-- 
2.11.0