From 0fa34bede8d51e923740b9caadfee90112ae54e7 Mon Sep 17 00:00:00 2001 From: Matt Blenkinsop Date: Fri, 25 Aug 2023 09:51:27 +0000 Subject: [PATCH] Bug 34445: (QA follow-up) Tidy file perl tidy for patch --- acqui/addorderiso2709.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index cba4c8cd56..a80759884d 100755 --- a/acqui/addorderiso2709.pl +++ b/acqui/addorderiso2709.pl @@ -257,7 +257,9 @@ if ($op eq ""){ # Group orderlines from MarcItemFieldsToOrder my $budget_hash; for (my $i = 0; $i < $count; $i++) { - $budget_codes[$i] = $budget_id if !$budget_codes[$i]; # Use default budget if no budget selected in the UI + # Use default budget if no budget selected in the UI + $budget_codes[$i] = $budget_id + if !$budget_codes[$i]; $budget_hash->{$budget_codes[$i]}->{quantity} += 1; $budget_hash->{$budget_codes[$i]}->{price} = $itemprices[$i]; $budget_hash->{$budget_codes[$i]}->{replacementprice} = $replacementprices[$i]; -- 2.37.1 (Apple Git-137.1)