SF.net SVN: ledger-smb:[2229] trunk/LedgerSMB/Form.pm

[..hidden..]

Revision: 2229
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2229&view=rev
Author:   einhverfr
Date:     2008-08-01 00:10:29 +0000 (Fri, 01 Aug 2008)

Log Message:
-----------
Correcting missue with closedto dates

Modified Paths:
--------------
    trunk/LedgerSMB/Form.pm

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2008-07-31 22:08:16 UTC (rev 2228)
+++ trunk/LedgerSMB/Form.pm	2008-08-01 00:10:29 UTC (rev 2229)
@@ -966,7 +966,7 @@
 If the year extracted is only two-digits, the year given is assumed to be in the
 range 2000-2099.
 
-If $date does not contain any digits, datetonum does nothing.
+If $date does not contain any non-digits, datetonum does nothing.
 
 $picture is ignored.
 
@@ -976,6 +976,11 @@
 
     my ( $self, $myconfig, $date, $picture ) = @_;
 
+    if ($date =~ /^\d{4}-\d{2}-\d{2}$/){
+        $date =~ s/-//;
+        return $date;
+    }
+
     if ( $date && $date =~ /\D/ ) {
 
         my $yy;


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