/modules/calendar.php

<?php

# http://keithdevens.com/software/php_calendar

class calendar
{
	public $year;
	public $month;
	public $days = null;
	public $day_name_length = 3;
	public $month_href = null;
	public $first_day = 0;
	public $pn;
	private $timestamp;

	function __construct()
	{
		$registry = Registry::instance();
	
		if ($registry->request('d')) $this->timestamp = $registry->request('d');
		else $this->timestamp = time();
		
		$this->year = date('Y', $this->timestamp);
		$this->month = date('n', $this->timestamp);
		
		$this->pn = array('&laquo;'=> 'index.php?c=events&d='.strtotime('-1 month', $this->timestamp), 
											'&raquo;'=> 'index.php?c=events&d='.strtotime('+1 month', $this->timestamp));
	}
	
	function set_days()
	{
	/*
		$this->days = array();
		for ($i = 1, $i < 20, $i++) 
			$this->days[$i] = array($this->day_link($i),'linked-day');
	*/
	}
	
	function day_link($day)
	{
		return 'index.php?c=events&d='.$this->calculate_day($day);
	}
	
	function calculate_day($day)
	{
		return mktime(0, 0, 0, $this->month, $day, $this->year);
	}
	
	function current_date()
	{
		return date('l, F jS, Y', $this->timestamp);
	}

	function render()
	{
		return $this->generate_calendar($this->year, $this->month, $this->days, $this->day_name_length, $this->month_href, $this->first_day, $this->pn);
	}

	# PHP Calendar (version 2.3), written by Keith Devens
	# http://keithdevens.com/software/php_calendar
	#  see example at http://keithdevens.com/weblog
	# License: http://keithdevens.com/software/license
	
	function generate_calendar($year, $month, $days = array(), $day_name_length = 3, $month_href = NULL, $first_day = 0, $pn = array())
	{
		$first_of_month = gmmktime(0,0,0,$month,1,$year);
		#remember that mktime will automatically correct if invalid dates are entered
		# for instance, mktime(0,0,0,12,32,1997) will be the date for Jan 1, 1998
		# this provides a built in "rounding" feature to generate_calendar()
	
		$day_names = array(); #generate all the day names according to the current locale
		for($n=0,$t=(3+$first_day)*86400; $n<7; $n++,$t+=86400) #January 4, 1970 was a Sunday
			$day_names[$n] = ucfirst(gmstrftime('%A',$t)); #%A means full textual day name
	
		list($month, $year, $month_name, $weekday) = explode(',',gmstrftime('%m,%Y,%B,%w',$first_of_month));
		$weekday = ($weekday + 7 - $first_day) % 7; #adjust for $first_day
		$title   = htmlentities(ucfirst($month_name)).'&nbsp;'.$year;  #note that some locales don't capitalize month and day names
	
		#Begin calendar. Uses a real <caption>. See http://diveintomark.org/archives/2002/07/03
		@list($p, $pl) = each($pn); @list($n, $nl) = each($pn); #previous and next links, if applicable
		if($p) $p = '<span class="calendar-prev">'.($pl ? '<a href="'.htmlspecialchars($pl).'">'.$p.'</a>' : $p).'</span>&nbsp;';
		if($n) $n = '&nbsp;<span class="calendar-next">'.($nl ? '<a href="'.htmlspecialchars($nl).'">'.$n.'</a>' : $n).'</span>';
		$calendar = '<table class="calendar">'."\n".
			'<caption class="calendar-month">'.$p.($month_href ? '<a href="'.htmlspecialchars($month_href).'">'.$title.'</a>' : $title).$n."</caption>\n<tr>";
	
		if($day_name_length){ #if the day names should be shown ($day_name_length > 0)
			#if day_name_length is >3, the full name of the day will be printed
			foreach($day_names as $d)
				$calendar .= '<th abbr="'.htmlentities($d).'">'.htmlentities($day_name_length < 4 ? substr($d,0,$day_name_length) : $d).'</th>';
			$calendar .= "</tr>\n<tr>";
		}
	
		if($weekday > 0) $calendar .= '<td colspan="'.$weekday.'">&nbsp;</td>'; #initial 'empty' days
		for($day=1,$days_in_month=gmdate('t',$first_of_month); $day<=$days_in_month; $day++,$weekday++){
			if($weekday == 7){
				$weekday   = 0; #start a new week
				$calendar .= "</tr>\n<tr>";
			}
			/*
			if(isset($days[$day]) and is_array($days[$day])){
				@list($link, $classes, $content) = $days[$day];
				if(is_null($content))  $content  = $day;
				$calendar .= '<td'.($classes ? ' class="'.htmlspecialchars($classes).'">' : '>').
					($link ? '<a href="'.htmlspecialchars($link).'">'.$content.'</a>' : $content).'</td>';
			}
			else $calendar .= "<td>$day</td>";
			*/
			// Adapt so that all days are automaticaly linked
			$calendar .= '<td class="linked-day"><a href="'.htmlspecialchars($this->day_link($day)).'">'.$day.'</a></td>';
		}
		if($weekday != 7) $calendar .= '<td colspan="'.(7-$weekday).'">&nbsp;</td>'; #remaining "empty" days
	
		return $calendar."</tr>\n</table>\n";
	}

}
?>