function http_calendrier_jour($annee, $mois, $jour, $echelle, $partie_cal, $script, $ancre, $evt){
global $spip_ecran;
if (!isset($spip_ecran)) $spip_ecran = isset($_COOKIE['spip_ecran']) ? $_COOKIE['spip_ecran'] : "large";
$id = ($ancre ? $ancre : 'agenda') . "-nav";
return
"<div><div id='$id'></div>" .
"<table class='calendrier calendrier-$spip_ecran'>" .
http_calendrier_navigation($annee, $mois, $jour, $echelle, $partie_cal,
(nom_jour("$annee-$mois-$jour") . " " .
affdate_jourcourt("$annee-$mois-$jour")),
$script,
array($annee, $mois, ($jour-1), "jour"),
array($annee, $mois, ($jour+1), "jour"),
'jour',
$ancre) .
(!is_array($evt) ? ("<tr><td>$evt</td></tr>") :
(http_calendrier_jour_noms($annee, $mois, $jour, $echelle, $partie_cal, $script, $ancre) .
http_calendrier_jour_sept($annee, $mois, $jour, $echelle, $partie_cal, $script, $ancre, $evt))) .
"</table>" .
"</div>";
}
function http_calendrier_mois($mois, $annee, $premier_jour, $dernier_jour, $partie_cal, $echelle, $evenements, $script, $fclic)
{
$couleur_claire = '#dedede';
$couleur_foncee = '#555555';
$today = getdate(time());
$j = $today["mday"];
if ($dernier_jour > 31) {
$prec = $suiv = '';
$periode = affdate_mois_annee(date("Y-m-d", mktime(1, 1, 1, $mois, $premier_jour, $annee))) . ' - ' . affdate_mois_annee(date("Y-m-d", mktime(1, 1, 1, $mois, $dernier_jour, $annee)));
} else {
$mois_suiv = $mois + 1;
$annee_suiv = $annee;
$mois_prec = $mois - 1;
$annee_prec = $annee;
if ($mois == 1) {
$mois_prec = 12;
$annee_prec = $annee - 1;
} else {
if ($mois == 12) {
$mois_suiv = 1;
$annee_suiv = $annee + 1;
}
}
$prec = "mois={$mois_prec}&annee={$annee_prec}";
$suiv = "mois={$mois_suiv}&annee={$annee_suiv}";
$periode = affdate_mois_annee("{$annee}-{$mois}-1");
}
if (preg_match('/^(.*)(#[^=&]*)$/', $script, $m)) {
$script = $m[1];
$ancre = $m[2];
} else {
$ancre = '';
}
$nav = http_calendrier_navigation($j, $mois, $annee, $partie_cal, $echelle, $periode, $script, $prec, $suiv, 'mois', $ancre);
return "<table border='0' cellspacing='0' cellpadding='0' width='98%'>\n" . "<tr>\n<td colspan='7'>{$nav}</td>\n</tr>\n" . http_calendrier_les_jours(array(_T('date_wday_1'), _T('date_wday_2'), _T('date_wday_3'), _T('date_wday_4'), _T('date_wday_5'), _T('date_wday_6'), _T('date_wday_7')), $couleur_claire, $couleur_foncee) . http_calendrier_suitede7($mois, $annee, $premier_jour, $dernier_jour, $evenements, $fclic, $script) . "\n</table>\n<br />";
}
