fix scenarios where it's supposed to parse only dates.
This commit is contained in:
parent
64fed7e92e
commit
ed40193555
1 changed files with 4 additions and 0 deletions
|
|
@ -649,6 +649,10 @@ sub setToEpoch {
|
||||||
return undef unless defined $set;
|
return undef unless defined $set;
|
||||||
my $parser = DateTime::Format::Strptime->new( pattern => '%Y-%m-%d %H:%M:%S' );
|
my $parser = DateTime::Format::Strptime->new( pattern => '%Y-%m-%d %H:%M:%S' );
|
||||||
my $dt = $parser->parse_datetime($set);
|
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.
|
# 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
|
$dt->set_time_zone($session{user}{timeZone}); # assign the user's timezone
|
||||||
my $u = WebGUI::User->new(1);
|
my $u = WebGUI::User->new(1);
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue