);
my $cur = GetCurrency();
-$template->param( cur => $cur->{symbol} );
+$template->param( symbol => $cur->{symbol},
+ currency => $cur->{currency}
+ );
my $op = $input->param('op');
$template->param(authorised_value_categories1 => \@auth_cats_loop1);
$template->param(authorised_value_categories2 => \@auth_cats_loop2);
- my $budget_perm_dropbox =
- GetBudgetPermDropbox($budget->{'budget_permission'});
-
+ if($budget->{'budget_permission'}){
+ my $budget_permission = "budget_perm_".$budget->{'budget_permission'};
+ $template->param($budget_permission => 1);
+ }
+
# if no buget_id is passed then its an add
$template->param(
add_validate => 1,
dateformat => C4::Dates->new()->visual(),
budget_parent_id => $budget_parent->{'budget_id'},
budget_parent_name => $budget_parent->{'budget_name'},
- budget_perm_dropbox => $budget_perm_dropbox,
branchloop_select => \@branchloop_select,
%$period,
%$budget,
my $period_total = 0;
my ( $period_alloc_total, $base_spent_total );
- use YAML;
- $debug && warn Dump(@budgets);
#This Looks WEIRD to me : should budgets be filtered in such a way ppl who donot own it would not see the amount spent on the budget by others ?
foreach my $budget (@budgets) {
$budget->{'remaining_pos'} = 1 if $budget->{'budget_remaining'} > 0;
$budget->{'remaining_neg'} = 1 if $budget->{'budget_remaining'} < 0;
for (grep {/total_levels_spent|budget_spent|budget_amount|budget_remaining|budget_unalloc/} keys %$budget){
- $$budget{$_} = $num->format_price( $$budget{$_} ) if defined($$budget{$_})
+ $budget->{$_} = $num->format_price( $budget->{$_} ) if defined($budget->{$_})
}
+ # Value of budget_spent equals 0 instead of undefined value
+ $budget->{"budget_spent"} = $num->format_price(0) unless defined($budget->{"budget_spent"});
+
my $borrower = &GetMember( borrowernumber=>$budget->{budget_owner_id} );
$budget->{"budget_owner_name"} = $borrower->{'firstname'} . ' ' . $borrower->{'surname'};
$budget->{"budget_borrowernumber"} = $borrower->{'borrowernumber'};