@@ -, +, @@ advance_notices.pl ) --- misc/cronjobs/advance_notices.pl | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) --- a/misc/cronjobs/advance_notices.pl +++ a/misc/cronjobs/advance_notices.pl @@ -292,7 +292,9 @@ UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { my $letter_type = 'DUE'; $sth->execute($upcoming->{'borrowernumber'},$upcoming->{'itemnumber'},'0'); my $titles = ""; + my @issues; while ( my $item_info = $sth->fetchrow_hashref()) { + push( @issues, $item_info ); $titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); } @@ -303,7 +305,10 @@ UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { branchcode => $branchcode, biblionumber => $item->biblionumber, itemnumber => $upcoming->{'itemnumber'}, - substitute => { 'items.content' => $titles }, + substitute => { + 'items.content' => $titles, + issue => $issues[0], + }, message_transport_type => $transport, } ) or warn "no letter of type '$letter_type' found for borrowernumber ".$upcoming->{'borrowernumber'}.". Please see sample_notices.sql"; @@ -339,7 +344,9 @@ UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { my $letter_type = 'PREDUE'; $sth->execute($upcoming->{'borrowernumber'},$upcoming->{'itemnumber'},$borrower_preferences->{'days_in_advance'}); my $titles = ""; + my @issues; while ( my $item_info = $sth->fetchrow_hashref()) { + push( @issues, $item_info ); $titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); } @@ -350,7 +357,10 @@ UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { branchcode => $branchcode, biblionumber => $item->biblionumber, itemnumber => $upcoming->{'itemnumber'}, - substitute => { 'items.content' => $titles }, + substitute => { + 'items.content' => $titles, + issue => $issues[0], + }, message_transport_type => $transport, } ) or warn "no letter of type '$letter_type' found for borrowernumber ".$upcoming->{'borrowernumber'}.". Please see sample_notices.sql"; @@ -587,7 +597,9 @@ sub send_digests { borrower_preferences => $borrower_preferences }); my $titles = ""; + my @issues; while ( my $item_info = $next_item_info->()) { + push( @issues, $item_info ); $titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); } @@ -596,9 +608,11 @@ sub send_digests { { letter_code => $params->{letter_code}, borrowernumber => $borrowernumber, + issues => \@issues, substitute => { count => $count, 'items.content' => $titles, + issues => \@issues, %branch_info }, branchcode => $branchcode, --