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