my $budgets = GetBudgetHierarchy;
foreach my $r (@{$budgets}) {
next unless (CanUserUseBudget($loggedinuser, $r, $flags));
- if (!defined $r->{budget_amount} || $r->{budget_amount} == 0) {
- next;
- }
push @{$budget_loop}, {
b_id => $r->{budget_id},
b_txt => $r->{budget_name},