--- ConnorCalendar/calendar.pl 2017/06/15 01:52:15 1.12 +++ ConnorCalendar/calendar.pl 2018/10/30 13:53:00 1.13 @@ -8,7 +8,7 @@ | | Nicholas DeClario | March 2009 -| $Id: calendar.pl,v 1.12 2017/06/15 01:52:15 nick Exp $ +| $Id: calendar.pl,v 1.13 2018/10/30 13:53:00 nick Exp $ | +------------------------------------------------------------------------------ =end comment @@ -26,7 +26,7 @@ use Calendar::Simple; use Date::Pcalendar::Year qw( :all ); use Date::Pcalendar::Profiles qw( $Profiles ); -my $VERSION = '$Id: calendar.pl,v 1.12 2017/06/15 01:52:15 nick Exp $'; +my $VERSION = '$Id: calendar.pl,v 1.13 2018/10/30 13:53:00 nick Exp $'; my $DEBUG = ""; my $URL = "http://demandred.dyndns.org/cgi-bin/ConnorCalendar/index.cgi"; my %post_in = ( ); @@ -115,13 +115,13 @@ for( my $month = 1; $month <= 12; $month $row++; } print ""; -print "

Holidays I have Connor are in Red\n
"; +print "

Holidays Connor visits are in Red\n
"; print "Today is Blue\n
"; -print "Weekends and special days I have Connor are in Green\n

"; +print "Weekends and special days Connor visits are in Green\n

"; print "
List of Special/Holidays " . - "I have Connor:

"; + "Connor Visits:

"; print map { $_ . "
\n" } sort @list; print "

\n"; print "

Version: $VERSION
"; @@ -199,7 +199,7 @@ sub calcWeekends my $d = shift; my %weekends = ( ); - print "Weekends I have Connor:\n"; + print "Weekends Connor Visits:\n"; use Calendar; my $date = Calendar->new_from_Gregorian( $m, $d, $y );