From: dbs <dbs@6d9bc8c9-1ec2-4278-b937-99fde70a366f>
Date: Tue, 1 Mar 2011 04:38:40 +0000 (+0000)
Subject: Backport the email header escape helper for TT
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=3885317b7370101366ab1c3eabf177a9b6a3599f;p=contrib%2FConifer.git

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 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;