From 96b46a22b3dce944d5dc003b01dea833d354927a Mon Sep 17 00:00:00 2001 From: simith Date: Fri, 6 Mar 2015 08:59:13 -0500 Subject: [PATCH] QA fix http://bugs.koha-community.org/show_bug.cgi?id=11371 Signed-off-by: Nicole Engard --- C4/Budgets.pm | 8 +++++--- reports/orders_by_budget.pl | 1 + 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/C4/Budgets.pm b/C4/Budgets.pm index 2362706..25ad805 100644 --- a/C4/Budgets.pm +++ b/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 \ No newline at end of file diff --git a/reports/orders_by_budget.pl b/reports/orders_by_budget.pl index e31bb2d..48a7021 100755 --- a/reports/orders_by_budget.pl +++ b/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 -- 1.7.10.4