Lines 237-243
if ( $op eq 'list' ) {
Link Here
|
237 |
); |
237 |
); |
238 |
|
238 |
|
239 |
my @budgets = @{ |
239 |
my @budgets = @{ |
240 |
GetBudgetHierarchy( $$period{budget_period_id}, C4::Context->userenv->{branch}, ( $show_mine ? $borrower_id : 0 )) |
240 |
GetBudgetHierarchy( $$period{budget_period_id}, undef, ( $show_mine ? $borrower_id : 0 )) |
241 |
}; |
241 |
}; |
242 |
|
242 |
|
243 |
my $period_total = 0; |
243 |
my $period_total = 0; |
Lines 248-253
if ( $op eq 'list' ) {
Link Here
|
248 |
my @budgets_to_display; |
248 |
my @budgets_to_display; |
249 |
foreach my $budget (@budgets) { |
249 |
foreach my $budget (@budgets) { |
250 |
# PERMISSIONS |
250 |
# PERMISSIONS |
|
|
251 |
next unless CanUserUseBudget($borrowernumber, $budget, $staffflags); |
251 |
unless(CanUserModifyBudget($borrowernumber, $budget, $staffflags)) { |
252 |
unless(CanUserModifyBudget($borrowernumber, $budget, $staffflags)) { |
252 |
$budget->{'budget_lock'} = 1; |
253 |
$budget->{'budget_lock'} = 1; |
253 |
} |
254 |
} |
254 |
- |
|
|