|
Lines 1841-1850
sub queue_notice {
Link Here
|
| 1841 |
my $print_sent = 0; |
1841 |
my $print_sent = 0; |
| 1842 |
my %return; |
1842 |
my %return; |
| 1843 |
foreach my $mtt (@message_transports){ |
1843 |
foreach my $mtt (@message_transports){ |
| 1844 |
next if ($mtt eq 'phone' and C4::Context->preference('TalkingTechItivaPhoneNotification') ); |
1844 |
next if ($mtt eq 'itiva' and C4::Context->preference('TalkingTechItivaPhoneNotification') ); |
| 1845 |
# Phone notices are handled by TalkingTech_itiva_outbound.pl |
1845 |
# Notice is handled by TalkingTech_itiva_outbound.pl |
| 1846 |
if( ($mtt eq 'email' and not $self->notice_email_address) or ($mtt eq 'sms' and not $self->smsalertnumber) ){ |
1846 |
if ( ( $mtt eq 'email' and not $self->notice_email_address ) |
| 1847 |
push @{$return{fallback}}, $mtt; |
1847 |
or ( $mtt eq 'sms' and not $self->smsalertnumber ) |
|
|
1848 |
or ( $mtt eq 'phone' and not $self->phone ) ) |
| 1849 |
{ |
| 1850 |
push @{ $return{fallback} }, $mtt; |
| 1848 |
$mtt = 'print'; |
1851 |
$mtt = 'print'; |
| 1849 |
} |
1852 |
} |
| 1850 |
next if $mtt eq 'print' && $print_sent; |
1853 |
next if $mtt eq 'print' && $print_sent; |
| 1851 |
- |
|
|