diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index 1caee77950..8d394d3ca5 100755 --- a/acqui/addorderiso2709.pl +++ b/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}, diff --git a/acqui/basket.pl b/acqui/basket.pl index 4ef5facafa..88abf2485e 100755 --- a/acqui/basket.pl +++ b/acqui/basket.pl @@ -385,9 +385,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; diff --git a/acqui/booksellers.pl b/acqui/booksellers.pl index 0b69feb497..78b36a9691 100755 --- a/acqui/booksellers.pl +++ b/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; diff --git a/acqui/duplicate_orders.pl b/acqui/duplicate_orders.pl index eb975da035..7f03221c5b 100755 --- a/acqui/duplicate_orders.pl +++ b/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}, diff --git a/acqui/invoice.pl b/acqui/invoice.pl index fa6dc26c1e..0a9f38f31a 100755 --- a/acqui/invoice.pl +++ b/acqui/invoice.pl @@ -229,10 +229,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}, diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl index cf2e7ee945..dfa9ebe9ff 100755 --- a/acqui/neworderempty.pl +++ b/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}, diff --git a/acqui/orderreceive.pl b/acqui/orderreceive.pl index d73f61b6d3..dea4f439be 100755 --- a/acqui/orderreceive.pl +++ b/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}, diff --git a/acqui/parcels.pl b/acqui/parcels.pl index c0a330b479..69aeb78939 100755 --- a/acqui/parcels.pl +++ b/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},