|
Lines 483-488
sub GetPatronInfo {
Link Here
|
| 483 |
while ( my $c = $pending_checkouts->next ) { |
483 |
while ( my $c = $pending_checkouts->next ) { |
| 484 |
# FIXME We should only retrieve what is needed in the template |
484 |
# FIXME We should only retrieve what is needed in the template |
| 485 |
my $issue = $c->unblessed_all_relateds; |
485 |
my $issue = $c->unblessed_all_relateds; |
|
|
486 |
delete $issue->{'more_subfields_xml'}; |
| 486 |
push @checkouts, $issue |
487 |
push @checkouts, $issue |
| 487 |
} |
488 |
} |
| 488 |
$borrower->{'loans'}->{'loan'} = \@checkouts; |
489 |
$borrower->{'loans'}->{'loan'} = \@checkouts; |
| 489 |
- |
|
|