From 0f1458653703b9dd0e40b9b3991513d680d11af7 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 26 Oct 2018 15:19:36 -0300 Subject: [PATCH] Bug 21681: Improve the account lines fetch Signed-off-by: Jonathan Druart --- C4/ILSDI/Services.pm | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/C4/ILSDI/Services.pm b/C4/ILSDI/Services.pm index 53465caa9d..689973ea3e 100644 --- a/C4/ILSDI/Services.pm +++ b/C4/ILSDI/Services.pm @@ -425,11 +425,7 @@ sub GetPatronInfo { # Fines management if ( $cgi->param('show_fines') && $cgi->param('show_fines') eq "1" ) { - - my $account_lines = $patron->account->lines; - while (my $line = $account_lines->next ) { - push @{ $borrower->{fines}{fine} }, $line->unblessed; - } + $borrower->{fines}{fine} = $patron->account->lines->unblessed; } # Reserves management -- 2.11.0