Lines 258-265
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
258 |
$sth->execute($upcoming->{'borrowernumber'},$upcoming->{'itemnumber'},'0'); |
258 |
$sth->execute($upcoming->{'borrowernumber'},$upcoming->{'itemnumber'},'0'); |
259 |
my $titles = ""; |
259 |
my $titles = ""; |
260 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
260 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
261 |
my @item_info = map { $_ =~ /^date|date$/ ? format_date($item_info->{$_}) : $item_info->{$_} || '' } @item_content_fields; |
261 |
$titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); |
262 |
$titles .= join("\t",@item_info) . "\n"; |
|
|
263 |
} |
262 |
} |
264 |
|
263 |
|
265 |
## Get branch info for borrowers home library. |
264 |
## Get branch info for borrowers home library. |
Lines 292-299
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
292 |
$sth->execute($upcoming->{'borrowernumber'},$upcoming->{'itemnumber'},$borrower_preferences->{'days_in_advance'}); |
291 |
$sth->execute($upcoming->{'borrowernumber'},$upcoming->{'itemnumber'},$borrower_preferences->{'days_in_advance'}); |
293 |
my $titles = ""; |
292 |
my $titles = ""; |
294 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
293 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
295 |
my @item_info = map { $_ =~ /^date|date$/ ? format_date($item_info->{$_}) : $item_info->{$_} || '' } @item_content_fields; |
294 |
$titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); |
296 |
$titles .= join("\t",@item_info) . "\n"; |
|
|
297 |
} |
295 |
} |
298 |
|
296 |
|
299 |
## Get branch info for borrowers home library. |
297 |
## Get branch info for borrowers home library. |
Lines 358-365
PATRON: while ( my ( $borrowernumber, $digest ) = each %$upcoming_digest ) {
Link Here
|
358 |
$sth->execute($borrowernumber,$borrower_preferences->{'days_in_advance'}); |
356 |
$sth->execute($borrowernumber,$borrower_preferences->{'days_in_advance'}); |
359 |
my $titles = ""; |
357 |
my $titles = ""; |
360 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
358 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
361 |
my @item_info = map { $_ =~ /^date|date$/ ? format_date($item_info->{$_}) : $item_info->{$_} || '' } @item_content_fields; |
359 |
$titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); |
362 |
$titles .= join("\t",@item_info) . "\n"; |
|
|
363 |
} |
360 |
} |
364 |
|
361 |
|
365 |
## Get branch info for borrowers home library. |
362 |
## Get branch info for borrowers home library. |
Lines 415-422
PATRON: while ( my ( $borrowernumber, $digest ) = each %$due_digest ) {
Link Here
|
415 |
$sth->execute($borrowernumber,'0'); |
412 |
$sth->execute($borrowernumber,'0'); |
416 |
my $titles = ""; |
413 |
my $titles = ""; |
417 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
414 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
418 |
my @item_info = map { $_ =~ /^date|date$/ ? format_date($item_info->{$_}) : $item_info->{$_} || '' } @item_content_fields; |
415 |
$titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); |
419 |
$titles .= join("\t",@item_info) . "\n"; |
|
|
420 |
} |
416 |
} |
421 |
|
417 |
|
422 |
## Get branch info for borrowers home library. |
418 |
## Get branch info for borrowers home library. |
Lines 497-508
sub parse_letter {
Link Here
|
497 |
); |
493 |
); |
498 |
} |
494 |
} |
499 |
|
495 |
|
500 |
sub format_date { |
|
|
501 |
my $date_string = shift; |
502 |
my $dt=dt_from_string($date_string); |
503 |
return output_pref($dt); |
504 |
} |
505 |
|
506 |
=head2 get_branch_info |
496 |
=head2 get_branch_info |
507 |
|
497 |
|
508 |
=cut |
498 |
=cut |