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