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 1d6bfcb3da0f5f7c45438745c37cdc69b69bc798..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);