Lines 259-268
PATRON: while ( my ( $borrowernumber, $digest ) = each %$upcoming_digest ) {
Link Here
|
259 |
my @item_info = map { $_ =~ /^date|date$/ ? format_date($item_info->{$_}) : $item_info->{$_} || '' } @item_content_fields; |
259 |
my @item_info = map { $_ =~ /^date|date$/ ? format_date($item_info->{$_}) : $item_info->{$_} || '' } @item_content_fields; |
260 |
$titles .= join("\t",@item_info) . "\n"; |
260 |
$titles .= join("\t",@item_info) . "\n"; |
261 |
} |
261 |
} |
|
|
262 |
|
263 |
## Get branch info for borrowers home library. |
264 |
my %branch_info = get_branch_info( $borrowernumber ); |
265 |
|
262 |
$letter = parse_letter( { letter => $letter, |
266 |
$letter = parse_letter( { letter => $letter, |
263 |
borrowernumber => $borrowernumber, |
267 |
borrowernumber => $borrowernumber, |
264 |
substitute => { count => $count, |
268 |
substitute => { count => $count, |
265 |
'items.content' => $titles |
269 |
'items.content' => $titles, |
|
|
270 |
%branch_info, |
266 |
} |
271 |
} |
267 |
} ); |
272 |
} ); |
268 |
if ($nomail) { |
273 |
if ($nomail) { |
Lines 298-307
PATRON: while ( my ( $borrowernumber, $digest ) = each %$due_digest ) {
Link Here
|
298 |
my @item_info = map { $_ =~ /^date|date$/ ? format_date($item_info->{$_}) : $item_info->{$_} || '' } @item_content_fields; |
303 |
my @item_info = map { $_ =~ /^date|date$/ ? format_date($item_info->{$_}) : $item_info->{$_} || '' } @item_content_fields; |
299 |
$titles .= join("\t",@item_info) . "\n"; |
304 |
$titles .= join("\t",@item_info) . "\n"; |
300 |
} |
305 |
} |
|
|
306 |
|
307 |
## Get branch info for borrowers home library. |
308 |
my %branch_info = get_branch_info( $borrowernumber ); |
309 |
|
301 |
$letter = parse_letter( { letter => $letter, |
310 |
$letter = parse_letter( { letter => $letter, |
302 |
borrowernumber => $borrowernumber, |
311 |
borrowernumber => $borrowernumber, |
303 |
substitute => { count => $count, |
312 |
substitute => { count => $count, |
304 |
'items.content' => $titles |
313 |
'items.content' => $titles, |
|
|
314 |
%branch_info, |
305 |
} |
315 |
} |
306 |
} ); |
316 |
} ); |
307 |
|
317 |
|
Lines 359-364
sub parse_letter {
Link Here
|
359 |
return $params->{'letter'}; |
369 |
return $params->{'letter'}; |
360 |
} |
370 |
} |
361 |
|
371 |
|
|
|
372 |
=head2 get_branch_info |
373 |
|
374 |
=cut |
375 |
|
376 |
sub get_branch_info { |
377 |
my ( $borrowernumber ) = @_; |
378 |
|
379 |
## Get branch info for borrowers home library. |
380 |
my $borrower_details = C4::Members::GetMemberDetails( $borrowernumber ); |
381 |
my $borrower_branchcode = $borrower_details->{'branchcode'}; |
382 |
my $branch = C4::Branch::GetBranchDetail( $borrower_branchcode ); |
383 |
my %branch_info; |
384 |
foreach my $key( keys %$branch ) { |
385 |
$branch_info{"branches.$key"} = $branch->{$key}; |
386 |
} |
387 |
|
388 |
return %branch_info; |
389 |
} |
362 |
1; |
390 |
1; |
363 |
|
391 |
|
364 |
__END__ |
392 |
__END__ |
365 |
- |
|
|