From cf1ebe8a8813976416dcdee49eadd78955e0d09a Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Fri, 31 Aug 2018 11:27:13 -0300 Subject: [PATCH] Bug 20944: Fix perlcritic issues Signed-off-by: Tomas Cohen Arazi --- Koha/REST/V1/Patrons/Account.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Koha/REST/V1/Patrons/Account.pm b/Koha/REST/V1/Patrons/Account.pm index 7cae3b324d..9312196608 100644 --- a/Koha/REST/V1/Patrons/Account.pm +++ b/Koha/REST/V1/Patrons/Account.pm @@ -122,7 +122,8 @@ sub add_credit { if $date; my $debits_ids = $body->{account_lines_ids}; - my $debits = Koha::Account::Lines->search({ accountlines_id => { -in => $debits_ids } }) + my $debits; + $debits = Koha::Account::Lines->search({ accountlines_id => { -in => $debits_ids } }) if $debits_ids; my $outstanding_credit = $credit->amountoutstanding; -- 2.18.0