Lines 1049-1057
sub SendQueuedMessages {
Link Here
|
1049 |
my $sms_provider = Koha::SMS::Providers->find( $member->{'sms_provider_id'} ); |
1049 |
my $sms_provider = Koha::SMS::Providers->find( $member->{'sms_provider_id'} ); |
1050 |
unless ( $sms_provider ) { |
1050 |
unless ( $sms_provider ) { |
1051 |
warn sprintf( "Patron %s has no sms provider id set!", $message->{'borrowernumber'} ) if $params->{'verbose'} or $debug; |
1051 |
warn sprintf( "Patron %s has no sms provider id set!", $message->{'borrowernumber'} ) if $params->{'verbose'} or $debug; |
|
|
1052 |
_set_message_status( { message_id => $message->{'message_id'}, status => 'failed' } ); |
1053 |
next MESSAGE; |
1054 |
} |
1055 |
$message->{to_address} = $message->{to_address} ? $message->{to_address} : $member->{'smsalertnumber'}; |
1056 |
unless ( $message->{to_address} && $member->{'smsalertnumber'} ) { |
1057 |
_set_message_status( { message_id => $message->{'message_id'}, status => 'failed' } ); |
1058 |
warn sprintf( "No smsalertnumber found for patron %s!", $message->{'borrowernumber'} ) if $params->{'verbose'} or $debug; |
1052 |
next MESSAGE; |
1059 |
next MESSAGE; |
1053 |
} |
1060 |
} |
1054 |
$message->{to_address} .= '@' . $sms_provider->domain(); |
1061 |
$message->{to_address} .= '@' . $sms_provider->domain(); |
|
|
1062 |
_update_message_to_address($message->{'message_id'},$message->{to_address}); |
1055 |
_send_message_by_email( $message, $params->{'username'}, $params->{'password'}, $params->{'method'} ); |
1063 |
_send_message_by_email( $message, $params->{'username'}, $params->{'password'}, $params->{'method'} ); |
1056 |
} else { |
1064 |
} else { |
1057 |
_send_message_by_sms( $message ); |
1065 |
_send_message_by_sms( $message ); |
1058 |
- |
|
|