Lines 411-419
my $budget_loop = [];
Link Here
|
411 |
my $budgets_hierarchy = GetBudgetHierarchy; |
411 |
my $budgets_hierarchy = GetBudgetHierarchy; |
412 |
foreach my $r ( @{$budgets_hierarchy} ) { |
412 |
foreach my $r ( @{$budgets_hierarchy} ) { |
413 |
next unless (CanUserUseBudget($patron, $r, $userflags)); |
413 |
next unless (CanUserUseBudget($patron, $r, $userflags)); |
414 |
if ( !defined $r->{budget_amount} || $r->{budget_amount} == 0 ) { |
|
|
415 |
next; |
416 |
} |
417 |
push @{$budget_loop}, |
414 |
push @{$budget_loop}, |
418 |
{ b_id => $r->{budget_id}, |
415 |
{ b_id => $r->{budget_id}, |
419 |
b_txt => $r->{budget_name}, |
416 |
b_txt => $r->{budget_name}, |