From e71c499142c514d85949bf612fa7215a21ec33a9 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sun, 4 Aug 2002 02:25:49 +0000
Subject: [PATCH] Made setToEpoch more accurate;

---
 lib/WebGUI/DateTime.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/WebGUI/DateTime.pm b/lib/WebGUI/DateTime.pm
index 519d7e9dd..69fd8ab2c 100644
--- a/lib/WebGUI/DateTime.pm
+++ b/lib/WebGUI/DateTime.pm
@@ -181,19 +181,19 @@ sub setToEpoch {
 	if (int($year) < 2038 && int($year) > 1900) {
 		$year = int($year);
 	} else {
-		$year = $date[5];
+		$year = $date[0];
 	}
         if (int($month) < 13 && int($month) > 0) {
                 $month = int($month);
         } else {
-                $month = $date[4]++;
+                $month = $date[1]++;
         }
         if (int($day) < 32 && int($day) > 0) {
                 $day = int($day);
         } else {
-                $day = $date[3];
+                $day = $date[2];
         }
-	return Date::Calc::Date_to_Time($year,$month,$day,0,0,0);
+	return Date::Calc::Date_to_Time($year,$month,$day,12,0,0);
 }
 
 #-------------------------------------------------------------------