View | Details | Raw Unified | Return to bug 8258
Collapse All | Expand All

(-)a/misc/cronjobs/advance_notices.pl (-15 / +24 lines)
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
- 

Return to bug 8258