Lines 37-42
use C4::Letters;
Link Here
|
37 |
use C4::Overdues; |
37 |
use C4::Overdues; |
38 |
use Koha::Calendar; |
38 |
use Koha::Calendar; |
39 |
use Koha::DateUtils; |
39 |
use Koha::DateUtils; |
|
|
40 |
use Koha::Patrons; |
40 |
|
41 |
|
41 |
sub usage { |
42 |
sub usage { |
42 |
pod2usage( -verbose => 2 ); |
43 |
pod2usage( -verbose => 2 ); |
Lines 57-62
my @holds_waiting_days_to_call;
Link Here
|
57 |
my $library_code; |
58 |
my $library_code; |
58 |
my $help; |
59 |
my $help; |
59 |
my $outfile; |
60 |
my $outfile; |
|
|
61 |
my $skip_patrons_with_email; |
60 |
|
62 |
|
61 |
# maps to convert I-tiva terms to Koha terms |
63 |
# maps to convert I-tiva terms to Koha terms |
62 |
my $type_module_map = { |
64 |
my $type_module_map = { |
Lines 78-83
GetOptions(
Link Here
|
78 |
'type:s' => \@types, |
80 |
'type:s' => \@types, |
79 |
'w|waiting-hold-day:s' => \@holds_waiting_days_to_call, |
81 |
'w|waiting-hold-day:s' => \@holds_waiting_days_to_call, |
80 |
'c|code|library-code:s' => \$library_code, |
82 |
'c|code|library-code:s' => \$library_code, |
|
|
83 |
's|skip-patrons-with-email' => \$skip_patrons_with_email, |
81 |
'help|h' => \$help, |
84 |
'help|h' => \$help, |
82 |
); |
85 |
); |
83 |
|
86 |
|
Lines 116-122
foreach my $type (@types) {
Link Here
|
116 |
next; |
119 |
next; |
117 |
} |
120 |
} |
118 |
|
121 |
|
|
|
122 |
my $patrons; |
119 |
foreach my $issues (@loop) { |
123 |
foreach my $issues (@loop) { |
|
|
124 |
$patrons->{$issues->{borrowernumber}} ||= Koha::Patrons->find( $issues->{borrowernumber} ) if $skip_patrons_with_email; |
125 |
next if $skip_patrons_with_email && $patrons->{$issues->{borrowernumber}}->notice_email_address; |
126 |
|
120 |
my $date_dt = dt_from_string ( $issues->{'date_due'} ); |
127 |
my $date_dt = dt_from_string ( $issues->{'date_due'} ); |
121 |
my $due_date = output_pref( { dt => $date_dt, dateonly => 1, dateformat =>'metric' } ); |
128 |
my $due_date = output_pref( { dt => $date_dt, dateonly => 1, dateformat =>'metric' } ); |
122 |
|
129 |
|
123 |
- |
|
|