--- ConnorCalendar/calendar.pl 2013/05/30 14:38:50 1.7 +++ ConnorCalendar/calendar.pl 2014/03/21 02:55:24 1.9 @@ -8,7 +8,7 @@ | | Nicholas DeClario | March 2009 -| $Id: calendar.pl,v 1.7 2013/05/30 14:38:50 nick Exp $ +| $Id: calendar.pl,v 1.9 2014/03/21 02:55:24 nick Exp $ | +------------------------------------------------------------------------------ =end comment @@ -26,7 +26,7 @@ use Calendar::Simple; use Date::Calendar::Year qw( :all ); use Date::Calendar::Profiles qw( $Profiles ); -my $VERSION = q/$Id: calendar.pl,v 1.7 2013/05/30 14:38:50 nick Exp $/; +my $VERSION = q/$Id: calendar.pl,v 1.9 2014/03/21 02:55:24 nick Exp $/; my $DEBUG = ""; my $URL = "http://demandred.dyndns.org/cgi-bin/ConnorCalendar/index.cgi"; my %post_in = ( ); @@ -42,8 +42,8 @@ my %holidays = ( "Independence Day" => 'even', "Labor Day" => 'even', "Memorial Day" => 'odd', - "New Year's Day" => 'even', - "New Year's Eve" => 'even', + "New Year's Day" => 'odd', + "New Year's Eve" => 'odd', "Thanksgiving Day" => 'odd', ); @@ -58,7 +58,7 @@ my %weekends = &calcWeekends( @weekend ) my $yr = sprintf( "%d", $post_in{'cy'} ) || ( ( localtime )[5] + 1900 ); my $YEAR = sprintf( "%d", $yr ); -push @list, 'Easter Sunday' if ( ! $YEAR % 2 ); +push @list, 'Easter Sunday' if ( $YEAR % 2 == 0 ); print "Content-type: text/html\n\n"; print &header( );