SF.net SVN: ledger-smb: [788] branches/1.2/LedgerSMB/Form.pm

[..hidden..]

Revision: 788
          http://svn.sourceforge.net/ledger-smb/?rev=788&view=rev
Author:   einhverfr
Date:     2007-02-01 21:22:32 -0800 (Thu, 01 Feb 2007)

Log Message:
-----------
Cleared bug 1625954

Modified Paths:
--------------
    branches/1.2/LedgerSMB/Form.pm

Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm	2007-02-02 05:21:52 UTC (rev 787)
+++ branches/1.2/LedgerSMB/Form.pm	2007-02-02 05:22:32 UTC (rev 788)
@@ -480,7 +480,7 @@
 	my ($self, $myconfig, $amount) = @_;
 
 	if (($amount eq '') or ($amount eq undef)) {
-		return undef;
+		$amount = 0;
 	}
 
 	if (UNIVERSAL::isa($amount, 'Math::BigFloat')){ # Amount may not be an object	


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.