SF.net SVN: ledger-smb: [1459] branches/1.2/LedgerSMB/CT.pm

[..hidden..]

Revision: 1459
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1459&view=rev
Author:   einhverfr
Date:     2007-08-16 18:03:46 -0700 (Thu, 16 Aug 2007)

Log Message:
-----------
Fixing customer pricelist db errors with blank dates.

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

Modified: branches/1.2/LedgerSMB/CT.pm
===================================================================
--- branches/1.2/LedgerSMB/CT.pm	2007-08-16 03:52:29 UTC (rev 1458)
+++ branches/1.2/LedgerSMB/CT.pm	2007-08-17 01:03:46 UTC (rev 1459)
@@ -1135,6 +1135,8 @@
 
             if ( $form->{db} eq 'customer' ) {
 
+                $form->{"validfrom_$i"} = undef if $form->{"validfrom_$i"} eq ''; 
+                $form->{"validto_$i"} = undef if $form->{"validto_$i"} eq '';
                 for (qw(pricebreak sellprice)) {
                     $form->{"${_}_$i"} =
                       $form->parse_amount( $myconfig, $form->{"${_}_$i"} );


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