SF.net SVN: ledger-smb: [737] trunk/LedgerSMB/Locale.pm

[..hidden..]

Revision: 737
          http://svn.sourceforge.net/ledger-smb/?rev=737&view=rev
Author:   einhverfr
Date:     2006-12-06 11:13:37 -0800 (Wed, 06 Dec 2006)

Log Message:
-----------
Fixing bug 1606269

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

Modified: trunk/LedgerSMB/Locale.pm
===================================================================
--- trunk/LedgerSMB/Locale.pm	2006-12-06 19:12:48 UTC (rev 736)
+++ trunk/LedgerSMB/Locale.pm	2006-12-06 19:13:37 UTC (rev 737)
@@ -67,6 +67,10 @@
 	$spc =~ s/\w//g;
 	$spc = substr($spc, 0, 1);
 
+	if (!$longformat && $date =~ /^\d{4}\D/){ # reparsing date at this point
+	                                          # causes problems!
+		return $date;
+	}
 	if ($date =~ /\D/) {
 
 		if ($myconfig->{dateformat} =~ /^yy/) {


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