Lines 22-29
use warnings;
Link Here
|
22 |
|
22 |
|
23 |
use MIME::Lite; |
23 |
use MIME::Lite; |
24 |
use Mail::Sendmail; |
24 |
use Mail::Sendmail; |
25 |
use Encode; |
|
|
26 |
use Carp; |
27 |
|
25 |
|
28 |
use C4::Members; |
26 |
use C4::Members; |
29 |
use C4::Branch; |
27 |
use C4::Branch; |
Lines 390-397
sub SendAlerts {
Link Here
|
390 |
my %mail = ( |
388 |
my %mail = ( |
391 |
To => $to, |
389 |
To => $to, |
392 |
From => $userenv->{emailaddress}, |
390 |
From => $userenv->{emailaddress}, |
393 |
Subject => "" . $innerletter->{title}, |
391 |
Subject => Encode::encode( "utf8", "" . $innerletter->{title} ), |
394 |
Message => "" . $innerletter->{content}, |
392 |
Message => Encode::encode( "utf8", "" . $innerletter->{content} ), |
395 |
'Content-Type' => 'text/plain; charset="utf8"', |
393 |
'Content-Type' => 'text/plain; charset="utf8"', |
396 |
); |
394 |
); |
397 |
sendmail(%mail) or carp $Mail::Sendmail::error; |
395 |
sendmail(%mail) or carp $Mail::Sendmail::error; |
398 |
- |
|
|