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

(-)a/admin/aqbudgets.pl (-2 / +2 lines)
Lines 234-240 if ( $op eq 'list' ) { Link Here
234
    );
234
    );
235
235
236
    my @budgets = @{
236
    my @budgets = @{
237
        GetBudgetHierarchy( $$period{budget_period_id}, C4::Context->userenv->{branch}, ( $show_mine ? $borrower_id : 0 ))
237
        GetBudgetHierarchy( $$period{budget_period_id}, undef, ( $show_mine ? $borrower_id : 0 ))
238
    };
238
    };
239
239
240
    my $period_total = 0;
240
    my $period_total = 0;
Lines 245-250 if ( $op eq 'list' ) { Link Here
245
    my @budgets_to_display;
245
    my @budgets_to_display;
246
    foreach my $budget (@budgets) {
246
    foreach my $budget (@budgets) {
247
        # PERMISSIONS
247
        # PERMISSIONS
248
        next unless CanUserUseBudget($borrowernumber, $budget, $staffflags);
248
        unless(CanUserModifyBudget($borrowernumber, $budget, $staffflags)) {
249
        unless(CanUserModifyBudget($borrowernumber, $budget, $staffflags)) {
249
            $budget->{'budget_lock'} = 1;
250
            $budget->{'budget_lock'} = 1;
250
        }
251
        }
251
- 

Return to bug 18906