From 528f647ae81977b017b2cf7d1da983b22d1e2f0b Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 3 Nov 2017 13:40:38 -0300 Subject: [PATCH] Bug 10021: (QA follow-up) Rename variables To avoid $account, $accounts and @accounts variables in the same scope Signed-off-by: Marcel de Rooy Signed-off-by: Jonathan Druart --- members/pay.pl | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/members/pay.pl b/members/pay.pl index 186367d21d..a539ed0daf 100755 --- a/members/pay.pl +++ b/members/pay.pl @@ -133,17 +133,17 @@ output_html_with_http_headers $input, $cookie, $template->output; sub add_accounts_to_template { my ( $total, undef, undef ) = GetMemberAccountRecords($borrowernumber); - my $accounts = Koha::Account::Lines->search({ borrowernumber => $borrowernumber, }, { order_by => ['accounttype'] }); + my $account_lines = Koha::Account::Lines->search({ borrowernumber => $borrowernumber, }, { order_by => ['accounttype'] }); my @accounts; - while ( my $account = $accounts->next ) { - $account = $account->unblessed; - if ( $account->{itemnumber} ) { - my $item = Koha::Items->find( $account->{itemnumber} ); + while ( my $account_line = $account_lines->next ) { + $account_line = $account_line->unblessed; + if ( $account_line->{itemnumber} ) { + my $item = Koha::Items->find( $account_line->{itemnumber} ); my $biblio = $item->biblio; - $account->{biblionumber} = $biblio->biblionumber; - $account->{title} = $biblio->title; + $account_line->{biblionumber} = $biblio->biblionumber; + $account_line->{title} = $biblio->title; } - push @accounts, $account; + push @accounts, $account_line; } borrower_add_additional_fields($borrower); -- 2.39.5