Lines 998-1004
EOS
Link Here
|
998 |
sub _send_message_by_sms { |
998 |
sub _send_message_by_sms { |
999 |
my $message = shift or return; |
999 |
my $message = shift or return; |
1000 |
my $member = C4::Members::GetMember( 'borrowernumber' => $message->{'borrowernumber'} ); |
1000 |
my $member = C4::Members::GetMember( 'borrowernumber' => $message->{'borrowernumber'} ); |
1001 |
return unless $member->{'smsalertnumber'}; |
1001 |
|
|
|
1002 |
unless ( $member->{smsalertnumber} ) { |
1003 |
_set_message_status( { message_id => $message->{'message_id'}, |
1004 |
status => 'failed' } ); |
1005 |
return; |
1006 |
} |
1002 |
|
1007 |
|
1003 |
my $success = C4::SMS->send_sms( { destination => $member->{'smsalertnumber'}, |
1008 |
my $success = C4::SMS->send_sms( { destination => $member->{'smsalertnumber'}, |
1004 |
message => $message->{'content'}, |
1009 |
message => $message->{'content'}, |
1005 |
- |
|
|