From 1d0b99e79370a025608ef7c45c82feb8997f8918 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 11 Oct 2007 17:48:23 +0000
Subject: Fixing the real problem behind 1811022

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1746 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB.pm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'LedgerSMB.pm')

diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index 1ca1ec13..b754e8d0 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -589,13 +589,13 @@ sub date_to_number {
     my ( $yy, $mm, $dd );
     if ( $date && $date =~ /\D/ ) {
 
-        if ( $myconfig->{dateformat} =~ /^yy/ ) {
+        if ( $date =~ /^\d{4}-\d\d-\d\d$/ ) {
             ( $yy, $mm, $dd ) = split /\D/, $date;
-        }
-        elsif ( $myconfig->{dateformat} =~ /^mm/ ) {
+        } elsif ( $myconfig->{dateformat} =~ /^yy/ ) {
+            ( $yy, $mm, $dd ) = split /\D/, $date;
+        } elsif ( $myconfig->{dateformat} =~ /^mm/ ) {
             ( $mm, $dd, $yy ) = split /\D/, $date;
-        }
-        elsif ( $myconfig->{dateformat} =~ /^dd/ ) {
+        } elsif ( $myconfig->{dateformat} =~ /^dd/ ) {
             ( $dd, $mm, $yy ) = split /\D/, $date;
         }
 
@@ -791,3 +791,4 @@ sub set {
 
 1;
 
+
-- 
cgit v1.2.3