Lines 749-766
END_SQL
Link Here
|
749 |
$sth2->finish; |
749 |
$sth2->finish; |
750 |
|
750 |
|
751 |
my @message_transport_types; |
751 |
my @message_transport_types; |
752 |
if (C4::Context->preference('UsePatronPreferencesForOverdueNotices')) { |
752 |
if ( C4::Context->preference('UsePatronPreferencesForOverdueNotices') ) { |
753 |
my $patronpref = GetMessagingPreferences( |
753 |
my $patronpref = C4::Members::Messaging::GetMessagingPreferences( |
754 |
{ borrowernumber => $borrowernumber, message_name => "Overdue$i"}); |
754 |
{ borrowernumber => $borrowernumber, message_name => "Overdue$i" } ); |
755 |
if ($patronpref && $patronpref->{'transports'}) { |
755 |
if ( $patronpref && $patronpref->{'transports'} ) { |
756 |
@message_transport_types = keys %{$patronpref->{'transports'}}; |
756 |
@message_transport_types = keys %{ $patronpref->{'transports'} }; |
757 |
} |
757 |
} |
758 |
my $print_behavior = C4::Context->preference('UsePatronPreferencesForOverdueNoticesPrint'); |
758 |
my $print_behavior = C4::Context->preference('UsePatronPreferencesForOverdueNoticesPrint'); |
759 |
if ( |
759 |
if ( $print_behavior eq 'always' |
760 |
$print_behavior eq 'always' || |
760 |
|| $print_behavior eq 'fallback' && !@message_transport_types ) |
761 |
$print_behavior eq 'fallback' && !@message_transport_types |
761 |
{ |
762 |
) { |
762 |
unshift( @message_transport_types, 'shift' ); |
763 |
unshift(@message_transport_types, 'shift'); |
|
|
764 |
} |
763 |
} |
765 |
} else { |
764 |
} else { |
766 |
my @message_transport_types = |
765 |
my @message_transport_types = |
767 |
- |
|
|