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