--- ConnorCalendar/calendar.pl	2016/11/03 12:54:10	1.11
+++ ConnorCalendar/calendar.pl	2017/06/15 01:52:15	1.12
@@ -8,7 +8,7 @@
 |
 |   Nicholas DeClario <nick@demandred.dyndns.org>
 |   March 2009
-|	$Id: calendar.pl,v 1.11 2016/11/03 12:54:10 nick Exp $
+|	$Id: calendar.pl,v 1.12 2017/06/15 01:52:15 nick Exp $
 |
 +------------------------------------------------------------------------------
 =end comment
@@ -26,14 +26,14 @@ use Calendar::Simple;
 use Date::Pcalendar::Year qw( :all );
 use Date::Pcalendar::Profiles qw( $Profiles );
 
-my $VERSION  = '$Id: calendar.pl,v 1.11 2016/11/03 12:54:10 nick Exp $';
+my $VERSION  = '$Id: calendar.pl,v 1.12 2017/06/15 01:52:15 nick Exp $';
 my $DEBUG    = "";
 my $URL	     = "http://demandred.dyndns.org/cgi-bin/ConnorCalendar/index.cgi";
 my %post_in  = ( );
 my %opts     = &fetchOptions( );
 my @list     = ( );
 my @months   = qw/ January February March April May June July 
-		   August September October November December /;
+                   August September October November December /;
 my %holidays = ( 
 		 "Easter Sunday"	=> 'even',
 		 "Christmas Day"	=> 'even',
@@ -51,18 +51,21 @@ my %specials = (
 		"11/28"			=> "even",
 		"5/6"			=> "odd",
 		);
+
+print "Content-type: text/html\n\n";
+print &header( );
+
+
 ## Change this @weekend to 'qw/ 2011 8 12 /' for original schedule
 my @weekend  = qw/ 2011 8 19 /;
 my %weekends = &calcWeekends( @weekend );
 
 &ReadParse( );
 
-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 );
 push @list, 'Easter Sunday' if ( $YEAR % 2 == 0 );
 
-print "Content-type: text/html\n\n";
-print &header( );
 print &css( );
 my $year_us = Date::Pcalendar::Year->new( $YEAR, $Profiles->{'US-FL'} );
 my @hdays = $year_us->labels( );