|
Lines 161-166
The F<misc/cronjobs/overdue_notices.pl> program allows you to send
Link Here
|
| 161 |
messages to patrons when their messages are overdue. |
161 |
messages to patrons when their messages are overdue. |
| 162 |
=cut |
162 |
=cut |
| 163 |
|
163 |
|
|
|
164 |
binmode( STDOUT, ':encoding(UTF-8)' ); |
| 165 |
|
| 164 |
# These are defaults for command line options. |
166 |
# These are defaults for command line options. |
| 165 |
my $confirm; # -c: Confirm that the user has read and configured this script. |
167 |
my $confirm; # -c: Confirm that the user has read and configured this script. |
| 166 |
my $nomail; # -n: No mail. Will not send any emails. |
168 |
my $nomail; # -n: No mail. Will not send any emails. |
|
Lines 265-271
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
| 265 |
substitute => { 'items.content' => $titles }, |
267 |
substitute => { 'items.content' => $titles }, |
| 266 |
message_transport_type => $transport, |
268 |
message_transport_type => $transport, |
| 267 |
} ) |
269 |
} ) |
| 268 |
or warn "no letter of type '$letter_type' found. Please see sample_notices.sql"; |
270 |
or warn "no letter of type '$letter_type' found for borrowernumber ".$upcoming->{'borrowernumber'}.". Please see sample_notices.sql"; |
| 269 |
push @letters, $letter if $letter; |
271 |
push @letters, $letter if $letter; |
| 270 |
} |
272 |
} |
| 271 |
} |
273 |
} |
|
Lines 301-307
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
| 301 |
substitute => { 'items.content' => $titles }, |
303 |
substitute => { 'items.content' => $titles }, |
| 302 |
message_transport_type => $transport, |
304 |
message_transport_type => $transport, |
| 303 |
} ) |
305 |
} ) |
| 304 |
or warn "no letter of type '$letter_type' found. Please see sample_notices.sql"; |
306 |
or warn "no letter of type '$letter_type' found for borrowernumber ".$upcoming->{'borrowernumber'}.". Please see sample_notices.sql"; |
| 305 |
push @letters, $letter if $letter; |
307 |
push @letters, $letter if $letter; |
| 306 |
} |
308 |
} |
| 307 |
} |
309 |
} |
|
Lines 376-382
PATRON: while ( my ( $borrowernumber, $digest ) = each %$upcoming_digest ) {
Link Here
|
| 376 |
message_transport_type => $transport, |
378 |
message_transport_type => $transport, |
| 377 |
} |
379 |
} |
| 378 |
) |
380 |
) |
| 379 |
or warn "no letter of type '$letter_type' found. Please see sample_notices.sql"; |
381 |
or warn "no letter of type '$letter_type' found for borrowernumber $borrowernumber. Please see sample_notices.sql"; |
| 380 |
push @letters, $letter if $letter; |
382 |
push @letters, $letter if $letter; |
| 381 |
} |
383 |
} |
| 382 |
|
384 |
|
|
Lines 434-440
PATRON: while ( my ( $borrowernumber, $digest ) = each %$due_digest ) {
Link Here
|
| 434 |
message_transport_type => $transport, |
436 |
message_transport_type => $transport, |
| 435 |
} |
437 |
} |
| 436 |
) |
438 |
) |
| 437 |
or warn "no letter of type '$letter_type' found. Please see sample_notices.sql"; |
439 |
or warn "no letter of type '$letter_type' found for borrowernumber $borrowernumber. Please see sample_notices.sql"; |
| 438 |
push @letters, $letter if $letter; |
440 |
push @letters, $letter if $letter; |
| 439 |
} |
441 |
} |
| 440 |
|
442 |
|
| 441 |
- |
|
|