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

(-)a/misc/cronjobs/advance_notices.pl (-3 / +16 lines)
Lines 302-308 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here
302
            my $letter_type = 'DUE';
302
            my $letter_type = 'DUE';
303
            $sth->execute($upcoming->{'borrowernumber'},$upcoming->{'itemnumber'},'0');
303
            $sth->execute($upcoming->{'borrowernumber'},$upcoming->{'itemnumber'},'0');
304
            my $titles = "";
304
            my $titles = "";
305
            my @issues;
305
            while ( my $item_info = $sth->fetchrow_hashref()) {
306
            while ( my $item_info = $sth->fetchrow_hashref()) {
307
                push( @issues, $item_info );
306
                $titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } );
308
                $titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } );
307
            }
309
            }
308
310
Lines 313-319 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here
313
                                      branchcode     => $branchcode,
315
                                      branchcode     => $branchcode,
314
                                      biblionumber   => $item->biblionumber,
316
                                      biblionumber   => $item->biblionumber,
315
                                      itemnumber     => $upcoming->{'itemnumber'},
317
                                      itemnumber     => $upcoming->{'itemnumber'},
316
                                      substitute     => { 'items.content' => $titles },
318
                                      substitute     => {
319
                                          'items.content' => $titles,
320
                                          issue          => $issues[0],
321
                                      },
317
                                      message_transport_type => $transport,
322
                                      message_transport_type => $transport,
318
                                    } )
323
                                    } )
319
                    or warn "no letter of type '$letter_type' found for borrowernumber ".$upcoming->{'borrowernumber'}.". Please see sample_notices.sql";
324
                    or warn "no letter of type '$letter_type' found for borrowernumber ".$upcoming->{'borrowernumber'}.". Please see sample_notices.sql";
Lines 349-355 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here
349
            my $letter_type = 'PREDUE';
354
            my $letter_type = 'PREDUE';
350
            $sth->execute($upcoming->{'borrowernumber'},$upcoming->{'itemnumber'},$borrower_preferences->{'days_in_advance'});
355
            $sth->execute($upcoming->{'borrowernumber'},$upcoming->{'itemnumber'},$borrower_preferences->{'days_in_advance'});
351
            my $titles = "";
356
            my $titles = "";
357
            my @issues;
352
            while ( my $item_info = $sth->fetchrow_hashref()) {
358
            while ( my $item_info = $sth->fetchrow_hashref()) {
359
                push( @issues, $item_info );
353
                $titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } );
360
                $titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } );
354
            }
361
            }
355
362
Lines 360-366 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here
360
                                      branchcode     => $branchcode,
367
                                      branchcode     => $branchcode,
361
                                      biblionumber   => $item->biblionumber,
368
                                      biblionumber   => $item->biblionumber,
362
                                      itemnumber     => $upcoming->{'itemnumber'},
369
                                      itemnumber     => $upcoming->{'itemnumber'},
363
                                      substitute     => { 'items.content' => $titles },
370
                                      substitute     => {
371
                                          'items.content' => $titles,
372
                                          issue           => $issues[0],
373
                                      },
364
                                      message_transport_type => $transport,
374
                                      message_transport_type => $transport,
365
                                    } )
375
                                    } )
366
                    or warn "no letter of type '$letter_type' found for borrowernumber ".$upcoming->{'borrowernumber'}.". Please see sample_notices.sql";
376
                    or warn "no letter of type '$letter_type' found for borrowernumber ".$upcoming->{'borrowernumber'}.". Please see sample_notices.sql";
Lines 597-603 sub send_digests { Link Here
597
            borrower_preferences => $borrower_preferences
607
            borrower_preferences => $borrower_preferences
598
        });
608
        });
599
        my $titles = "";
609
        my $titles = "";
610
        my @issues;
600
        while ( my $item_info = $next_item_info->()) {
611
        while ( my $item_info = $next_item_info->()) {
612
            push( @issues, $item_info );
601
            $titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } );
613
            $titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } );
602
        }
614
        }
603
615
Lines 606-614 sub send_digests { Link Here
606
                {
618
                {
607
                    letter_code    => $params->{letter_code},
619
                    letter_code    => $params->{letter_code},
608
                    borrowernumber => $borrowernumber,
620
                    borrowernumber => $borrowernumber,
621
                    issues         => \@issues,
609
                    substitute     => {
622
                    substitute     => {
610
                        count           => $count,
623
                        count           => $count,
611
                        'items.content' => $titles,
624
                        'items.content' => $titles,
625
                        issues          => \@issues,
612
                        %branch_info
626
                        %branch_info
613
                    },
627
                    },
614
                    branchcode     => $branchcode,
628
                    branchcode     => $branchcode,
615
- 

Return to bug 29100