--- ConnorCalendar/calendar.pl	2014/03/21 02:55:24	1.9
+++ ConnorCalendar/calendar.pl	2016/11/03 12:49:45	1.10
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -wT
+#!/usr/bin/perl -w
 
 =begin comment info
 +------------------------------------------------------------------------------
@@ -8,7 +8,7 @@
 |
 |   Nicholas DeClario <nick@demandred.dyndns.org>
 |   March 2009
-|	$Id: calendar.pl,v 1.9 2014/03/21 02:55:24 nick Exp $
+|	$Id: calendar.pl,v 1.10 2016/11/03 12:49:45 nick Exp $
 |
 +------------------------------------------------------------------------------
 =end comment
@@ -23,10 +23,10 @@ use Getopt::Long;
 use Pod::Usage;
 use Data::Dumper;
 use Calendar::Simple;
-use Date::Calendar::Year qw( :all );
-use Date::Calendar::Profiles qw( $Profiles );
+use Date::Pcalendar::Year qw( :all );
+use Date::Pcalendar::Profiles qw( $Profiles );
 
-my $VERSION  = q/$Id: calendar.pl,v 1.9 2014/03/21 02:55:24 nick Exp $/;
+my $VERSION  = q/$Id: calendar.pl,v 1.10 2016/11/03 12:49:45 nick Exp $/;
 my $DEBUG    = "";
 my $URL	     = "http://demandred.dyndns.org/cgi-bin/ConnorCalendar/index.cgi";
 my %post_in  = ( );
@@ -51,7 +51,8 @@ my %specials = (
 		"11/28"			=> "even",
 		"5/6"			=> "odd",
 		);
-my @weekend  = qw/ 2011 8 12 /;
+## Change this @weekend to 'qw/ 2011 8 12 /' for original schedule
+my @weekend  = qw/ 2011 8 19 /;
 my %weekends = &calcWeekends( @weekend );
 
 &ReadParse( );
@@ -63,13 +64,13 @@ push @list, 'Easter Sunday' if ( $YEAR %
 print "Content-type: text/html\n\n";
 print &header( );
 print &css( );
-my $year_us = Date::Calendar::Year->new( $YEAR, $Profiles->{'US-FL'} );
+my $year_us = Date::Pcalendar::Year->new( $YEAR, $Profiles->{'US-FL'} );
 my @hdays = $year_us->labels( );
 
 print "<h1><center><a href=\"$URL?cy=" . ( $YEAR - 1 ) .
       "\">&lt;--</a> " .
       "Calendar Days Connor Visits for $YEAR" .
-       "<a href=\"$URL?cy=" . ( $YEAR + 1 ) . "\">--&gt;</a></h1>";
+       "<a href=\"$URL?cy=" . ( $YEAR + 1 ) . "\"> --&gt;</a></h1>";
 my $row = 0;
 print "<table align=center border=0><tr>";
 for( my $month = 1; $month <= 12; $month++ )
@@ -165,8 +166,8 @@ sub isSpecial
 sub isWeekend
 {
 	my $y = shift || return 0;
-        my $m = shift || return 0;
-        my $d = shift || return 0;
+    my $m = shift || return 0;
+    my $d = shift || return 0;
 
 	$m--;
 	my $ds = sprintf( "$y/$months[$m]/%02d", $d );