From aaef63f1963b5d583e3af2032d59d96f63524d9e Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Tue, 11 Jan 2005 15:48:35 +0000
Subject: [PATCH] Added \r

---
 perl/sctweb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/sctweb b/perl/sctweb
index dc5815b..9ec8531 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -402,7 +402,7 @@ sub do_vcalendar_schedule {
 	print "RRULE:W1 ", $row->{'days'} . " $stopdate", "T000000\r\n";
 	print("EXDATE:$day\r\n") if($day);
 	print "ATTENDEE;ROLE=OWNER;STATUS=CONFIRMED:", $opts{NAME}, "\r\n" if(defined($opts{NAME}));
-	print "ATTENDEE;ROLE=ORGANIZER;STATUS=CONFIRMED:", $row->{'instructor'}, " <" . (get_faculty_email($row->{'instructor'}) || "fake\@ddress"), ">\n";
+	print "ATTENDEE;ROLE=ORGANIZER;STATUS=CONFIRMED:", $row->{'instructor'}, " <" . (get_faculty_email($row->{'instructor'}) || "fake\@ddress"), ">\r\n";
 	print "END:VEVENT\r\n";
 	if(defined($file) && (-d $file)) {
 	    print "END:VCALENDAR\r\n";
-- 
2.30.2