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