From 8f6bd9415096924e2648a1a0a5866733f6839760 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 Signed-off-by: Martin Renvoize Signed-off-by: Nick Clemens --- 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.39.5