Lines 372-377
sub findrelatedto {
Link Here
|
372 |
|
372 |
|
373 |
send an alert to all borrowers having put an alert on a given subject. |
373 |
send an alert to all borrowers having put an alert on a given subject. |
374 |
|
374 |
|
|
|
375 |
Returns undef or { error => 'message } on failure. |
376 |
Returns true on success. |
377 |
|
375 |
=cut |
378 |
=cut |
376 |
|
379 |
|
377 |
sub SendAlerts { |
380 |
sub SendAlerts { |
Lines 441-447
sub SendAlerts {
Link Here
|
441 |
: 'text/plain; charset="utf-8"', |
444 |
: 'text/plain; charset="utf-8"', |
442 |
} |
445 |
} |
443 |
); |
446 |
); |
444 |
sendmail(%mail) or carp $Mail::Sendmail::error; |
447 |
unless( sendmail(%mail) ) { |
|
|
448 |
carp $Mail::Sendmail::error; |
449 |
return { error => $Mail::Sendmail::error }; |
450 |
} |
445 |
} |
451 |
} |
446 |
} |
452 |
} |
447 |
elsif ( $type eq 'claimacquisition' or $type eq 'claimissues' ) { |
453 |
elsif ( $type eq 'claimacquisition' or $type eq 'claimissues' ) { |
Lines 469-475
sub SendAlerts {
Link Here
|
469 |
|
475 |
|
470 |
if (!@$externalid){ |
476 |
if (!@$externalid){ |
471 |
carp "No Order seleted"; |
477 |
carp "No Order seleted"; |
472 |
return { error => "no_order_seleted" }; |
478 |
return { error => "no_order_selected" }; |
473 |
} |
479 |
} |
474 |
|
480 |
|
475 |
$strsth .= join( ",", @$externalid ) . ")"; |
481 |
$strsth .= join( ",", @$externalid ) . ")"; |
Lines 555-561
sub SendAlerts {
Link Here
|
555 |
. " Content=" |
561 |
. " Content=" |
556 |
. $letter->{content} |
562 |
. $letter->{content} |
557 |
) if C4::Context->preference("LetterLog"); |
563 |
) if C4::Context->preference("LetterLog"); |
558 |
1; |
|
|
559 |
} |
564 |
} |
560 |
# send an "account details" notice to a newly created user |
565 |
# send an "account details" notice to a newly created user |
561 |
elsif ( $type eq 'members' ) { |
566 |
elsif ( $type eq 'members' ) { |
Lines 589-596
sub SendAlerts {
Link Here
|
589 |
: 'text/plain; charset="utf-8"', |
594 |
: 'text/plain; charset="utf-8"', |
590 |
} |
595 |
} |
591 |
); |
596 |
); |
592 |
sendmail(%mail) or carp $Mail::Sendmail::error; |
597 |
unless( sendmail(%mail) ) { |
|
|
598 |
carp $Mail::Sendmail::error; |
599 |
return { error => $Mail::Sendmail::error }; |
600 |
} |
593 |
} |
601 |
} |
|
|
602 |
|
603 |
# If we come here, return an OK status |
604 |
return 1; |
594 |
} |
605 |
} |
595 |
|
606 |
|
596 |
=head2 GetPreparedLetter( %params ) |
607 |
=head2 GetPreparedLetter( %params ) |