SF.net SVN: ledger-smb: [736] branches/1.2/LedgerSMB/Locale.pm

[..hidden..]

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

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

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

Modified: branches/1.2/LedgerSMB/Locale.pm
===================================================================
--- branches/1.2/LedgerSMB/Locale.pm	2006-12-06 18:58:17 UTC (rev 735)
+++ branches/1.2/LedgerSMB/Locale.pm	2006-12-06 19:12:48 UTC (rev 736)
@@ -68,6 +68,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.