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