@@ -, +, @@ --- acqui/addorderiso2709.pl | 3 --- acqui/basket.pl | 3 --- acqui/booksellers.pl | 3 --- acqui/duplicate_orders.pl | 4 +--- acqui/invoice.pl | 4 ---- acqui/neworderempty.pl | 3 --- acqui/orderreceive.pl | 3 --- acqui/parcels.pl | 3 --- 8 files changed, 1 insertion(+), 25 deletions(-) --- a/acqui/addorderiso2709.pl +++ a/acqui/addorderiso2709.pl @@ -411,9 +411,6 @@ my $budget_loop = []; my $budgets_hierarchy = GetBudgetHierarchy; foreach my $r ( @{$budgets_hierarchy} ) { next unless (CanUserUseBudget($patron, $r, $userflags)); - if ( !defined $r->{budget_amount} || $r->{budget_amount} == 0 ) { - next; - } push @{$budget_loop}, { b_id => $r->{budget_id}, b_txt => $r->{budget_name}, --- a/acqui/basket.pl +++ a/acqui/basket.pl @@ -379,9 +379,6 @@ if ( $op eq 'list' ) { my $budgets = GetBudgetHierarchy; my $has_budgets = 0; foreach my $r (@{$budgets}) { - if (!defined $r->{budget_amount} || $r->{budget_amount} == 0) { - next; - } next unless (CanUserUseBudget($loggedinuser, $r, $userflags)); $has_budgets = 1; --- a/acqui/booksellers.pl +++ a/acqui/booksellers.pl @@ -114,9 +114,6 @@ my $userbranch = $userenv->{branch}; my $budgets = GetBudgetHierarchy; my $has_budgets = 0; foreach my $r (@{$budgets}) { - if (!defined $r->{budget_amount} || $r->{budget_amount} == 0) { - next; - } next unless (CanUserUseBudget($loggedinuser, $r, $userflags)); $has_budgets = 1; --- a/acqui/duplicate_orders.pl +++ a/acqui/duplicate_orders.pl @@ -104,9 +104,7 @@ elsif ( $op eq 'batch_edit' ) { foreach my $r ( @{$budgets_hierarchy} ) { next unless ( C4::Budgets::CanUserUseBudget( $patron, $r, $userflags ) ); - if ( !defined $r->{budget_amount} || $r->{budget_amount} == 0 ) { - next; - } + push @{$budget_loop}, { b_id => $r->{budget_id}, --- a/acqui/invoice.pl +++ a/acqui/invoice.pl @@ -195,10 +195,6 @@ my $budgets = GetBudgetHierarchy(); foreach my $r ( @{$budgets} ) { next unless ( CanUserUseBudget( $loggedinuser, $r, $flags ) ); - if ( !defined $r->{budget_amount} || $r->{budget_amount} == 0 ) { - next; - } - my $selected = $shipmentcost_budgetid ? $r->{budget_id} eq $shipmentcost_budgetid : 0; push @{$budget_loop}, --- a/acqui/neworderempty.pl +++ a/acqui/neworderempty.pl @@ -320,9 +320,6 @@ my $budget_loop = []; my $budgets = GetBudgetHierarchy; foreach my $r (@{$budgets}) { next unless (CanUserUseBudget($patron, $r, $userflags)); - if (!defined $r->{budget_amount} || $r->{budget_amount} <0) { - next; - } push @{$budget_loop}, { b_id => $r->{budget_id}, b_txt => $r->{budget_name}, --- a/acqui/orderreceive.pl +++ a/acqui/orderreceive.pl @@ -270,9 +270,6 @@ foreach my $period (@$periods) { my @funds; foreach my $r ( @{$budget_hierarchy} ) { next unless ( CanUserUseBudget( $patron, $r, $userflags ) ); - if ( !defined $r->{budget_amount} || $r->{budget_amount} == 0 ) { - next; - } push @funds, { b_id => $r->{budget_id}, --- a/acqui/parcels.pl +++ a/acqui/parcels.pl @@ -182,9 +182,6 @@ my $budget_loop = []; 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}, --