From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 30 Nov 2009 15:32:24 +0000 (+0000)
Subject: encode email text as utf8 to prevent 'wide character in syswrite' errors in email... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=8b7e454b667a2b8438889d32636b020faa4e0d34;p=Evergreen.git

encode email text as utf8 to prevent 'wide character in syswrite' errors in email::send

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_6@15041 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm
index c2cf802644..64826fda07 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm
@@ -6,6 +6,7 @@ use Email::Send;
 use OpenSRF::Utils::SettingsClient;
 use OpenILS::Application::Trigger::Reactor;
 use OpenSRF::Utils::Logger qw/:logger/;
+use utf8;
 $Data::Dumper::Indent = 0;
 
 use base 'OpenILS::Application::Trigger::Reactor';
@@ -47,6 +48,8 @@ sub handler {
     my $stat;
     my $err;
 
+    utf8::encode($text); # prevent "Wide character" errors in Email::Send
+
     try {
         $stat = $sender->send($text);
     } catch Error with {