Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

(BUG #4521) aqbudgets.pl - Transform undefined budget spent value to 0.00 value

Browse source 
This patch tranform the undefined value of budget spent to a money value which equals 0.00.

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
Alex Arnaud 2010-06-24 19:26:14 +02:00 committed by Galen Charlton
parent 7233544f8b
commit 1e8c06c522
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
admin/aqbudgets.pl
View file

@ -293,11 +293,11 @@ if ($op eq 'add_form') {
$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"});
$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'};