From 0fa34bede8d51e923740b9caadfee90112ae54e7 Mon Sep 17 00:00:00 2001
From: Matt Blenkinsop <matt.blenkinsop@ptfs-europe.com>
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)