Lines 255-262
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
255 |
$sth->execute($upcoming->{'borrowernumber'},$upcoming->{'itemnumber'},'0'); |
255 |
$sth->execute($upcoming->{'borrowernumber'},$upcoming->{'itemnumber'},'0'); |
256 |
my $titles = ""; |
256 |
my $titles = ""; |
257 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
257 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
258 |
my @item_info = map { $_ =~ /^date|date$/ ? format_date($item_info->{$_}) : $item_info->{$_} || '' } @item_content_fields; |
258 |
$titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); |
259 |
$titles .= join("\t",@item_info) . "\n"; |
|
|
260 |
} |
259 |
} |
261 |
|
260 |
|
262 |
## Get branch info for borrowers home library. |
261 |
## Get branch info for borrowers home library. |
Lines 289-296
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
289 |
$sth->execute($upcoming->{'borrowernumber'},$upcoming->{'itemnumber'},$borrower_preferences->{'days_in_advance'}); |
288 |
$sth->execute($upcoming->{'borrowernumber'},$upcoming->{'itemnumber'},$borrower_preferences->{'days_in_advance'}); |
290 |
my $titles = ""; |
289 |
my $titles = ""; |
291 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
290 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
292 |
my @item_info = map { $_ =~ /^date|date$/ ? format_date($item_info->{$_}) : $item_info->{$_} || '' } @item_content_fields; |
291 |
$titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); |
293 |
$titles .= join("\t",@item_info) . "\n"; |
|
|
294 |
} |
292 |
} |
295 |
|
293 |
|
296 |
## Get branch info for borrowers home library. |
294 |
## Get branch info for borrowers home library. |
Lines 355-362
PATRON: while ( my ( $borrowernumber, $digest ) = each %$upcoming_digest ) {
Link Here
|
355 |
$sth->execute($borrowernumber,$borrower_preferences->{'days_in_advance'}); |
353 |
$sth->execute($borrowernumber,$borrower_preferences->{'days_in_advance'}); |
356 |
my $titles = ""; |
354 |
my $titles = ""; |
357 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
355 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
358 |
my @item_info = map { $_ =~ /^date|date$/ ? format_date($item_info->{$_}) : $item_info->{$_} || '' } @item_content_fields; |
356 |
$titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); |
359 |
$titles .= join("\t",@item_info) . "\n"; |
|
|
360 |
} |
357 |
} |
361 |
|
358 |
|
362 |
## Get branch info for borrowers home library. |
359 |
## Get branch info for borrowers home library. |
Lines 412-419
PATRON: while ( my ( $borrowernumber, $digest ) = each %$due_digest ) {
Link Here
|
412 |
$sth->execute($borrowernumber,'0'); |
409 |
$sth->execute($borrowernumber,'0'); |
413 |
my $titles = ""; |
410 |
my $titles = ""; |
414 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
411 |
while ( my $item_info = $sth->fetchrow_hashref()) { |
415 |
my @item_info = map { $_ =~ /^date|date$/ ? format_date($item_info->{$_}) : $item_info->{$_} || '' } @item_content_fields; |
412 |
$titles .= C4::Letters::get_item_content( { item => $item_info, item_content_fields => \@item_content_fields } ); |
416 |
$titles .= join("\t",@item_info) . "\n"; |
|
|
417 |
} |
413 |
} |
418 |
|
414 |
|
419 |
## Get branch info for borrowers home library. |
415 |
## Get branch info for borrowers home library. |
Lines 492-503
sub parse_letter {
Link Here
|
492 |
); |
488 |
); |
493 |
} |
489 |
} |
494 |
|
490 |
|
495 |
sub format_date { |
|
|
496 |
my $date_string = shift; |
497 |
my $dt=dt_from_string($date_string); |
498 |
return output_pref($dt); |
499 |
} |
500 |
|
501 |
=head2 get_branch_info |
491 |
=head2 get_branch_info |
502 |
|
492 |
|
503 |
=cut |
493 |
=cut |