--- ConnorCalendar/calendar.pl 2014/01/15 16:19:08 1.8 +++ ConnorCalendar/calendar.pl 2014/03/21 02:55:24 1.9 @@ -8,7 +8,7 @@ | | Nicholas DeClario | March 2009 -| $Id: calendar.pl,v 1.8 2014/01/15 16:19:08 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.8 2014/01/15 16:19:08 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 = ( ); @@ -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( );