|
Lines 1927-1938
sub _koha_notify_reserve {
Link Here
|
| 1927 |
my $transports = $messagingpref->message_transport_types if $messagingpref; |
1927 |
my $transports = $messagingpref->message_transport_types if $messagingpref; |
| 1928 |
foreach my $mtt (keys %{$transports}) { |
1928 |
foreach my $mtt (keys %{$transports}) { |
| 1929 |
my $letter_code = $transports->{$mtt}; |
1929 |
my $letter_code = $transports->{$mtt}; |
| 1930 |
next if ( |
1930 |
next unless $messagingpref->mtt_deliverable($mtt); |
| 1931 |
( $mtt eq 'email' and not $to_address ) # No email address |
|
|
| 1932 |
or ( $mtt eq 'sms' and not $patron->smsalertnumber ) # No SMS number |
| 1933 |
or ( $mtt eq 'itiva' and C4::Context->preference('TalkingTechItivaPhoneNotification') ) # Notice is handled by TalkingTech_itiva_outbound.pl |
| 1934 |
or ( $mtt eq 'phone' and not $patron->phone ) # No phone number to call |
| 1935 |
); |
| 1936 |
|
1931 |
|
| 1937 |
&$send_notification($mtt, $letter_code); |
1932 |
&$send_notification($mtt, $letter_code); |
| 1938 |
$notification_sent++; |
1933 |
$notification_sent++; |
| 1939 |
- |
|
|