gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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>
This commit is contained in:
Baptiste Wojtkowski 2026-05-11 13:20:59 +00:00 committed by Pedro Amorim
parent 987f302777
commit dbf3327cdb
No known key found for this signature in database
GPG Key ID: 06B75BA7F3894D55
1 changed files with 0 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
C4/Budgets.pm
View File

@ -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} );