54 lines
2.7 KiB
PHP
54 lines
2.7 KiB
PHP
|
<?php
|
||
|
|
# 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
|
||
|
|
# Modified by Raul Mateos <raulofpandora@gmail.com>, 2006
|
||
|
|
|
||
|
|
function generate_calendar($year, $month, $days = array(), $day_name_length = 3, $month_href = NULL, $locale = ''){
|
||
|
|
$first_day = 1; //Monday first day of week.
|
||
|
|
$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()
|
||
|
|
setlocale(LC_TIME, $locale);
|
||
|
|
$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)).' '.$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
|
||
|
|
$calendar = '<table class="calendar">'."\n".
|
||
|
|
'<caption class="calendar-month">'.($month_href ? '<a href="'.htmlspecialchars($month_href).'">'.$title.'</a>' : $title)."</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.'"> </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;
|
||
|
|
if($weekday==6){ $classes='datos2';}
|
||
|
|
$calendar .= '<td'.($classes ? ' class="'.htmlspecialchars($classes).'">' : '>').
|
||
|
|
($link ? '<a href="'.htmlspecialchars($link).'">'.$content.'</a>' : $content).'</td>';
|
||
|
|
}
|
||
|
|
else $calendar .= "<td>$day</td>";
|
||
|
|
}
|
||
|
|
if($weekday != 7) $calendar .= '<td colspan="'.(7-$weekday).'"> </td>'; #remaining "empty" days
|
||
|
|
|
||
|
|
return $calendar."</tr>\n</table>\n";
|
||
|
|
}
|
||
|
|
?>
|