|
Lines 836-843
sub _send_message_by_email ($;$$$) {
Link Here
|
| 836 |
if ( my $bcc = C4::Context->preference('OverdueNoticeBcc') ) { |
836 |
if ( my $bcc = C4::Context->preference('OverdueNoticeBcc') ) { |
| 837 |
$sendmail_params{ Bcc } = $bcc; |
837 |
$sendmail_params{ Bcc } = $bcc; |
| 838 |
} |
838 |
} |
| 839 |
|
|
|
| 840 |
|
839 |
|
|
|
840 |
_update_message_to_address($message->{'message_id'},$to_address) unless $message->{to_address}; #if initial message address was empty, coming here means that a to address was found and queue should be updated |
| 841 |
if ( sendmail( %sendmail_params ) ) { |
841 |
if ( sendmail( %sendmail_params ) ) { |
| 842 |
_set_message_status( { message_id => $message->{'message_id'}, |
842 |
_set_message_status( { message_id => $message->{'message_id'}, |
| 843 |
status => 'sent' } ); |
843 |
status => 'sent' } ); |
|
Lines 863-868
sub _send_message_by_sms ($) {
Link Here
|
| 863 |
return $success; |
863 |
return $success; |
| 864 |
} |
864 |
} |
| 865 |
|
865 |
|
|
|
866 |
sub _update_message_to_address { |
| 867 |
my ($id, $to)= @_; |
| 868 |
my $dbh = C4::Context->dbh(); |
| 869 |
$dbh->do('UPDATE message_queue SET to_address=? WHERE message_id=?',undef,($to,$id)); |
| 870 |
} |
| 871 |
|
| 866 |
sub _set_message_status ($) { |
872 |
sub _set_message_status ($) { |
| 867 |
my $params = shift or return undef; |
873 |
my $params = shift or return undef; |
| 868 |
|
874 |
|
| 869 |
- |
|
|