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