Lines 25-36
use Pod::Usage qw( pod2usage );
Link Here
|
25 |
use Text::CSV_XS; |
25 |
use Text::CSV_XS; |
26 |
use DateTime; |
26 |
use DateTime; |
27 |
use DateTime::Duration; |
27 |
use DateTime::Duration; |
|
|
28 |
use List::MoreUtils qw( uniq ); |
28 |
|
29 |
|
29 |
use Koha::Script -cron; |
30 |
use Koha::Script -cron; |
30 |
use C4::Context; |
31 |
use C4::Context; |
31 |
use C4::Letters; |
32 |
use C4::Letters; |
32 |
use C4::Overdues qw( GetOverdueMessageTransportTypes parse_overdues_letter ); |
33 |
use C4::Overdues qw( GetOverdueMessageTransportTypes parse_overdues_letter ); |
33 |
use C4::Log qw( cronlogaction ); |
34 |
use C4::Log qw( cronlogaction ); |
|
|
35 |
use C4::Members::Messaging qw( GetMessagingPreferences ); |
34 |
use Koha::Patron::Debarments qw( AddUniqueDebarment ); |
36 |
use Koha::Patron::Debarments qw( AddUniqueDebarment ); |
35 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
37 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
36 |
use Koha::Calendar; |
38 |
use Koha::Calendar; |
Lines 711-721
END_SQL
Link Here
|
711 |
push @items, $item_info; |
713 |
push @items, $item_info; |
712 |
} |
714 |
} |
713 |
$sth2->finish; |
715 |
$sth2->finish; |
714 |
|
716 |
my @message_transport_types; |
715 |
my @message_transport_types = @{ GetOverdueMessageTransportTypes( $branchcode, $overdue_rules->{categorycode}, $i) }; |
717 |
if (C4::Context->preference('UsePatronPreferencesForOverdueNotices')) { |
716 |
@message_transport_types = @{ GetOverdueMessageTransportTypes( q{}, $overdue_rules->{categorycode}, $i) } |
718 |
my $patronpref = GetMessagingPreferences( |
|
|
719 |
{ borrowernumber => $borrowernumber, message_name => "Overdue$i"}); |
720 |
if ($patronpref && $patronpref->{'transports'}) { |
721 |
@message_transport_types = keys %{$patronpref->{'transports'}}; |
722 |
} |
723 |
my $print_behavior = C4::Context->preference('UsePatronPreferencesForOverdueNoticesPrint'); |
724 |
if ( |
725 |
$print_behavior eq 'always' || |
726 |
$print_behavior eq 'fallback' && !@message_transport_types |
727 |
) { |
728 |
unshift(@message_transport_types, 'shift'); |
729 |
} |
730 |
} else { |
731 |
@message_transport_types = @{ GetOverdueMessageTransportTypes( $branchcode, $overdue_rules->{categorycode}, $i) }; |
732 |
@message_transport_types = @{ GetOverdueMessageTransportTypes( q{}, $overdue_rules->{categorycode}, $i) } |
717 |
unless @message_transport_types; |
733 |
unless @message_transport_types; |
718 |
|
734 |
} |
719 |
|
735 |
|
720 |
my $print_sent = 0; # A print notice is not yet sent for this patron |
736 |
my $print_sent = 0; # A print notice is not yet sent for this patron |
721 |
for my $mtt ( @message_transport_types ) { |
737 |
for my $mtt ( @message_transport_types ) { |
722 |
- |
|
|