[Koha-patches] [PATCH 07/11] [MT3171] budget limit not working

[Henri-Damien LAURENT]

From: Paul Poulain <paul.poulain at biblibre.com>

on a new order, the branch limits for the budgets where not managed properly
if a budget had a limit on branch, it was not respected : the list displayed all budgets, including other branches than mine

Signed-off-by: Henri-Damien LAURENT <henridamien.laurent at biblibre.com>
---
 acqui/neworderempty.pl |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl
index cde8653..a580ae7 100755
--- a/acqui/neworderempty.pl
+++ b/acqui/neworderempty.pl
@@ -231,7 +231,7 @@ my ( $flags, $homebranch )= ($borrower->{'flags'},$borrower->{'branchcode'});
 my $budget =  GetBudget($budget_id);
 # build budget list
 my $budget_loop = [];
-my $budgets = GetBudgetHierarchy(q{},q{},$borrower->{borrowernumber});
+my $budgets = GetBudgetHierarchy(q{},$borrower->{branchcode},$borrower->{borrowernumber});
 foreach my $r (@{$budgets}) {
     if (!defined $r->{budget_amount} || $r->{budget_amount} == 0) {
         next;
-- 
1.6.3.3