From 7ca31c560555c96385af1b44e102692fe76ab7f1 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Fri, 7 Mar 2014 07:59:03 -0500 Subject: [PATCH] Bug 6427 [Part 21] - Fix ILSDI::Services --- C4/ILSDI/Services.pm | 9 ++++----- 1 files changed, 4 insertions(+), 5 deletions(-) diff --git a/C4/ILSDI/Services.pm b/C4/ILSDI/Services.pm index bd201d3..ce2fc17 100644 --- a/C4/ILSDI/Services.pm +++ b/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; } -- 1.7.2.5