|
Lines 753-758
END_SQL
Link Here
|
| 753 |
unless @message_transport_types; |
753 |
unless @message_transport_types; |
| 754 |
|
754 |
|
| 755 |
my $print_sent = 0; # A print notice is not yet sent for this patron |
755 |
my $print_sent = 0; # A print notice is not yet sent for this patron |
|
|
756 |
|
| 757 |
if ( C4::Context->preference('RedirectGuaranteeEmail') && $patron ) { |
| 758 |
|
| 759 |
# Get guarantor addresses |
| 760 |
my $guarantor_relationships = $patron->guarantor_relationships; |
| 761 |
my @guarantors = $guarantor_relationships->guarantors->as_list; |
| 762 |
foreach my $guarantor (@guarantors) { |
| 763 |
my $address = $guarantor->notice_email_address; |
| 764 |
push( @emails_to_use, $address ) if ($address); |
| 765 |
} |
| 766 |
} |
| 767 |
|
| 756 |
for my $mtt (@message_transport_types) { |
768 |
for my $mtt (@message_transport_types) { |
| 757 |
next if $mtt eq 'itiva'; |
769 |
next if $mtt eq 'itiva'; |
| 758 |
my $effective_mtt = $mtt; |
770 |
my $effective_mtt = $mtt; |
| 759 |
- |
|
|