Lines 425-435
sub GetPatronInfo {
Link Here
|
425 |
|
425 |
|
426 |
# Fines management |
426 |
# Fines management |
427 |
if ( $cgi->param('show_fines') && $cgi->param('show_fines') eq "1" ) { |
427 |
if ( $cgi->param('show_fines') && $cgi->param('show_fines') eq "1" ) { |
428 |
my @charges; |
428 |
|
429 |
for ( my $i = 1 ; my @charge = getcharges( $borrowernumber, undef, $i ) ; $i++ ) { |
429 |
my $account_lines = Koha::Account::Lines->search({ |
430 |
push( @charges, @charge ); |
430 |
borrowernumber => $patron->borrowernumber, |
|
|
431 |
}); |
432 |
|
433 |
while (my $line = $account_lines->next ) { |
434 |
push @{ $borrower->{fines}{fine} }, $line->unblessed; |
431 |
} |
435 |
} |
432 |
$borrower->{'fines'}->{'fine'} = \@charges; |
|
|
433 |
} |
436 |
} |
434 |
|
437 |
|
435 |
# Reserves management |
438 |
# Reserves management |