[open-ils-commits] r11011 - branches/rel_1_4/Open-ILS/src/support-scripts

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-10-31 10:26:43 -0400 (Fri, 31 Oct 2008)
New Revision: 11011

Modified:
   branches/rel_1_4/Open-ILS/src/support-scripts/generate_circ_notices.pl
Log:
more utf8-ification to prevent wide character problems (probably, some of this is redundant)

Modified: branches/rel_1_4/Open-ILS/src/support-scripts/generate_circ_notices.pl
===================================================================
--- branches/rel_1_4/Open-ILS/src/support-scripts/generate_circ_notices.pl	2008-10-31 14:09:30 UTC (rev 11010)
+++ branches/rel_1_4/Open-ILS/src/support-scripts/generate_circ_notices.pl	2008-10-31 14:26:43 UTC (rev 11011)
@@ -31,6 +31,7 @@
 use OpenILS::Application::AppUtils;
 use OpenILS::Const qw/:const/;
 my $U = 'OpenILS::Application::AppUtils';
+use open ':utf8';
 
 my $settings = undef;
 my $e = OpenILS::Utils::CStoreEditor->new;
@@ -362,6 +363,8 @@
 
 
     if($opt_send_email) {
+        use utf8;
+        utf8::encode($msg);
 	    my $sender = Email::Send->new({mailer => 'SMTP'});
         my $smtp_server = $settings->config_value(notifications => 'smtp_server');
         $logger->debug("notice: smtp server is $smtp_server");