From 1f49914c1744c77a5f9a8825593914398a45246b Mon Sep 17 00:00:00 2001
From: Alex Arnaud <alex.arnaud@biblibre.com>
Date: Tue, 18 May 2010 09:41:22 +0200
Subject: [PATCH] (BUG #4521) aqbudgets.pl - Transform undefined budget spent value to 0.00 value

This patch tranform the undefined value of budget spent to a money value which equals 0.00.
---
 admin/aqbudgets.pl |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

diff --git a/admin/aqbudgets.pl b/admin/aqbudgets.pl
index 8c6d2b4..569124a 100755
--- a/admin/aqbudgets.pl
+++ b/admin/aqbudgets.pl
@@ -294,6 +294,9 @@ if ($op eq 'add_form') {
         $$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'};
-- 
1.6.3.3