Whoops, formatting errors in iCal

diff --git a/perl/schedproc b/perl/schedproc
index de2e0e0b33a1e80be7d639b5b828e0b76365390a..a7c74e0b1641ce4df4715ab8ac894d05af7498c6 100755 (executable)
--- 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 "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,$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) {
        $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'};
        }
        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'};