Lines 295-302
sub SendAlerts {
Link Here
|
295 |
my %mail = ( |
295 |
my %mail = ( |
296 |
To => $email, |
296 |
To => $email, |
297 |
From => $email, |
297 |
From => $email, |
298 |
Subject => "" . $letter->{title}, |
298 |
Subject => Encode::encode( "utf8", "" . $letter->{title} ), |
299 |
Message => "" . $letter->{content}, |
299 |
Message => Encode::encode( "utf8", "" . $letter->{content} ), |
300 |
'Content-Type' => 'text/plain; charset="utf8"', |
300 |
'Content-Type' => 'text/plain; charset="utf8"', |
301 |
); |
301 |
); |
302 |
sendmail(%mail) or carp $Mail::Sendmail::error; |
302 |
sendmail(%mail) or carp $Mail::Sendmail::error; |
Lines 323-330
sub SendAlerts {
Link Here
|
323 |
LEFT JOIN biblio ON serial.biblionumber=biblio.biblionumber |
323 |
LEFT JOIN biblio ON serial.biblionumber=biblio.biblionumber |
324 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid=aqbooksellers.id |
324 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid=aqbooksellers.id |
325 |
WHERE serial.serialid IN ( |
325 |
WHERE serial.serialid IN ( |
326 |
} |
326 |
}; |
327 |
. join( ",", @$externalid ) . ")"; |
327 |
$strsth .= join( ",", @$externalid ) . ")"; |
328 |
my $sthorders = $dbh->prepare($strsth); |
328 |
my $sthorders = $dbh->prepare($strsth); |
329 |
$sthorders->execute; |
329 |
$sthorders->execute; |
330 |
my $dataorders = $sthorders->fetchall_arrayref( {} ); |
330 |
my $dataorders = $sthorders->fetchall_arrayref( {} ); |
Lines 339-345
sub SendAlerts {
Link Here
|
339 |
push @email, $databookseller->{contemail} if $databookseller->{contemail}; |
339 |
push @email, $databookseller->{contemail} if $databookseller->{contemail}; |
340 |
unless (@email) { |
340 |
unless (@email) { |
341 |
warn "Bookseller $dataorders->[0]->{booksellerid} without emails"; |
341 |
warn "Bookseller $dataorders->[0]->{booksellerid} without emails"; |
342 |
return; |
342 |
return { error => "no_email" }; |
343 |
} |
343 |
} |
344 |
|
344 |
|
345 |
my $userenv = C4::Context->userenv; |
345 |
my $userenv = C4::Context->userenv; |
Lines 359-366
sub SendAlerts {
Link Here
|
359 |
my %mail = ( |
359 |
my %mail = ( |
360 |
To => join( ','. @email), |
360 |
To => join( ','. @email), |
361 |
From => $userenv->{emailaddress}, |
361 |
From => $userenv->{emailaddress}, |
362 |
Subject => "" . $letter->{title}, |
362 |
Subject => Encode::encode( "utf8", "" . $letter->{title} ), |
363 |
Message => "" . $letter->{content}, |
363 |
Message => Encode::encode( "utf8", "" . $letter->{content} ), |
364 |
'Content-Type' => 'text/plain; charset="utf8"', |
364 |
'Content-Type' => 'text/plain; charset="utf8"', |
365 |
); |
365 |
); |
366 |
sendmail(%mail) or carp $Mail::Sendmail::error; |
366 |
sendmail(%mail) or carp $Mail::Sendmail::error; |
Lines 392-402
sub SendAlerts {
Link Here
|
392 |
want_librarian => 1, |
392 |
want_librarian => 1, |
393 |
) or return; |
393 |
) or return; |
394 |
|
394 |
|
|
|
395 |
return { error => "no_email" } unless $externalid->{'emailaddr'}; |
395 |
my %mail = ( |
396 |
my %mail = ( |
396 |
To => $externalid->{'emailaddr'}, |
397 |
To => $externalid->{'emailaddr'}, |
397 |
From => $branchdetails->{'branchemail'} || C4::Context->preference("KohaAdminEmailAddress"), |
398 |
From => $branchdetails->{'branchemail'} || C4::Context->preference("KohaAdminEmailAddress"), |
398 |
Subject => $letter->{'title'}, |
399 |
Subject => Encode::encode( "utf8", $letter->{'title'} ), |
399 |
Message => $letter->{'content'}, |
400 |
Message => Encode::encode( "utf8", $letter->{'content'} ), |
400 |
'Content-Type' => 'text/plain; charset="utf8"', |
401 |
'Content-Type' => 'text/plain; charset="utf8"', |
401 |
); |
402 |
); |
402 |
sendmail(%mail) or carp $Mail::Sendmail::error; |
403 |
sendmail(%mail) or carp $Mail::Sendmail::error; |