oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

more bug fixes

Browse source
This commit is contained in:
JT Smith 2006-01-13 21:47:38 +00:00
parent 6779353b85
commit ee5ccfad26
5 changed files with 49 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/Session/DateTime.pm
View file

@ -251,7 +251,7 @@ sub epochToHuman {
$output =~ s/\~$key/\%$replacement/g;
}
#--- %M
$output = $dt->str$self->session->datetime->time($output);
$output = $dt->strftime($output);
$temp = int($dt->month);
$output =~ s/\%_varmonth_/$temp/g;
#--- return
@ -280,9 +280,9 @@ sub epochToSet {
my $dt = DateTime->from_epoch( epoch =>shift, time_zone=>$timeZone);
my $withTime = shift;
if ($withTime) {
return $dt->str$self->session->datetime->time("%Y-%m-%d %H:%M:%S");
return $dt->strftime("%Y-%m-%d %H:%M:%S");
}
return $dt->str$self->session->datetime->time("%Y-%m-%d");
return $dt->strftime("%Y-%m-%d");
}
#-------------------------------------------------------------------
@ -707,10 +707,10 @@ sub setToEpoch {
my $set = shift;
return undef unless $set;
my $parser = DateTime::Format::Strptime->new( pattern => '%Y-%m-%d %H:%M:%S' );
my $dt = $parser->parse_dat$self->session->datetime->time($set);
my $dt = $parser->parse_datetime($set);
unless ($dt) {
$parser = DateTime::Format::Strptime->new( pattern => '%Y-%m-%d' );
$dt = $parser->parse_dat$self->session->datetime->time($set);
$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($self->session->user->profileField("timeZone")|| "America/Chicago"); # assign the user's timezone