@@ -, +, @@ --- C4/ILSDI/Services.pm | 9 ++++----- 1 files changed, 4 insertions(+), 5 deletions(-) --- a/C4/ILSDI/Services.pm +++ a/C4/ILSDI/Services.pm @@ -24,7 +24,6 @@ use C4::Members; use C4::Items; use C4::Circulation; use C4::Branch; -use C4::Accounts; use C4::Biblio; use C4::Reserves qw(AddReserve CancelReserve GetReservesFromBiblionumber GetReservesFromBorrowernumber CanBookBeReserved CanItemBeReserved); use C4::Context; @@ -34,6 +33,7 @@ use HTML::Entities; use CGI; use DateTime; use C4::Auth; +use Koha::Database; =head1 NAME @@ -387,10 +387,9 @@ sub GetPatronInfo { # Fines management if ( $cgi->param('show_fines') eq "1" ) { - my @charges; - for ( my $i = 1 ; my @charge = getcharges( $borrowernumber, undef, $i ) ; $i++ ) { - push( @charges, @charge ); - } + my @charges = + Koha::Database->new()->schema()->resultset('AccountDebit') + ->search( { borrowernumber => $borrowernumber } ); $borrower->{'fines'}->{'fine'} = \@charges; } --