Sorry if this post is off-topic but I have a feeling people in this list would have definitely come across it.here is a fragment of some code I wrote a long time ago. It has some dependencies unique to my situation, and is crufty and inelegant, but it should give you a place to start. I was using SQLite to store the events, grabbing the data from the database, and passing the recordset to different routines to create the monthly, yearly, daily or weekly views. Here is the monthly view. The getappts() gets the data from the database, and getappt() converts it to viewable code (I know, I know, I already said it is crufty and inelegant, but it works) --
I am looking to generate an event calendar using H::T. Can anyone help me with some pointers? code snippets?
I did search the archives but could not find much info.
Thanks, Nishi
sub month {
my @cal = ();my $start = my $firstOfMonth = timelocal(0, 0, 0, 1, $mon, $year);
my $end = my $lastOfMonth = timelocal(59, 59, 23, $daysInMonth, $mon, $year);
my $appts_ref = &getappts($start, $end);
my @firstOfMonth = localtime($firstOfMonth); my $wdayOfFirstOfMonth = $firstOfMonth[6]; my $date = 1;
# first week
my %week;
#my $thisweek = $week;
my $thisweek = int(($firstOfMonth[7] + 1) / 7) + 1;
$week{'week'} = $thisweek;
$week{'weekcd'} = timelocal(0, 0, 0, $date, $mon, $year);my @week;
for (1..7) {
my %day;
my @appointments;
if ($_ <= $wdayOfFirstOfMonth) {
$day{'day'} = '';
$day{'daycd'} = '';
$day{'appointments'} = [EMAIL PROTECTED];
} else {
$day{'day'} = ($date == $today) ? "<div id='today'>" . $date . '</div>' : $date;
$day{'daycd'} = timelocal(0, 0, 0, $date, $mon, $year);
$day{'appointments'} = &getappt($mon, $date, $hour, 'month', $appts_ref);
$date++;
}
push(@week, \%day);
}
$week{'days'} = [EMAIL PROTECTED];
push(@cal, \%week);
# end first week
# rest of the weeks
while ($date <= $daysInMonth) {
my %week;
$thisweek++;
$week{'week'} = $thisweek;
$week{'weekcd'} = timelocal(0, 0, 0, $date, $mon, $year);my @week;
for (1..7) {
my %day;
my @appointments;
if ($date <= $daysInMonth) {
$day{'day'} = ($date == $today) ? "<div id='today'>" . $date . '</div>' : $date;
$day{'daycd'} = timelocal(0, 0, 0, $date, $mon, $year);
$day{'appointments'} = &getappt($mon, $date, $hour, 'month', $appts_ref);
} else {
$day{'day'} = '';
$day{'daycd'} = '';
$day{'appointments'} = [EMAIL PROTECTED];
}
$date++;
push(@week, \%day);
}
$week{'days'} = [EMAIL PROTECTED];
push(@cal, \%week);
}
return [EMAIL PROTECTED];
}
sub getappts {
my ($start, $end) = @_;
my $dbh = &connecttoDB();
my $sql = "SELECT event_id, start, end, title FROM events WHERE start BETWEEN $start AND $end ORDER BY start";
my $sth = $dbh->prepare(qq{$sql});
$sth->execute;
return my $tbl_ary_ref = $sth->fetchall_arrayref({});
}
sub getappt {
my ($m, $d, $h, $doh, $ary_ref) = @_;
my @inres = @$ary_ref;
my @outres;
foreach (@inres) {
my %row = %$_;
my ($ssec, $smin, $shour, $smday, $smon, $syear, $swday, $syday, $sisdst) = localtime($row{'start'});
if ($doh eq 'day') {
if ($shour == $h) {
$row{'start'} = &timetobase12($shour, $smin);
my ($esec, $emin, $ehour, $emday, $emon, $eyear, $ewday, $eyday, $eisdst) = localtime($row{'end'});
$row{'end'} = &timetobase12($ehour, $emin);
push(@outres, \%row) ;
}
} elsif ($doh eq 'week') {
if ($smday == $d and $shour == $h) {
$row{'start'} = &timetobase12($shour, $smin);
my ($esec, $emin, $ehour, $emday, $emon, $eyear, $ewday, $eyday, $eisdst) = localtime($row{'end'});
$row{'end'} = &timetobase12($ehour, $emin);
push(@outres, \%row) ;
}
} elsif ($doh eq 'month') {
if ($smday == $d) {
$row{'start'} = &timetobase12($shour, $smin);
my ($esec, $emin, $ehour, $emday, $emon, $eyear, $ewday, $eyday, $eisdst) = localtime($row{'end'});
$row{'end'} = &timetobase12($ehour, $emin);
push(@outres, \%row) ;
}
} elsif ($doh eq 'year') {
if ($smon == $m and $smday == $d) {
$row{'start'} = &timetobase12($shour, $smin);
my ($esec, $emin, $ehour, $emday, $emon, $eyear, $ewday, $eyday, $eisdst) = localtime($row{'end'});
$row{'end'} = &timetobase12($ehour, $emin);
push(@outres, \%row) ;
}
}
}
return [EMAIL PROTECTED];
}
$template->param( prev => $prev, next => $next, currentlink => $currentlink, currentdesc => $currentdesc, view => $view, monthwidget => &monthwidget, daywidget => &daywidget, yearwidget => &yearwidget, cal => &month(), selecteddayvalue => $mday, selecteddaydisplay => $mday, selectedmonthvalue => $mon, selectedmonthdisplay => $months[$mon], selectedyearvalue => $year, selectedyeardisplay => $year );
=========
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html> <head> <title>Month</title> <link rel="stylesheet" TYPE="text/css" href="../perlpim.css"> </head> <body>
<tmpl_include navbar.html>
<table border="1" width="600" cellpadding="2" cellspacing="1" bgcolor="black">
<tr bgcolor="silver"><td colspan="8"><tmpl_var currentdesc></td></tr>
<tr bgcolor="#ccffff">
<td width="40" bgcolor="#cccc99">Week</td>
<td width="80" bgcolor="silver">Sun</td>
<td width="80">Mon</td>
<td width="80">Tue</td>
<td width="80">Wed</td>
<td width="80">Thu</td>
<td width="80">Fri</td>
<td width="80" bgcolor="silver">Sat</td>
</tr>
<!-- start month loop -->
<tmpl_loop cal>
<tr bgcolor="white" valign="top">
<td bgcolor="#cccc99" height="70">
<a href="index.cgi?view=week&cd=<tmpl_var weekcd>"><tmpl_var week></a></td>
<tmpl_loop days>
<td <tmpl_if __first__>bgcolor="silver"</tmpl_if><tmpl_if __last__>bgcolor="silver"</tmpl_if><tmpl_unless day>bgcolor="silver"</tmpl_unless>>
<tmpl_if day>
<a href="index.cgi?view=day&cd=<tmpl_var daycd>" title="Day view"><tmpl_var day></a><br>
</tmpl_if>
<tmpl_loop appointments>
<tmpl_if start>
<tmpl_var start> - <tmpl_var end>:
<a href="index.cgi?event_id=<tmpl_var event_id>" title="Details on this event">
<tmpl_var title></a><br>
</tmpl_if>
</tmpl_loop>
</td>
</tmpl_loop></tr>
</tmpl_loop>
<!-- end month loop -->
</table>
</body> </html>
------------------------------------------------------- SF.Net is sponsored by: Speed Start Your Linux Apps Now. Build and deploy apps & Web services for Linux with a free DVD software kit from IBM. Click Now! http://ads.osdn.com/?ad_id=1356&alloc_id=3438&op=click _______________________________________________ Html-template-users mailing list [EMAIL PROTECTED] https://lists.sourceforge.net/lists/listinfo/html-template-users
