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

Fixed another iCal bug in Calendar... I'm not feeling the confidence I once felt...

Browse source
This commit is contained in:
Doug Bell 2006-12-06 23:29:02 +00:00
parent fd52961bb0
commit 40f08d9a89
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/Asset/Wobject/Calendar.pm
View file

@ -1341,6 +1341,8 @@ sub wrapIcal
my $self = shift;
my $text = shift;
return $text unless length $text >= 75;
$text =~ s/([,;\\])/\\$1/g;
$text =~ s/\n/\\n/g;
@ -1477,14 +1479,14 @@ sub www_ical
my @events = $self->getEventsIn($dt_start->toMysql,$dt_end->toMysql);
my $ical = qq{BEGIN:VCALENDAR\n}
. qq{PRODID:WebGUI \n} # TODO: Get WebGUI version!
. qq{VERSION:2.0\n};
my $ical = qq{BEGIN:VCALENDAR\r\n}
. qq{PRODID:WebGUI \r\n} # TODO: Get WebGUI version!
. qq{VERSION:2.0\r\n};
# VEVENT:
for my $event (@events)
{
$ical .= qq{BEGIN:VEVENT\n};
$ical .= qq{BEGIN:VEVENT\r\n};
# Currently we only need
# UID
@ -1524,11 +1526,11 @@ sub www_ical
$ical .= "X-WEBGUI-URL:".$event->get("url")."\r\n";
$ical .= qq{END:VEVENT\n};
$ical .= qq{END:VEVENT\r\n};
}
# ENDVEVENT
$ical .= qq{END:VCALENDAR\n};
$ical .= qq{END:VCALENDAR\r\n};
# Set mime of text/icalendar