rev 1913 - trunk/buscador/lib/Buscador

[prev] [thread] [next] [lurker] [Date index for 2005/02/18]

Author: simon
Date: 2005-02-18 17:05:20 +0000 (Fri, 18 Feb 2005)
New Revision: 1913

Modified:
   trunk/buscador/lib/Buscador/Date.pm
Log:
Reinject the sanity


Modified: trunk/buscador/lib/Buscador/Date.pm
===================================================================
--- trunk/buscador/lib/Buscador/Date.pm	2005-02-18 17:04:43 UTC (rev 1912)
+++ trunk/buscador/lib/Buscador/Date.pm	2005-02-18 17:05:20 UTC (rev 1913)
@@ -76,6 +76,10 @@
     my $month = fix_month($objects[1]);
     my $day   = $objects[2]; 
 
+    $objects[0] = $year;
+    $objects[1] = $month;
+
+
     my $s = sprintf "%.4d-%.2d-%.2d", $year, $month, $day;
     eval {
             $time      = Time::Piece->strptime($s, "%Y-%m-%d");
@@ -100,7 +104,10 @@
     my $year  = fix_year($objects[0]);  return 0 unless defined $year;
     my $month = fix_month($objects[1]); return 0 unless defined $month;
 
+    $objects[0] = $year;
+    $objects[1] = $month;
 
+
     
     my $s     = sprintf "%.4d-%.2d-%.2d", $year, $month, 15;
     my $date  = Time::Piece->strptime($s, "%Y-%m-%d");
@@ -130,10 +137,10 @@
 
 
     my @months;
-    my $year = fix_year($objects[0]);
-    return 0 unless defined $year;
-        
+    my $year = fix_year($objects[0]); return 0 unless defined $year;
 
+    $objects[0] = $year;        
+
     
 
 

• rev 1913 - trunk/buscador/lib/Buscador simon 17:05 on 18 Feb 2005

Generated at 18:00 on 18 Feb 2005 by mariachi 0.52