Lines 283-288
if ($op eq 'add_form') {
Link Here
|
283 |
foreach my $budget (@budgets) { |
283 |
foreach my $budget (@budgets) { |
284 |
#Level and sublevels total spent |
284 |
#Level and sublevels total spent |
285 |
$budget->{'total_levels_spent'} = GetChildBudgetsSpent($budget->{"budget_id"}); |
285 |
$budget->{'total_levels_spent'} = GetChildBudgetsSpent($budget->{"budget_id"}); |
|
|
286 |
$budget->{'total_levels_ordered'} = GetChildBudgetsOrdered($budget->{"budget_id"}); |
286 |
|
287 |
|
287 |
# PERMISSIONS |
288 |
# PERMISSIONS |
288 |
unless(CanUserModifyBudget($borrowernumber, $budget, $staffflags)) { |
289 |
unless(CanUserModifyBudget($borrowernumber, $budget, $staffflags)) { |
Lines 303-309
if ($op eq 'add_form') {
Link Here
|
303 |
# adds to total - only if budget is a 'top-level' budget |
304 |
# adds to total - only if budget is a 'top-level' budget |
304 |
$period_alloc_total += $budget->{'budget_amount_total'} if $budget->{'depth'} == 0; |
305 |
$period_alloc_total += $budget->{'budget_amount_total'} if $budget->{'depth'} == 0; |
305 |
$base_spent_total += $budget->{'budget_spent'}; |
306 |
$base_spent_total += $budget->{'budget_spent'}; |
306 |
$budget->{'budget_remaining'} = $budget->{'budget_amount'} - $budget->{'total_levels_spent'}; |
307 |
$budget->{'budget_remaining'} = $budget->{'budget_amount'} - $budget->{'total_levels_spent'} - $budget->{'total_levels_ordered'}; |
307 |
|
308 |
|
308 |
# if amount == 0 dont display... |
309 |
# if amount == 0 dont display... |
309 |
delete $budget->{'budget_unalloc_sublevel'} |
310 |
delete $budget->{'budget_unalloc_sublevel'} |
Lines 312-318
if ($op eq 'add_form') {
Link Here
|
312 |
|
313 |
|
313 |
$budget->{'remaining_pos'} = 1 if $budget->{'budget_remaining'} > 0; |
314 |
$budget->{'remaining_pos'} = 1 if $budget->{'budget_remaining'} > 0; |
314 |
$budget->{'remaining_neg'} = 1 if $budget->{'budget_remaining'} < 0; |
315 |
$budget->{'remaining_neg'} = 1 if $budget->{'budget_remaining'} < 0; |
315 |
for (grep {/total_levels_spent|budget_spent|budget_amount|budget_remaining|budget_unalloc/} keys %$budget){ |
316 |
for (grep {/total_levels_spent|budget_spent|budget_amount|budget_remaining|budget_unalloc|total_levels_ordered/} keys %$budget){ |
316 |
$budget->{$_} = $num->format_price( $budget->{$_} ) if defined($budget->{$_}) |
317 |
$budget->{$_} = $num->format_price( $budget->{$_} ) if defined($budget->{$_}) |
317 |
} |
318 |
} |
318 |
|
319 |
|