diff --git a/basket/sendbasket.pl b/basket/sendbasket.pl index 5bf0f3b37e..a4bbe16bf6 100755 --- a/basket/sendbasket.pl +++ b/basket/sendbasket.pl @@ -112,7 +112,7 @@ if ( $email_add ) { if ( $template_res =~ /(.*)/s ) { $mail{subject} = $1; $mail{subject} =~ s|\n?(.*)\n?|$1|; - $mail{subject} = Encode::encode("UTF-8", $mail{subject}); + $mail{subject} = encode('MIME-Header',$mail{subject}); } else { $mail{'subject'} = "no subject"; } diff --git a/opac/opac-sendbasket.pl b/opac/opac-sendbasket.pl index 0f84f042b2..bb8ec057d6 100755 --- a/opac/opac-sendbasket.pl +++ b/opac/opac-sendbasket.pl @@ -130,7 +130,7 @@ if ( $email_add ) { if ( $template_res =~ /(.*)/s ) { $mail{subject} = $1; $mail{subject} =~ s|\n?(.*)\n?|$1|; - $mail{subject} = Encode::encode("UTF-8", $mail{subject}); + $mail{subject} = encode('MIME-Header',$mail{subject}); } else { $mail{'subject'} = "no subject"; } diff --git a/opac/opac-sendshelf.pl b/opac/opac-sendshelf.pl index 9c8fdd22fd..1a88671a47 100755 --- a/opac/opac-sendshelf.pl +++ b/opac/opac-sendshelf.pl @@ -131,7 +131,7 @@ if ( $email ) { $mail{subject} =~ s|\n?(.*)\n?|$1|; } else { $mail{'subject'} = "no subject"; } - $mail{subject} = Encode::encode("UTF-8", $mail{subject}); + $mail{subject} = encode('MIME-Header', $mail{subject}); my $email_header = ""; if ( $template_res =~ /
(.*)/s ) { diff --git a/virtualshelves/sendshelf.pl b/virtualshelves/sendshelf.pl index 996c2f71cc..08a3ac1ebf 100755 --- a/virtualshelves/sendshelf.pl +++ b/virtualshelves/sendshelf.pl @@ -113,7 +113,7 @@ if ($email) { # Analysing information and getting mail properties if ( $template_res =~ /(.*)/s ) { - $mail{'subject'} = Encode::encode("UTF-8", $1); + $mail{'subject'} = encode('MIME-Header', $1); $mail{subject} =~ s|\n?(.*)\n?|$1|; } else { $mail{'subject'} = "no subject"; }