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

(-)a/acqui/addorderiso2709.pl (-3 lines)
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},
(-)a/acqui/basket.pl (-3 lines)
Lines 379-387 if ( $op eq 'list' ) { Link Here
379
    my $budgets = GetBudgetHierarchy;
379
    my $budgets = GetBudgetHierarchy;
380
    my $has_budgets = 0;
380
    my $has_budgets = 0;
381
    foreach my $r (@{$budgets}) {
381
    foreach my $r (@{$budgets}) {
382
        if (!defined $r->{budget_amount} || $r->{budget_amount} == 0) {
383
            next;
384
        }
385
        next unless (CanUserUseBudget($loggedinuser, $r, $userflags));
382
        next unless (CanUserUseBudget($loggedinuser, $r, $userflags));
386
383
387
        $has_budgets = 1;
384
        $has_budgets = 1;
(-)a/acqui/booksellers.pl (-3 lines)
Lines 114-122 my $userbranch = $userenv->{branch}; Link Here
114
my $budgets = GetBudgetHierarchy;
114
my $budgets = GetBudgetHierarchy;
115
my $has_budgets = 0;
115
my $has_budgets = 0;
116
foreach my $r (@{$budgets}) {
116
foreach my $r (@{$budgets}) {
117
    if (!defined $r->{budget_amount} || $r->{budget_amount} == 0) {
118
        next;
119
    }
120
    next unless (CanUserUseBudget($loggedinuser, $r, $userflags));
117
    next unless (CanUserUseBudget($loggedinuser, $r, $userflags));
121
118
122
    $has_budgets = 1;
119
    $has_budgets = 1;
(-)a/acqui/duplicate_orders.pl (-3 / +1 lines)
Lines 104-112 elsif ( $op eq 'batch_edit' ) { Link Here
104
    foreach my $r ( @{$budgets_hierarchy} ) {
104
    foreach my $r ( @{$budgets_hierarchy} ) {
105
        next
105
        next
106
          unless ( C4::Budgets::CanUserUseBudget( $patron, $r, $userflags ) );
106
          unless ( C4::Budgets::CanUserUseBudget( $patron, $r, $userflags ) );
107
        if ( !defined $r->{budget_amount} || $r->{budget_amount} == 0 ) {
107
108
            next;
109
        }
110
        push @{$budget_loop},
108
        push @{$budget_loop},
111
          {
109
          {
112
            b_id            => $r->{budget_id},
110
            b_id            => $r->{budget_id},
(-)a/acqui/invoice.pl (-4 lines)
Lines 195-204 my $budgets = GetBudgetHierarchy(); Link Here
195
foreach my $r ( @{$budgets} ) {
195
foreach my $r ( @{$budgets} ) {
196
    next unless ( CanUserUseBudget( $loggedinuser, $r, $flags ) );
196
    next unless ( CanUserUseBudget( $loggedinuser, $r, $flags ) );
197
197
198
    if ( !defined $r->{budget_amount} || $r->{budget_amount} == 0 ) {
199
        next;
200
    }
201
202
    my $selected = $shipmentcost_budgetid ? $r->{budget_id} eq $shipmentcost_budgetid : 0;
198
    my $selected = $shipmentcost_budgetid ? $r->{budget_id} eq $shipmentcost_budgetid : 0;
203
199
204
    push @{$budget_loop},
200
    push @{$budget_loop},
(-)a/acqui/neworderempty.pl (-3 lines)
Lines 320-328 my $budget_loop = []; Link Here
320
my $budgets = GetBudgetHierarchy;
320
my $budgets = GetBudgetHierarchy;
321
foreach my $r (@{$budgets}) {
321
foreach my $r (@{$budgets}) {
322
    next unless (CanUserUseBudget($patron, $r, $userflags));
322
    next unless (CanUserUseBudget($patron, $r, $userflags));
323
    if (!defined $r->{budget_amount} || $r->{budget_amount} <0) {
324
        next;
325
    }
326
    push @{$budget_loop}, {
323
    push @{$budget_loop}, {
327
        b_id  => $r->{budget_id},
324
        b_id  => $r->{budget_id},
328
        b_txt => $r->{budget_name},
325
        b_txt => $r->{budget_name},
(-)a/acqui/orderreceive.pl (-3 lines)
Lines 270-278 foreach my $period (@$periods) { Link Here
270
    my @funds;
270
    my @funds;
271
    foreach my $r ( @{$budget_hierarchy} ) {
271
    foreach my $r ( @{$budget_hierarchy} ) {
272
        next unless ( CanUserUseBudget( $patron, $r, $userflags ) );
272
        next unless ( CanUserUseBudget( $patron, $r, $userflags ) );
273
        if ( !defined $r->{budget_amount} || $r->{budget_amount} == 0 ) {
274
            next;
275
        }
276
        push @funds,
273
        push @funds,
277
          {
274
          {
278
            b_id  => $r->{budget_id},
275
            b_id  => $r->{budget_id},
(-)a/acqui/parcels.pl (-4 lines)
Lines 182-190 my $budget_loop = []; Link Here
182
my $budgets = GetBudgetHierarchy;
182
my $budgets = GetBudgetHierarchy;
183
foreach my $r (@{$budgets}) {
183
foreach my $r (@{$budgets}) {
184
    next unless (CanUserUseBudget($loggedinuser, $r, $flags));
184
    next unless (CanUserUseBudget($loggedinuser, $r, $flags));
185
    if (!defined $r->{budget_amount} || $r->{budget_amount} == 0) {
186
        next;
187
    }
188
    push @{$budget_loop}, {
185
    push @{$budget_loop}, {
189
        b_id  => $r->{budget_id},
186
        b_id  => $r->{budget_id},
190
        b_txt => $r->{budget_name},
187
        b_txt => $r->{budget_name},
191
- 

Return to bug 21268