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