fix scenarios where it's supposed to parse only dates.

This commit is contained in:
Matthew Wilson 2005-11-19 22:41:02 +00:00
parent 64fed7e92e
commit ed40193555

View file

@ -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);