From 0fc43dd5a3fb70b3cd2b7e572acc747e26fe1f8d Mon Sep 17 00:00:00 2001 From: Baptiste Wojtkowski Date: Wed, 16 Sep 2026 13:48:03 +0000 Subject: [PATCH] Bug 41742: (follow-up) Add pod to AddBudgetPeriod Create a pod coverage for AddBudgetPeriod Signed-off-by: Pedro Amorim --- C4/Budgets.pm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/C4/Budgets.pm b/C4/Budgets.pm index dcb1bb3d03..8903ac5143 100644 --- a/C4/Budgets.pm +++ b/C4/Budgets.pm @@ -135,6 +135,14 @@ sub GetCols { } +=head2 AddBudgetPeriod + +Create a BudgetPeriod period with given parameters + + my $rs = AddBudgetPeriod({ budget_period_startdate => $start_date, budget_period_enddate => $budget_period_enddate }); + +=cut + sub AddBudgetPeriod { my ($budgetperiod) = @_; return unless ( $budgetperiod->{budget_period_startdate} && $budgetperiod->{budget_period_enddate} );