Lines 266-272
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
266 |
message_transport_type => $transport, |
266 |
message_transport_type => $transport, |
267 |
} ) |
267 |
} ) |
268 |
or warn "no letter of type '$letter_type' found. Please see sample_notices.sql"; |
268 |
or warn "no letter of type '$letter_type' found. Please see sample_notices.sql"; |
269 |
push @letters, $letter; |
269 |
push @letters, $letter if $letter; |
270 |
} |
270 |
} |
271 |
} |
271 |
} |
272 |
} else { |
272 |
} else { |
Lines 302-308
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
302 |
message_transport_type => $transport, |
302 |
message_transport_type => $transport, |
303 |
} ) |
303 |
} ) |
304 |
or warn "no letter of type '$letter_type' found. Please see sample_notices.sql"; |
304 |
or warn "no letter of type '$letter_type' found. Please see sample_notices.sql"; |
305 |
push @letters, $letter; |
305 |
push @letters, $letter if $letter; |
306 |
} |
306 |
} |
307 |
} |
307 |
} |
308 |
} |
308 |
} |
Lines 376-383
PATRON: while ( my ( $borrowernumber, $digest ) = each %$upcoming_digest ) {
Link Here
|
376 |
message_transport_type => $transport, |
376 |
message_transport_type => $transport, |
377 |
} |
377 |
} |
378 |
) |
378 |
) |
379 |
or die "no letter of type '$letter_type' found. Please see sample_notices.sql"; |
379 |
or warn "no letter of type '$letter_type' found. Please see sample_notices.sql"; |
380 |
push @letters, $letter; |
380 |
push @letters, $letter if $letter; |
381 |
} |
381 |
} |
382 |
|
382 |
|
383 |
if ( @letters ) { |
383 |
if ( @letters ) { |
Lines 434-441
PATRON: while ( my ( $borrowernumber, $digest ) = each %$due_digest ) {
Link Here
|
434 |
message_transport_type => $transport, |
434 |
message_transport_type => $transport, |
435 |
} |
435 |
} |
436 |
) |
436 |
) |
437 |
or die "no letter of type '$letter_type' found. Please see sample_notices.sql"; |
437 |
or warn "no letter of type '$letter_type' found. Please see sample_notices.sql"; |
438 |
push @letters, $letter; |
438 |
push @letters, $letter if $letter; |
439 |
} |
439 |
} |
440 |
|
440 |
|
441 |
if ( @letters ) { |
441 |
if ( @letters ) { |
442 |
- |
|
|