[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

SF.net SVN: ledger-smb: [787] trunk



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

Log Message:
-----------
Updated new part on invoice behavior:  Cleared bug 1625954.

Modified Paths:
--------------
    trunk/LedgerSMB/Form.pm
    trunk/bin/io.pl

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2007-02-02 04:44:10 UTC (rev 786)
+++ trunk/LedgerSMB/Form.pm	2007-02-02 05:21:52 UTC (rev 787)
@@ -471,8 +471,8 @@
 
 	my ($self, $myconfig, $amount) = @_;
 
-	if ($amount eq '') {
-		return undef;
+	if ($amount eq '' or $amount == undef){
+		return 0;
 	}
 
 	if (UNIVERSAL::isa($amount, 'Math::BigFloat')){ # Amount may not be an object	

Modified: trunk/bin/io.pl
===================================================================
--- trunk/bin/io.pl	2007-02-02 04:44:10 UTC (rev 786)
+++ trunk/bin/io.pl	2007-02-02 05:21:52 UTC (rev 787)
@@ -570,7 +570,7 @@
   }
 
   $i = $form->{rowcount};
-  for (qw(partnumber description)) { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) }
+  for (qw(partnumber description sellprice unit)) { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) }
 
   $form->header;
 


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