From 966041bc425445613f7b4df7ed319a8c5a0562ff Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 10 Oct 2025 11:14:26 +0200 Subject: [PATCH] Bug 40978: Remove warnings from Budgets.t If no shipment_budget is set then undef is set as key of the hashref which generates a warning: Use of uninitialized value $row[0] in hash element at /usr/lib/x86_64-linux-gnu/perl5/5.40/DBI.pm line 2122. Later we only access the hashref by budget_id, so this change seems safe. Signed-off-by: Victor Grousset/tuxayo --- C4/Budgets.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/C4/Budgets.pm b/C4/Budgets.pm index 066a36f5ba6..52d8b972c91 100644 --- a/C4/Budgets.pm +++ b/C4/Budgets.pm @@ -755,6 +755,7 @@ sub GetBudgetHierarchy { SELECT shipmentcost_budgetid as budget_id, SUM(shipmentcost) as shipmentcost FROM aqinvoices + WHERE shipmentcost_budgetid IS NOT NULL GROUP BY shipmentcost_budgetid |, 'budget_id' ); -- 2.34.1