From 1d4124bf584945a23d25c5a782b798c7f910a2b8 Mon Sep 17 00:00:00 2001 From: Tim Pope Date: Wed, 24 Aug 2005 07:32:17 +0000 Subject: [PATCH] Whoops, formatting errors in iCal --- perl/schedproc | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/perl/schedproc b/perl/schedproc index de2e0e0..a7c74e0 100755 --- a/perl/schedproc +++ b/perl/schedproc @@ -470,15 +470,16 @@ EOF print "DESCRIPTION:", $row->{'id'}, "$r\n"; print "LOCATION:", $row->{'location'}, "$r\n"; print "CATEGORIES:Education$r\n"; + print "TRANSP:OPAQUE$r\n"; #print "DTSTART;$tzn$first,$starttime), "$r\n"; #print "DTEND;$tzn$first,$stoptime), "$r\n"; - print "DTSTART;\"$tzn\":", $first."T".$starttime, "00$r\n"; - print "DTEND;\"$tzn\":", $first."T".$stoptime, "00$r\n"; + print "DTSTART;TZID=\"$tzn\":", $first."T".$starttime, "00$r\n"; + print "DTEND;TZID=\"$tzn\":", $first."T".$stoptime, "00$r\n"; $row->{'days'} =~ s/([MTWRFS])/,$days{$1}/g; $row->{'days'} =~ s/^,//; print "RRULE:FREQ=WEEKLY;UNTIL=$stopdate;BYDAY=", $row->{'days'}, "$r\n"; foreach my $day (@day) { - print("\"EXDATE\";$tzn$day$r\n"); + print("EXDATE;TZID=\"$tzn\":$day$r\n"); } print "ATTENDEE;CN=".$row->{'instructor'}.";RSVP=FALSE;PARTSTAT=ACCEPTED;ROLE=CHAIR:mailto:" . (get_faculty_email($row->{'instructor'}) || "fake\@ddress"), "$r\n"; print "ATTENDEE;CN=".$opts{'name'}.";RSVP=FALSE;PARTSTAT=ACCEPTED;ROLE=REQ-PARTICIPANT:mailto:" . ($opts{'email'} || "fake\@ddress"), "$r\n" if $opts{'name'}; -- 2.30.2