sub html_calendar { my ($month, $year, $eventshashref) = @_; my $dt = DateTime->new(year => $year, month => $month, day => 1, ); my $calendar = qq[
] . $dt->month_name . qq[ $year | ||||||
---|---|---|---|---|---|---|
Sun | Mon | Tue | Wed | Thu | Fri | Sat |
' for 1 .. ($dt->dow % 7); while ($dt->month == $month) { $calendar .= qq[ | ] . $dt->mday . '';
if (ref $eventshashref and exists $$eventshashref{$dt->mday}) {
my $class = $$eventshashref{$dt->mday()}{class};
my $time = $$eventshashref{$dt->mday()}{time};
my $desc = $$eventshashref{$dt->mday()}{shortdesc};
my $tooltip = $$eventshashref{$dt->mday()}{longdesc};
$calendar .= qq[ $time
$desc ];
}
$calendar .= qq[ | ];
$dt = $dt->add(days => 1);
if ($dt->dow == 7) {
$calendar .= "|||||