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

fix: Calendar Event import ignores time zone

Browse source
This commit is contained in:
Graham Knop 2007-06-27 12:37:11 +00:00
parent 60eeebdba9
commit 47649c4401
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Workflow/Activity/CalendarUpdateFeeds.pm
View file

@ -210,6 +210,7 @@ sub execute {
my ($year, $month, $day) = $date =~ /(\d{4})(\d{2})(\d{2})/;
my ($hour, $minute, $second) = $time =~ /(\d{2})(\d{2})(\d{2})/;
my $tz = $events{$id}->{dtstart}->[0]->{tzid} || "UTC";
($properties->{startDate}, $properties->{startTime}) =
split / /, WebGUI::DateTime->new(
@ -219,7 +220,7 @@ sub execute {
hour => $hour,
minute => $minute,
second => $second,
time_zone => "UTC",
time_zone => $tz,
)->toMysql;
}
elsif ($dtstart =~ /(\d{4})(\d{2})(\d{2})/)
@ -244,6 +245,7 @@ sub execute {
my ($year, $month, $day) = $date =~ /(\d{4})(\d{2})(\d{2})/;
my ($hour, $minute, $second) = $time =~ /(\d{2})(\d{2})(\d{2})/;
my $tz = $events{$id}->{dtend}->[0]->{tzid} || "UTC";
($properties->{endDate}, $properties->{endTime}) =
split / /, WebGUI::DateTime->new(
@ -253,7 +255,7 @@ sub execute {
hour => $hour,
minute => $minute,
second => $second,
time_zone => "UTC",
time_zone => $tz,
)->toMysql;
}
elsif ($dtend =~ /(\d{4})(\d{2})(\d{2})/)