document.write('<UL>');
% foreach my $event ( @{$events} ) {
%	  my $title = $event->[2];
% 	$title =~ s/'/\\'/g;
%   $title =~ s/\(/\\(/g;
%   $title =~ s/\)/\\)/g;
%   $title =~ s/[\n\r\t\f]/ /g;
%   my @d = split(/[^0-9]/,$event->[4]);
%   my $dt = DateTime->new(
%        year => $d[0],
%        month => $d[1],
%        day => $d[2],
%        hour => ($d[3] || 0),
%        minute => ($d[4] || 0),
%        second => ($d[5] || 0)  
%      );
%   $event->[3] =~ s/'/\\'/g;
%   $event->[3] =~ s/\(/\\(/g;
%   $event->[3] =~ s/\)/\\)/g;
%   $event->[3] =~ s/[\n\r\t\f]/ /g;
document.write('<LI> <a href="http://<%$host[0].'.'.$redirHost%>/ccEvent.html?eid=<%$event->[1]%>"><% ($date) ? $dt->strftime("%m/%d/%Y") . " -" : "" %> <% $title %></a><% ($fulltext) ? "<BR>" . ($event->[3]||"No description available") : "" %></LI>');
% }
document.write('</UL>'+'\n');
<%args>
  $id
  $date => undef
  $fulltext => undef
  $limit => 5
</%args>
<%init>
  use DateTime;
  use Sys::Hostname;
  use PPlanner::PPEvents;
  my $e = new PPlanner::PPEvents;
  my $events = $e->getUpcomingEvents($id,undef,($limit < 20 ? $limit : 20));
  my $ihost = `hostname`;
  my $host = $r->hostname;
  my @host = split(/\./,$host);
  my $redirHost = join('.',@host[($ihost =~ /dev/ ? (scalar(@host)-4) : (scalar(@host)-2) )..(scalar(@host)-1)]);    
  $r->content_type('application/x-javascript');
</%init>
<%flags>
  inherit => undef
</%flags>