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 587-593
sub send_digests {
Link Here
|
587 |
borrower_preferences => $borrower_preferences |
597 |
borrower_preferences => $borrower_preferences |
588 |
}); |
598 |
}); |
589 |
my $titles = ""; |
599 |
my $titles = ""; |
|
|
600 |
my @issues; |
590 |
while ( my $item_info = $next_item_info->()) { |
601 |
while ( my $item_info = $next_item_info->()) { |
|
|
602 |
push( @issues, $item_info ); |
591 |
$titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); |
603 |
$titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); |
592 |
} |
604 |
} |
593 |
|
605 |
|
Lines 596-604
sub send_digests {
Link Here
|
596 |
{ |
608 |
{ |
597 |
letter_code => $params->{letter_code}, |
609 |
letter_code => $params->{letter_code}, |
598 |
borrowernumber => $borrowernumber, |
610 |
borrowernumber => $borrowernumber, |
|
|
611 |
issues => \@issues, |
599 |
substitute => { |
612 |
substitute => { |
600 |
count => $count, |
613 |
count => $count, |
601 |
'items.content' => $titles, |
614 |
'items.content' => $titles, |
|
|
615 |
issues => \@issues, |
602 |
%branch_info |
616 |
%branch_info |
603 |
}, |
617 |
}, |
604 |
branchcode => $branchcode, |
618 |
branchcode => $branchcode, |
605 |
- |
|
|