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 |
- |
|
|