html-template-users Mailing List for HTML::Template (Page 59)

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Kapoor, Nishikant wrote:

>Sorry if this post is off-topic but I have a feeling people in this list would have definitely come across it.
>
>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
>
>  
>
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) --

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'} = \@appointments;
    } 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'} = \@week;
  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'} = \@appointments;
      }
      $date++;
      push(@week, \%day);
    }
    $week{'days'} = \@week;
    push(@cal, \%week);
  }
  return \@cal;
}

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 \@outres;
}

$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>

2002	Jan	Feb	Mar	Apr	May	Jun (42)	Jul (80)	Aug (77)	Sep (97)	Oct (65)	Nov (80)	Dec (39)
2003	Jan (63)	Feb (47)	Mar (45)	Apr (63)	May (67)	Jun (51)	Jul (78)	Aug (37)	Sep (45)	Oct (59)	Nov (50)	Dec (70)
2004	Jan (23)	Feb (90)	Mar (37)	Apr (53)	May (111)	Jun (71)	Jul (35)	Aug (58)	Sep (35)	Oct (35)	Nov (35)	Dec (20)
2005	Jan (51)	Feb (19)	Mar (20)	Apr (8)	May (26)	Jun (14)	Jul (49)	Aug (24)	Sep (20)	Oct (49)	Nov (17)	Dec (53)
2006	Jan (12)	Feb (26)	Mar (45)	Apr (19)	May (19)	Jun (13)	Jul (11)	Aug (9)	Sep (10)	Oct (16)	Nov (17)	Dec (13)
2007	Jan (9)	Feb (12)	Mar (28)	Apr (33)	May (12)	Jun (12)	Jul (19)	Aug (4)	Sep (4)	Oct (5)	Nov (5)	Dec (13)
2008	Jan (6)	Feb (7)	Mar (14)	Apr (16)	May (3)	Jun (1)	Jul (12)	Aug (1)	Sep	Oct	Nov	Dec (9)
2009	Jan (9)	Feb	Mar (10)	Apr (1)	May	Jun (6)	Jul (5)	Aug (3)	Sep (7)	Oct (1)	Nov (15)	Dec (1)
2010	Jan	Feb	Mar	Apr (9)	May	Jun	Jul (5)	Aug	Sep (2)	Oct	Nov	Dec
2011	Jan	Feb (3)	Mar	Apr (28)	May	Jun	Jul (3)	Aug (4)	Sep (3)	Oct	Nov (8)	Dec
2012	Jan	Feb	Mar	Apr	May (2)	Jun	Jul	Aug	Sep	Oct	Nov	Dec
2013	Jan (2)	Feb (1)	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec
2014	Jan (1)	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec
2015	Jan	Feb	Mar	Apr	May (1)	Jun	Jul	Aug	Sep	Oct	Nov (2)	Dec
2016	Jan	Feb (1)	Mar	Apr	May (1)	Jun	Jul	Aug	Sep	Oct	Nov (1)	Dec

html-template-users Mailing List for HTML::Template (Page 59)

html-template-users — Discussion of HTML::Template and related modules