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