|
Lines 349-361
PATRON: while ( my ( $borrowernumber, $digest ) = each %$upcoming_digest ) {
Link Here
|
| 349 |
## Get branch info for borrowers home library. |
349 |
## Get branch info for borrowers home library. |
| 350 |
my %branch_info = get_branch_info( $borrowernumber ); |
350 |
my %branch_info = get_branch_info( $borrowernumber ); |
| 351 |
|
351 |
|
| 352 |
my $letter = parse_letter( { letter_code => $letter_type, |
352 |
my $letter = parse_letter( |
| 353 |
borrowernumber => $borrowernumber, |
353 |
{ |
| 354 |
substitute => { count => $count, |
354 |
letter_code => $letter_type, |
| 355 |
'items.content' => $titles, |
355 |
borrowernumber => $borrowernumber, |
| 356 |
%branch_info, |
356 |
substitute => { |
| 357 |
} |
357 |
count => $count, |
| 358 |
} ) |
358 |
'items.content' => $titles, |
|
|
359 |
%branch_info, |
| 360 |
}, |
| 361 |
branchcode => $branch_info{ "branches.branchcode" }, |
| 362 |
} |
| 363 |
) |
| 359 |
or die "no letter of type '$letter_type' found. Please see sample_notices.sql"; |
364 |
or die "no letter of type '$letter_type' found. Please see sample_notices.sql"; |
| 360 |
if ($nomail) { |
365 |
if ($nomail) { |
| 361 |
local $, = "\f"; |
366 |
local $, = "\f"; |
|
Lines 392-404
PATRON: while ( my ( $borrowernumber, $digest ) = each %$due_digest ) {
Link Here
|
| 392 |
## Get branch info for borrowers home library. |
397 |
## Get branch info for borrowers home library. |
| 393 |
my %branch_info = get_branch_info( $borrowernumber ); |
398 |
my %branch_info = get_branch_info( $borrowernumber ); |
| 394 |
|
399 |
|
| 395 |
my $letter = parse_letter( { letter_code => $letter_type, |
400 |
my $letter = parse_letter( |
| 396 |
borrowernumber => $borrowernumber, |
401 |
{ |
| 397 |
substitute => { count => $count, |
402 |
letter_code => $letter_type, |
| 398 |
'items.content' => $titles, |
403 |
borrowernumber => $borrowernumber, |
| 399 |
%branch_info, |
404 |
substitute => { |
| 400 |
} |
405 |
count => $count, |
| 401 |
} ) |
406 |
'items.content' => $titles, |
|
|
407 |
%branch_info, |
| 408 |
}, |
| 409 |
branchcode => $branch_info{ "branches.branchcode" }, |
| 410 |
} |
| 411 |
) |
| 402 |
or die "no letter of type '$letter_type' found. Please see sample_notices.sql"; |
412 |
or die "no letter of type '$letter_type' found. Please see sample_notices.sql"; |
| 403 |
|
413 |
|
| 404 |
if ($nomail) { |
414 |
if ($nomail) { |
| 405 |
- |
|
|