From ed401935555972fbccef9c73578d397e24338174 Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Sat, 19 Nov 2005 22:41:02 +0000
Subject: [PATCH] fix scenarios where it's supposed to parse only dates.

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

diff --git a/lib/WebGUI/DateTime.pm b/lib/WebGUI/DateTime.pm
index 3b3bff395..84b81498c 100644
--- a/lib/WebGUI/DateTime.pm
+++ b/lib/WebGUI/DateTime.pm
@@ -649,6 +649,10 @@ sub setToEpoch {
         return undef unless defined $set;
 	my $parser = DateTime::Format::Strptime->new( pattern => '%Y-%m-%d %H:%M:%S' );
 	my $dt = $parser->parse_datetime($set);
+	unless ($dt) {
+		$parser = DateTime::Format::Strptime->new( pattern => '%Y-%m-%d' );
+		$dt = $parser->parse_datetime($set);
+	}
 	# in epochToSet we apply the user's time zone, so now we have to remove it.
 	$dt->set_time_zone($session{user}{timeZone}); # assign the user's timezone
 	my $u = WebGUI::User->new(1);