|
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 |
- |
|
|