[BACK]Return to calendar.pl CVS log [TXT] [DIR] Up to [Local Repository] / ConnorCalendar

Diff for /ConnorCalendar/calendar.pl between versions 1.12 and 1.13

version 1.12, 2017/06/15 01:52:15 version 1.13, 2018/10/30 13:53:00
Line 115  for( my $month = 1; $month <= 12; $month Line 115  for( my $month = 1; $month <= 12; $month
         $row++;          $row++;
 }  }
 print "</tr></table>";  print "</tr></table>";
 print "<p class=\"Legend\">Holidays I have Connor are in <font color=red>Red</font>\n</br>";  print "<p class=\"Legend\">Holidays Connor visits are in <font color=red>Red</font>\n</br>";
 print "Today is <font color=blue>Blue</font>\n</br>";  print "Today is <font color=blue>Blue</font>\n</br>";
 print "Weekends and special days I have Connor are in <font color=green>Green</font>\n</p>";  print "Weekends and special days Connor visits are in <font color=green>Green</font>\n</p>";
   
   
 print "<table width=35% align=center border=0><tr><td>List of Special/Holidays " .  print "<table width=35% align=center border=0><tr><td>List of Special/Holidays " .
       "I have Connor:<br /><p class=Legend>";        "Connor Visits:<br /><p class=Legend>";
 print map { $_ . "<br />\n" } sort @list;  print map { $_ . "<br />\n" } sort @list;
 print "</p></td></tr></table>\n";  print "</p></td></tr></table>\n";
 print "</pre><p class=\"footer\">Version: <font color=green>$VERSION</font><br />";  print "</pre><p class=\"footer\">Version: <font color=green>$VERSION</font><br />";
Line 199  sub calcWeekends Line 199  sub calcWeekends
         my $d = shift;          my $d = shift;
         my %weekends = ( );          my %weekends = ( );
   
         print "Weekends I have Connor:\n";          print "Weekends Connor Visits:\n";
   
         use Calendar;          use Calendar;
         my $date = Calendar->new_from_Gregorian( $m, $d, $y );          my $date = Calendar->new_from_Gregorian( $m, $d, $y );
Removed from v.1.12  
changed lines
  Added in v.1.13

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>