From 7a5174049d070ea9673ca20a8df73cee7b7a55fe Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Fri, 26 Mar 2010 11:25:37 +0100 Subject: [PATCH] budget limit not working 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 Signed-off-by: Galen Charlton --- acqui/neworderempty.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl index 8b88f93132..562a146724 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; -- 2.39.5