|
Lines 462-473
sub GetPatronInfo {
Link Here
|
| 462 |
|
462 |
|
| 463 |
# Issues management |
463 |
# Issues management |
| 464 |
if ( $cgi->param('show_loans') && $cgi->param('show_loans') eq "1" ) { |
464 |
if ( $cgi->param('show_loans') && $cgi->param('show_loans') eq "1" ) { |
| 465 |
my $issues = GetPendingIssues($borrowernumber); |
465 |
my $pending_checkouts = $patron->pending_checkouts; |
| 466 |
foreach my $issue ( @$issues ){ |
466 |
my @checkouts; |
| 467 |
$issue->{'issuedate'} = $issue->{'issuedate'}->strftime('%Y-%m-%d %H:%M'); |
467 |
while ( my $c = $pending_checkouts->next ) { |
| 468 |
$issue->{'date_due'} = $issue->{'date_due'}->strftime('%Y-%m-%d %H:%M'); |
468 |
# FIXME We should only retrieve what is needed in the template |
|
|
469 |
my $issue = $c->unblessed_all_relateds; |
| 470 |
push @checkouts, $issue |
| 469 |
} |
471 |
} |
| 470 |
$borrower->{'loans'}->{'loan'} = $issues; |
472 |
$borrower->{'loans'}->{'loan'} = \@checkouts; |
| 471 |
} |
473 |
} |
| 472 |
|
474 |
|
| 473 |
if ( $cgi->param('show_attributes') eq "1" ) { |
475 |
if ( $cgi->param('show_attributes') eq "1" ) { |
| 474 |
- |
|
|