View | Details | Raw Unified | Return to bug 17784
Collapse All | Expand All

(-)a/acqui/neworderempty.pl (-2 / +1 lines)
Lines 219-225 my $budget_loop = []; Link Here
219
my $budgets = GetBudgetHierarchy;
219
my $budgets = GetBudgetHierarchy;
220
foreach my $r (@{$budgets}) {
220
foreach my $r (@{$budgets}) {
221
    next unless (CanUserUseBudget($borrower, $r, $userflags));
221
    next unless (CanUserUseBudget($borrower, $r, $userflags));
222
    if (!defined $r->{budget_amount} || $r->{budget_amount} == 0) {
222
    if (!defined $r->{budget_amount} || $r->{budget_amount} <0) {
223
        next;
223
        next;
224
    }
224
    }
225
    push @{$budget_loop}, {
225
    push @{$budget_loop}, {
226
- 

Return to bug 17784