|
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 |
- |
|
|