Lines 722-731
END_SQL
Link Here
|
722 |
unless @message_transport_types; |
722 |
unless @message_transport_types; |
723 |
|
723 |
|
724 |
my $print_sent = 0; # A print notice is not yet sent for this patron |
724 |
my $print_sent = 0; # A print notice is not yet sent for this patron |
|
|
725 |
|
726 |
my $guarantor_has_address; |
727 |
if ( C4::Context->preference('RedirectGuaranteeEmail') && $patron ) { |
728 |
|
729 |
# Get guarantor addresses |
730 |
my $guarantor_relationships = $patron->guarantor_relationships; |
731 |
my @guarantors = $guarantor_relationships->guarantors->as_list; |
732 |
foreach my $guarantor (@guarantors) { |
733 |
my $address = $guarantor->notice_email_address; |
734 |
if ($address) { |
735 |
$guarantor_has_address = 1; |
736 |
} |
737 |
} |
738 |
} |
739 |
if ($guarantor_has_address || scalar @emails_to_use) { |
740 |
$print_sent = 1; |
741 |
} |
742 |
|
725 |
for my $mtt (@message_transport_types) { |
743 |
for my $mtt (@message_transport_types) { |
726 |
next if $mtt eq 'itiva'; |
744 |
next if $mtt eq 'itiva'; |
727 |
my $effective_mtt = $mtt; |
745 |
my $effective_mtt = $mtt; |
728 |
if ( ( $mtt eq 'email' and not scalar @emails_to_use ) |
746 |
if ( ( $mtt eq 'email' and not scalar @emails_to_use and not $guarantor_has_address ) |
729 |
or ( $mtt eq 'sms' and not $data->{smsalertnumber} ) ) |
747 |
or ( $mtt eq 'sms' and not $data->{smsalertnumber} ) ) |
730 |
{ |
748 |
{ |
731 |
# email or sms is requested but not exist, do a print. |
749 |
# email or sms is requested but not exist, do a print. |
Lines 808-814
END_SQL
Link Here
|
808 |
} |
826 |
} |
809 |
); |
827 |
); |
810 |
} else { |
828 |
} else { |
811 |
if ( ( $mtt eq 'email' and not scalar @emails_to_use ) |
829 |
if ( ( $mtt eq 'email' and not scalar @emails_to_use and not $guarantor_has_address) |
812 |
or ( $mtt eq 'sms' and not $data->{smsalertnumber} ) ) |
830 |
or ( $mtt eq 'sms' and not $data->{smsalertnumber} ) ) |
813 |
{ |
831 |
{ |
814 |
push @output_chunks, |
832 |
push @output_chunks, |
815 |
- |
|
|