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