Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re: Making a Calendar in Perl?

by gryphon (Abbot)
on Jun 22, 2005 at 02:34 UTC ( #468890=note: print w/replies, xml ) Need Help??

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([ ['', 'PerlMonks'], ['', 'Whitepages'] ]), }); print $cal->calendar_month;

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://468890]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (4)
As of 2016-10-28 07:50 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (377 votes). Check out past polls.