From e6a478ae65c95aaf8e7f86b996e633818566a393 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Tue, 10 Jan 2017 10:03:36 +0100 Subject: [PATCH] Bug 17872: Fix small error in GetBudgetHierarchy and one of its calls MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit In aqbudgetperiods.pl a commented line is removed that contains a wrong userenv hash key. Should be branch instead of branchcode. In aqbudgets GetBudgetHierarchy is called with the same wrong userenv hash key. Should be userenv->{branch}. This made another bug visible: if you call GetBudgetHierarchy with a branch and without owner, the where clause should take into account that the branchcode can be empty (not null). Test plan: [1] Run Budgets.t [2] Run aqbudgets.pl from Administration [3] Add the show_mine=1 parameter in the URL [4] Change owner of one of the funds and repeat step 2 and 3. t/Budgets.t returns green. Followed test plan, works as expected. Signed-off-by: Marc VĂ©ron --- C4/Budgets.pm | 2 +- admin/aqbudgetperiods.pl | 2 -- admin/aqbudgets.pl | 3 +-- 3 files changed, 2 insertions(+), 5 deletions(-) diff --git a/C4/Budgets.pm b/C4/Budgets.pm index cf2939f..c68fbec 100644 --- a/C4/Budgets.pm +++ b/C4/Budgets.pm @@ -511,7 +511,7 @@ sub GetBudgetHierarchy { } } else { if ($branchcode) { - push @where_strings," (budget_branchcode =? or budget_branchcode is NULL)"; + push @where_strings," (budget_branchcode =? or budget_branchcode is NULL OR budget_branchcode='')"; push @bind_params, $branchcode; } } diff --git a/admin/aqbudgetperiods.pl b/admin/aqbudgetperiods.pl index 7ce5783..ca2171f 100755 --- a/admin/aqbudgetperiods.pl +++ b/admin/aqbudgetperiods.pl @@ -198,8 +198,6 @@ elsif ( $op eq 'close_form' ) { my $budgets_to_move = GetBudgetHierarchy($budget_period_id); - # C4::Context->userenv->{branchcode}, $show_mine ? $borrower_id : '') - my $number_of_unreceived_orders = 0; for my $budget (@$budgets_to_move) { diff --git a/admin/aqbudgets.pl b/admin/aqbudgets.pl index 483ff8f..97664df 100755 --- a/admin/aqbudgets.pl +++ b/admin/aqbudgets.pl @@ -237,8 +237,7 @@ if ( $op eq 'list' ) { ); my @budgets = @{ - GetBudgetHierarchy($$period{budget_period_id}, - C4::Context->userenv->{branchcode}, $show_mine ? $borrower_id : '') + GetBudgetHierarchy( $$period{budget_period_id}, C4::Context->userenv->{branch}, ( $show_mine ? $borrower_id : 0 )) }; my $period_total = 0; -- 2.1.4