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( ); |