|
Lines 288-293
sub SendAlerts {
Link Here
|
| 288 |
|
288 |
|
| 289 |
# warn "sending issues..."; |
289 |
# warn "sending issues..."; |
| 290 |
my $userenv = C4::Context->userenv; |
290 |
my $userenv = C4::Context->userenv; |
|
|
291 |
my $branchdetails = GetBranchDetail($_->{'branchcode'}); |
| 291 |
my $letter = GetPreparedLetter ( |
292 |
my $letter = GetPreparedLetter ( |
| 292 |
module => 'serial', |
293 |
module => 'serial', |
| 293 |
letter_code => $letter_code, |
294 |
letter_code => $letter_code, |
|
Lines 304-310
sub SendAlerts {
Link Here
|
| 304 |
# ... then send mail |
305 |
# ... then send mail |
| 305 |
my %mail = ( |
306 |
my %mail = ( |
| 306 |
To => $email, |
307 |
To => $email, |
| 307 |
From => $email, |
308 |
From => $branchdetails->{'branchemail'} || C4::Context->preference("KohaAdminEmailAddress"), |
| 308 |
Subject => Encode::encode( "utf8", "" . $letter->{title} ), |
309 |
Subject => Encode::encode( "utf8", "" . $letter->{title} ), |
| 309 |
Message => Encode::encode( "utf8", "" . $letter->{content} ), |
310 |
Message => Encode::encode( "utf8", "" . $letter->{content} ), |
| 310 |
'Content-Type' => 'text/plain; charset="utf8"', |
311 |
'Content-Type' => 'text/plain; charset="utf8"', |
| 311 |
- |
|
|