Presidents Day omission. I need a more general purpose holiday system.

[tpope-extra.git] / perl / sctweb

diff --git a/perl/sctweb b/perl/sctweb
index 77f9c18a13a5d39e21f0beba406217573c144d71..7ca5d9f088581c03a85582a57a5cc1310dbd3e68 100755 (executable)
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -92,6 +92,7 @@ sub off_for_holidays {
        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);
@@ -146,7 +147,7 @@ sub capitalize {
     s/\bGen\b/General/g;
     s/\bIntro\b/Introduction/g;
     s/\bPrgm\b/Programming/g;
-    s/\bOp Sys\b/Operatiing System/g;
+    s/\bOp Sys\b/Operating System/g;
     #s/\bGovt\b/Government/g;
     s/\bLit\b/Literature/g;
     s/\bPrin\b/Principles/g;
@@ -401,8 +402,8 @@ sub do_vcalendar_schedule {
        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";