[Koha-patches] [PATCH] bugfix : ship utf-8 encoding in mail header

[paul.poulain at biblibre.com]

From: Paul POULAIN <paul.poulain at biblibre.com>

diff --git a/C4/Letters.pm b/C4/Letters.pm
index 31033a8..85c7a85 100644
--- a/C4/Letters.pm
+++ b/C4/Letters.pm
@@ -286,7 +286,8 @@ sub SendAlerts {
                     From    => $borinfo->{email},
                     Subject => "" . $innerletter->{title},
                     Message => "" . $innerletter->{content},
-                );
+                    'Content-Type' => 'text/plain; charset="utf8"',
+                    );
                 sendmail(%mail);
 
 # warn "sending to $mail{To} From $mail{From} subj $mail{Subject} Mess $mail{Message}";
@@ -416,6 +417,7 @@ sub SendAlerts {
                 From    => $userenv->{emailaddress},
                 Subject => "" . $innerletter->{title},
                 Message => "" . $innerletter->{content},
+                'Content-Type' => 'text/plain; charset="utf8"',
             );
             sendmail(%mail);
             logaction(
diff --git a/C4/Suggestions.pm b/C4/Suggestions.pm
index 4250db0..82eef06 100644
--- a/C4/Suggestions.pm
+++ b/C4/Suggestions.pm
@@ -427,7 +427,8 @@ sub ModStatus {
         To => $emailinfo->{byemail},
         From => $emailinfo->{libemail},
         Subject => 'Koha suggestion',
-        Message => "".$template->output
+        Message => "".$template->output,
+        'Content-Type' => 'text/plain; charset="utf8"',
     );
     sendmail(%mail);
 }
diff --git a/misc/cronjobs/overduenotices-30.pl b/misc/cronjobs/overduenotices-30.pl
index 543f176..445df41 100755
--- a/misc/cronjobs/overduenotices-30.pl
+++ b/misc/cronjobs/overduenotices-30.pl
@@ -244,6 +244,7 @@ foreach my $branchcode (@branches) {
                                         From    => $emailaddress,
                                         Subject => $mailtitle,
                                         Message => $notice,
+                                        'Content-Type' => 'text/plain; charset="utf8"',
                                     );
                             sendmail(%mail);
                         }
@@ -271,6 +272,7 @@ foreach my $branchcode (@branches) {
                                 From    => $emailaddress,
                                 Subject => 'Koha overdues',
                                 Message => $notice,
+                                'Content-Type' => 'text/plain; charset="utf8"',
                             );
                     sendmail(%mail);
                 }
diff --git a/misc/cronjobs/overduenotices.pl b/misc/cronjobs/overduenotices.pl
index 24e93f2..95c17e1 100755
--- a/misc/cronjobs/overduenotices.pl
+++ b/misc/cronjobs/overduenotices.pl
@@ -134,6 +134,7 @@ while (($itemcount,$borrowernumber,$firstname,$lastname,$address1,$address2,$cit
 								From    => $from,
 								Subject => $mailtitle,
 								Message => $notice,
+                                'Content-Type' => 'text/plain; charset="utf8"',
 					);
 				sendmail(%mail);
 			}
@@ -163,6 +164,7 @@ if ($count) {
 							From    => $from,
 							Subject => 'Koha overdues',
 							Message => $notice,
+                            'Content-Type' => 'text/plain; charset="utf8"',
 				);
 			sendmail(%mail);
 		}
diff --git a/misc/cronjobs/reservefix.pl b/misc/cronjobs/reservefix.pl
index 8e6d612..96b984a 100755
--- a/misc/cronjobs/reservefix.pl
+++ b/misc/cronjobs/reservefix.pl
@@ -101,6 +101,7 @@ my %mail = ( To      => '$admin',
              From    => '$library',
              Subject => 'Reserve problems',
              Message => $message,
+            'Content-Type' => 'text/plain; charset="utf8"',
  	    );
 sendmail(%mail);
 
diff --git a/opac/opac-userupdate.pl b/opac/opac-userupdate.pl
index 7bf250e..abb55dd 100755
--- a/opac/opac-userupdate.pl
+++ b/opac/opac-userupdate.pl
@@ -98,7 +98,8 @@ EOF
         To      => $updateemailaddress,
         From    => $updateemailaddress,
         Subject => "User Request for update of Record.",
-        Message => $message
+        Message => $message,
+        'Content-Type' => 'text/plain; charset="utf8"',
     );
 
     if ( sendmail %mail ) {
-- 
1.5.3.2