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