my $good=1;
foreach my $x ($year->labels($_)) {
$good=0 if $x =~ /Veteran/;
+ $good=0 if $x =~ /Presidents/;
$good=2 if $x =~ /Thanksgiving/;
}
next unless ($year->is_full($_) && $_>=$firstday && $_<=$lastday);
print "DTEND:", $startdate."T".$stoptime, "00\r\n";
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=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"), ">\r\n";
print "END:VEVENT\r\n";
if(defined($file) && (-d $file)) {
print "END:VCALENDAR\r\n";