@@ -, +, @@ --- C4/Budgets.pm | 8 +++++--- reports/orders_by_budget.pl | 1 + 2 files changed, 6 insertions(+), 3 deletions(-) --- a/C4/Budgets.pm +++ a/C4/Budgets.pm @@ -82,7 +82,6 @@ BEGIN { # ----------------------------BUDGETS.PM-----------------------------"; - =head1 FUNCTIONS ABOUT BUDGETS =cut @@ -463,6 +462,7 @@ sub GetBudgetPeriod { } # ------------------------------------------------------------------- + =head2 GetBudgetPeriodDescription $description = GetBudgetPeriodDescription($budget_id); @@ -474,6 +474,7 @@ sub GetBudgetPeriod { Description is fetched from aqbudgetperiods, id is compared aqbudgets. (INNER JOIN on budget_period_id) =cut + sub GetBudgetPeriodDescription { my ($budget_id) = @_; my $dbh = C4::Context->dbh; @@ -638,6 +639,7 @@ sub DelBudget { # ------------------------------------------------------------------- + =head2 GetBudget &GetBudget($budget_id); @@ -750,6 +752,7 @@ sub GetBudgetsByActivity { return @results; } # -------------------------------------------------------------------- + =head2 GetBudgetsReport &GetBudgetsReport( [$activity] ); @@ -1151,7 +1154,6 @@ sub ConvertCurrency { return ( $price / $cur ); } - =head2 CloneBudgetPeriod my $new_budget_period_id = CloneBudgetPeriod({ @@ -1383,4 +1385,4 @@ __END__ Koha Development Team -=cut +=cut --- a/reports/orders_by_budget.pl +++ a/reports/orders_by_budget.pl @@ -196,6 +196,7 @@ if ( $get_orders ) { else { # Set file export choices my @outputFormats = ('CSV'); + no warnings qw(); my @CSVdelimiters = qw(; tabulation , \\ / #); # getting all budgets --