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

[..hidden..]

Revision: 735
          http://svn.sourceforge.net/ledger-smb/?rev=735&view=rev
Author:   einhverfr
Date:     2006-12-06 10:58:17 -0800 (Wed, 06 Dec 2006)

Log Message:
-----------
Fixing number parsing tests.

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

Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm	2006-12-06 05:22:19 UTC (rev 734)
+++ branches/1.2/LedgerSMB/Form.pm	2006-12-06 18:58:17 UTC (rev 735)
@@ -480,7 +480,7 @@
 	my ($self, $myconfig, $amount) = @_;
 
 	if (($amount eq '') or ($amount eq undef)) {
-		return 0;
+		return undef;
 	}
 
 	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.