Lines 1022-1028
EOS
Link Here
|
1022 |
sub _send_message_by_sms { |
1022 |
sub _send_message_by_sms { |
1023 |
my $message = shift or return; |
1023 |
my $message = shift or return; |
1024 |
my $member = C4::Members::GetMember( 'borrowernumber' => $message->{'borrowernumber'} ); |
1024 |
my $member = C4::Members::GetMember( 'borrowernumber' => $message->{'borrowernumber'} ); |
1025 |
return unless $member->{'smsalertnumber'}; |
1025 |
|
|
|
1026 |
unless ( $member->{smsalertnumber} ) { |
1027 |
_set_message_status( { message_id => $message->{'message_id'}, |
1028 |
status => 'failed' } ); |
1029 |
return; |
1030 |
} |
1026 |
|
1031 |
|
1027 |
my $success = C4::SMS->send_sms( { destination => $member->{'smsalertnumber'}, |
1032 |
my $success = C4::SMS->send_sms( { destination => $member->{'smsalertnumber'}, |
1028 |
message => $message->{'content'}, |
1033 |
message => $message->{'content'}, |
1029 |
- |
|
|