more utf8-ification to prevent wide character problems (probably, some of this is...

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

diff --git a/Open-ILS/src/support-scripts/generate_circ_notices.pl b/Open-ILS/src/support-scripts/generate_circ_notices.pl
index 18b63d1..e0ace2a 100755 (executable)
--- a/Open-ILS/src/support-scripts/generate_circ_notices.pl
+++ b/Open-ILS/src/support-scripts/generate_circ_notices.pl
@@ -31,6 +31,7 @@ use OpenILS::Const qw/:const/;
 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 @@ sub handle_email_template_output {
 
 
     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");