|
|
| version 1.8, 2014/01/15 16:19:08 | version 1.9, 2014/03/21 02:55:24 |
|---|---|
| Line 58 my %weekends = &calcWeekends( @weekend ) | Line 58 my %weekends = &calcWeekends( @weekend ) |
| my $yr = sprintf( "%d", $post_in{'cy'} ) || ( ( localtime )[5] + 1900 ); | my $yr = sprintf( "%d", $post_in{'cy'} ) || ( ( localtime )[5] + 1900 ); |
| my $YEAR = sprintf( "%d", $yr ); | 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 "Content-type: text/html\n\n"; |
| print &header( ); | print &header( ); |