From dbf3327cdb05f41d49b02e968bf27646fac0d832 Mon Sep 17 00:00:00 2001
From: Baptiste Wojtkowski <baptiste.wojtkowski@biblibre.com>
Date: Mon, 11 May 2026 13:20:59 +0000
Subject: [PATCH] Bug 41742: Remove CheckBudgetParentPerm

This function is not used in the code anymore

Signed-off-by: Roman Dolny <roman.dolny@jezuici.pl>
Signed-off-by: Emily Lamancusa <emily.lamancusa@montgomerycountymd.gov>
Signed-off-by: Pedro Amorim <pedro.amorim@openfifth.co.uk>
---
 C4/Budgets.pm | 28 ----------------------------
 1 file changed, 28 deletions(-)

diff --git a/C4/Budgets.pm b/C4/Budgets.pm
index 115ca14a86..dcb1bb3d03 100644
--- a/C4/Budgets.pm
+++ b/C4/Budgets.pm
@@ -62,7 +62,6 @@ BEGIN {
         GetBudgetChildren
         SetOwnerToFundHierarchy
         CheckBudgetParent
-        CheckBudgetParentPerm
 
         HideCols
         GetCols
@@ -136,33 +135,6 @@ sub GetCols {
 
 }
 
-=head2 CheckBudgetParentPerm
-
-Missing POD for CheckBudgetParentPerm.
-
-=cut
-
-sub CheckBudgetParentPerm {
-    my ( $budget, $borrower_id ) = @_;
-    my $depth     = $budget->{depth};
-    my $parent_id = $budget->{budget_parent_id};
-    while ($depth) {
-        my $parent = GetBudget($parent_id);
-        $parent_id = $parent->{budget_parent_id};
-        if ( $parent->{budget_owner_id} == $borrower_id ) {
-            return 1;
-        }
-        $depth--;
-    }
-    return 0;
-}
-
-=head2 AddBudgetPeriod
-
-Missing POD for AddBudgetPeriod.
-
-=cut
-
 sub AddBudgetPeriod {
     my ($budgetperiod) = @_;
     return unless ( $budgetperiod->{budget_period_startdate} && $budgetperiod->{budget_period_enddate} );