http://qs321.pair.com?node_id=468890


in reply to Making a Calendar in Perl?

Greetings Anonymous Monk,

From what you describe in your post, I think HTML::Calender::Simple would be perfect. The whole $type/$info thing for date events didn't work for me, so I ended up just writing a simple subroutine to handle the link creation myself, then passed that into the daily_info method.

use strict; use warnings; use CGI; use HTML::Calendar::Simple; my $cgi = CGI->new; print $cgi->header; my $cal = HTML::Calendar::Simple->new({ 'month' => 6, 'year' => 2005, }); sub _display_events { my $events = shift; return join('<br/>', map { $cgi->a({ href => $_->[0] }, $_->[1]) } (@{$events})); } $cal->daily_info({ 'day' => 21, 'events' => _display_events([ ['http://perlmonks.org', 'PerlMonks'], ['http://whitepages.com', 'Whitepages'] ]), }); print $cal->calendar_month;

gryphon
Whitepages.com Development Manager (DSMS)
code('Perl') || die;