|
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 |
- |
|
|