projects
/
tpope-extra.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
63dfdd3
)
Added \r
author
Tim Pope
<code@tpope.net>
Tue, 11 Jan 2005 15:48:35 +0000
(15:48 +0000)
committer
Tim Pope
<code@tpope.net>
Tue, 11 Jan 2005 15:48:35 +0000
(15:48 +0000)
perl/sctweb
patch
|
blob
|
history
diff --git
a/perl/sctweb
b/perl/sctweb
index dc5815b89b8d760d368b1a92e011866a41c1f899..9ec85317e4390722f974a34a975af6654155c027 100755
(executable)
--- 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 "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";
print "END:VEVENT\r\n";
if(defined($file) && (-d $file)) {
print "END:VCALENDAR\r\n";