Lines 292-298
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
292 |
my $letter_type = 'DUE'; |
292 |
my $letter_type = 'DUE'; |
293 |
$sth->execute($upcoming->{'borrowernumber'},$upcoming->{'itemnumber'},'0'); |
293 |
$sth->execute($upcoming->{'borrowernumber'},$upcoming->{'itemnumber'},'0'); |
294 |
my $titles = ""; |
294 |
my $titles = ""; |
|
|
295 |
my @issues; |
295 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
296 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
|
|
297 |
push( @issues, $item_info ); |
296 |
$titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); |
298 |
$titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); |
297 |
} |
299 |
} |
298 |
|
300 |
|
Lines 303-309
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
303 |
branchcode => $branchcode, |
305 |
branchcode => $branchcode, |
304 |
biblionumber => $item->biblionumber, |
306 |
biblionumber => $item->biblionumber, |
305 |
itemnumber => $upcoming->{'itemnumber'}, |
307 |
itemnumber => $upcoming->{'itemnumber'}, |
306 |
substitute => { 'items.content' => $titles }, |
308 |
substitute => { |
|
|
309 |
'items.content' => $titles, |
310 |
issue => $issues[0], |
311 |
}, |
307 |
message_transport_type => $transport, |
312 |
message_transport_type => $transport, |
308 |
} ) |
313 |
} ) |
309 |
or warn "no letter of type '$letter_type' found for borrowernumber ".$upcoming->{'borrowernumber'}.". Please see sample_notices.sql"; |
314 |
or warn "no letter of type '$letter_type' found for borrowernumber ".$upcoming->{'borrowernumber'}.". Please see sample_notices.sql"; |
Lines 339-345
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
339 |
my $letter_type = 'PREDUE'; |
344 |
my $letter_type = 'PREDUE'; |
340 |
$sth->execute($upcoming->{'borrowernumber'},$upcoming->{'itemnumber'},$borrower_preferences->{'days_in_advance'}); |
345 |
$sth->execute($upcoming->{'borrowernumber'},$upcoming->{'itemnumber'},$borrower_preferences->{'days_in_advance'}); |
341 |
my $titles = ""; |
346 |
my $titles = ""; |
|
|
347 |
my @issues; |
342 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
348 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
|
|
349 |
push( @issues, $item_info ); |
343 |
$titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); |
350 |
$titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); |
344 |
} |
351 |
} |
345 |
|
352 |
|
Lines 350-356
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
350 |
branchcode => $branchcode, |
357 |
branchcode => $branchcode, |
351 |
biblionumber => $item->biblionumber, |
358 |
biblionumber => $item->biblionumber, |
352 |
itemnumber => $upcoming->{'itemnumber'}, |
359 |
itemnumber => $upcoming->{'itemnumber'}, |
353 |
substitute => { 'items.content' => $titles }, |
360 |
substitute => { |
|
|
361 |
'items.content' => $titles, |
362 |
issue => $issues[0], |
363 |
}, |
354 |
message_transport_type => $transport, |
364 |
message_transport_type => $transport, |
355 |
} ) |
365 |
} ) |
356 |
or warn "no letter of type '$letter_type' found for borrowernumber ".$upcoming->{'borrowernumber'}.". Please see sample_notices.sql"; |
366 |
or warn "no letter of type '$letter_type' found for borrowernumber ".$upcoming->{'borrowernumber'}.". Please see sample_notices.sql"; |
Lines 589-596
sub send_digests {
Link Here
|
589 |
}); |
599 |
}); |
590 |
my $titles = ""; |
600 |
my $titles = ""; |
591 |
my @itemnumbers; |
601 |
my @itemnumbers; |
|
|
602 |
my @issues; |
592 |
while ( my $item_info = $next_item_info->()) { |
603 |
while ( my $item_info = $next_item_info->()) { |
593 |
push @itemnumbers, $item_info->{itemnumber}; |
604 |
push @itemnumbers, $item_info->{itemnumber}; |
|
|
605 |
push( @issues, $item_info ); |
594 |
$titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); |
606 |
$titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); |
595 |
} |
607 |
} |
596 |
|
608 |
|
Lines 599-607
sub send_digests {
Link Here
|
599 |
{ |
611 |
{ |
600 |
letter_code => $params->{letter_code}, |
612 |
letter_code => $params->{letter_code}, |
601 |
borrowernumber => $borrowernumber, |
613 |
borrowernumber => $borrowernumber, |
|
|
614 |
issues => \@issues, |
602 |
substitute => { |
615 |
substitute => { |
603 |
count => $count, |
616 |
count => $count, |
604 |
'items.content' => $titles, |
617 |
'items.content' => $titles, |
|
|
618 |
issues => \@issues, |
605 |
%branch_info |
619 |
%branch_info |
606 |
}, |
620 |
}, |
607 |
itemnumbers => \@itemnumbers, |
621 |
itemnumbers => \@itemnumbers, |
608 |
- |
|
|