array('debut' => 12, 'fin' => 23),
DEFAUT_PARTIE_M => array('debut' => 4, 'fin' => 15),
DEFAUT_PARTIE_T => array('debut' => 7, 'fin' => 21)
);
///
///Utilitaires sans html ni sql
///
/// Utilitaire de separation script / ancre
/// et de retrait des arguments a remplacer
/// (a mon avis cette fonction ne sert a rien, puisque parametre_url()
/// sait remplacer les arguments au bon endroit -- Fil)
/// Pas si simple: certains param ne sont pas remplaces
/// et doivent reprendre leur valeur par defaut -- esj.
/// http://doc.spip.org/@calendrier_retire_args_ancre
function calendrier_retire_args_ancre($script)
{
if (preg_match(',^(.*)#([\w-]+)$,',$script, $m)) {
$script = $m[1];
$ancre = $m[2];
} else { $ancre = ''; }
foreach(array('echelle','jour','mois','annee', 'type', 'partie_cal', 'bonjour') as $arg) {
$script = preg_replace("/([?&])$arg=[^&]*&/",'\1', $script);
$script = preg_replace("/([?&])$arg=[^&]*$/",'\1', $script);
}
if (in_array(substr($script,-1),array('&','?'))) $script = substr($script,0,-1);
return array(quote_amp($script), $ancre);
}
/// construit un bout de Query-String en eliminant le superflu
function calendrier_retire_defaults($echelle, $partie_cal)
{
if (!$echelle) $echelle = DEFAUT_D_ECHELLE;
return (($echelle != DEFAUT_D_ECHELLE) ? "&echelle=$echelle" : '')
. (($partie_cal != DEFAUT_PARTIE) ? "&partie_cal=$partie_cal" : '');
}
/// tous les liens de navigations sont issus de cette fonction
/// on peut definir generer_url_date et un htacces pour simplifier les URL
// http://doc.spip.org/@calendrier_args_date
function calendrier_args_date($script, $annee, $mois, $jour, $type, $finurl) {
if (function_exists('generer_url_date'))
return generer_url_date($script, $annee, $mois, $jour, $type, $finurl);
$script = parametre_url($script, 'annee', sprintf("%04d", $annee));
$script = parametre_url($script, 'mois', sprintf("%02d", $mois));
$script = parametre_url($script, 'jour', sprintf("%02d", $jour));
$script = parametre_url($script, 'type', $type);
return $script . $finurl;
}
function calendrier_args_time($time, $script, $type, $fin='')
{
if (!is_numeric($time)) $time = strtotime($time);
$jour = date("d",$time);
$mois = date("m",$time);
$annee = date("Y",$time);
return calendrier_args_date($script, $annee, $mois, $jour, $type, $fin);
}
/// utilise la precedente pour produire une balise A avec tous les accessoires
// http://doc.spip.org/@calendrier_href
function calendrier_href($script, $annee, $mois, $jour, $type, $fin, $ancre, $img, $titre, $class='', $alt='', $clic='', $style='', $evt='')
{
static $moi = NULL;
// pas d'Ajax pour l'espace public pour le moment ou si indispo
// sinon preparer la RegExp qui l'empeche aussi pour la page elle-meme
if ($moi === NULL) {
$moi = (test_espace_prive() AND (_SPIP_AJAX === 1 ))
? ("/exec=" . _request('exec') .'$/')
: '';
}
$d = mktime (1,1,1, $mois, $jour, $annee);
$url = calendrier_args_time($d, $script, $type, $fin) . ($ancre ? "#$ancre" : '');
$c = ($class ? " class=\"$class\"" : '');
if ($img) $clic = http_img_pack($img, ($alt ? $alt : $titre), $c);
if ($moi AND preg_match($moi, $script))
$evt .= "\nonclick=" . ajax_action_declencheur($h,$ancre);
return http_href($url, PtoBR($clic), attribut_html($titre), $style, $class, $evt);
}
/// Fabrique une balise A, avec tous les attributs possibles
/// attention au cas ou la href est du Javascript avec des "'"
/// pour un href conforme au validateur W3C, faire & --> & avant
// http://doc.spip.org/@http_href
function http_href($href, $clic, $title='', $style='', $class='', $evt='') {
if ($style) $evt .= " style='$style'";
$r = lien_ou_expose($href, $clic, false, $class, $title, 'nofollow', $evt);
return str_replace(' $fin) $heure100 = (($heure100-$fin) / (24 - $fin)) + $fin;
$top = floor(($heure100 - $debut + 1) * $dimheure);
return $top;
}
/// Calcule la hauteur entre deux heures
// http://doc.spip.org/@calendrier_height
function calendrier_height ($heure, $heurefin, $debut, $fin, $dimheure, $dimjour) {
$height = calendrier_top ($heurefin, $debut, $fin, $dimheure, $dimjour)
- calendrier_top ($heure, $debut, $fin, $dimheure, $dimjour);
$padding = floor(($dimheure / 3600) * 240);
$height = $height - (2* $padding + 2); // pour padding interieur
if ($height < ($dimheure/4)) $height = floor($dimheure/4); // eviter paves totalement ecrases
return $height;
}
///
/// init: calcul generique des evenements a partir des tables SQL
///
// http://doc.spip.org/@http_calendrier_init
function http_calendrier_init($time='', $type='mois', $echelle='', $partie_cal='', $script='', $evt=null)
{
if (is_array($time)) {
list($j,$m,$a) = $time;
if ($j+$m+$a) $time = @mktime(0,0,0, $m, $j, $a);
}
if (!is_numeric($time)) $time = time();
$jour = date("d",$time);
$mois = date("m",$time);
$annee = date("Y",$time);
if (!$echelle = intval($echelle)) $echelle = DEFAUT_D_ECHELLE;
if (!is_string($type) OR !preg_match('/^\w+$/', $type)) $type ='mois';
if (!is_string($partie_cal) OR !preg_match('/^\w+$/', $partie_cal))
$partie_cal = DEFAUT_PARTIE;
list($script, $ancre) =
calendrier_retire_args_ancre($script);
if (is_null($evt)) {
$g = 'quete_calendrier_' . $type;
$evt = quete_calendrier_interval($g($annee,$mois, $jour));
quete_calendrier_interval_articles("'$annee-$mois-00'", "'$annee-$mois-1'", $evt[0]);
// si on veut les forums, decommenter
# quete_calendrier_interval_forums($g($annee,$mois,$jour), $evt[0]);
}
$f = 'http_calendrier_' . $type;
if (!function_exists($f)) $f = 'http_calendrier_mois';
return $f($annee, $mois, $jour, $echelle, $partie_cal, $script, $ancre, $evt);
}
/// affichage d'un calendrier de mois, avec son bandeau de navigation
// http://doc.spip.org/@http_calendrier_mois
function http_calendrier_mois($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";
if (is_array($evt)) {
list($sansduree, $evenements, $premier_jour, $dernier_jour) = $evt;
if (!$premier_jour) $premier_jour = '01';
if (!$dernier_jour)
{
$dernier_jour = 31;
while (!(checkdate($mois,$dernier_jour,$annee))) $dernier_jour--;
}
if ($sansduree)
foreach($sansduree as $d => $r)
$evenements[$d] = !$evenements[$d] ? $r : array_merge($evenements[$d], $r);
$evt =
http_calendrier_mois_noms() .
http_calendrier_mois_sept($annee, $mois, $premier_jour, $dernier_jour,$evenements, $script, calendrier_retire_defaults($echelle, $partie_cal), $ancre) ;
} else {
$evt = "| $evt |
";
$premier_jour = '01';
$dernier_jour = '31';
}
$id = ($ancre ? $ancre : 'agenda') . "-nav";
return
"" .
"
" .
http_calendrier_mois_navigation($annee, $mois, $premier_jour, $dernier_jour, $echelle, $partie_cal, $script, $ancre) .
$evt .
'
' .
http_calendrier_sans_date($annee, $mois, $evenements) .
(!test_espace_prive() ? "" : http_calendrier_aide_mess()) .
"
" .
_T('date_jour_' . (($j%7)+1)) .
" | ";
}
return "\n$bandeau
";
}
/// dispose les lignes d'un calendrier de 7 colonnes (les jours)
/// chaque case est garnie avec les evenements du jour figurant dans $evenements
// http://doc.spip.org/@http_calendrier_mois_sept
function http_calendrier_mois_sept($annee, $mois, $premier_jour, $dernier_jour,$evenements, $script, $finurl, $ancre='')
{
global $spip_lang_left, $spip_lang_right;
// affichage du debut de semaine hors periode
$init = '';
$debut = date("w",mktime(1,1,1,$mois,$premier_jour,$annee));
for ($i=$debut ? $debut : 7;$i>1;$i--)
{$init .= "\n | ";}
$total = '';
$ligne = '';
$today=date("Ymd");
for ($j=$premier_jour; $j<=$dernier_jour; $j++){
$nom = mktime(1,1,1,$mois,$j,$annee);
$jour = date("d",$nom);
$jour_semaine = date("w",$nom);
$mois_en_cours = date("m",$nom);
$annee_en_cours = date("Y",$nom);
$amj = date("Y",$nom) . $mois_en_cours . $jour;
$couleur_texte = "black";
$fond = "";
if ($jour_semaine == 0) $fond = 'jour_dimanche ';
else if ($jour_semaine==1)
{
if ($ligne||$init)
$total .= "\n$init$ligne
";
$ligne = $init = '';
}
if ($amj == $today) {
$couleur_texte = "red";
$fond = "jour_encours ";
}
$res = (test_espace_prive() ?
(calendrier_href($script,$annee_en_cours, $mois_en_cours, $jour, "jour", $finurl, $ancre, '', $jour, 'calendrier-helvetica16', '', $jour, "color: $couleur_texte") .
http_calendrier_ics_message($annee_en_cours, $mois_en_cours, $jour, false)):
http_calendrier_mois_clics($annee_en_cours, $mois_en_cours, $jour, $script, $finurl, $ancre));
if ($evts = $evenements[$amj]) {
foreach ($evts as $evenement)
{
$res .= isset($evenement['DTSTART']) ?
http_calendrier_avec_heure($evenement, $amj) :
http_calendrier_sans_heure($evenement);
}
}
$fond .= $ligne ? "bordure_$spip_lang_right" :'bordure_double';
$d = sprintf('D%4d-%02d-%02d', $annee_en_cours,$mois_en_cours,$jour);
$ligne .= "\n$res | ";
}
return $total . ($ligne ? "\n$ligne
" : '');
}
/// Appelle la fonction precedente en sachant que ca produira 1 TD/TR unique.
/// retourne le contenu du TD
function http_calendrier_sept_un($annee, $mois, $jour,$evenements, $script, $finurl, $ancre='', $class='', $att='')
{
$res = http_calendrier_mois_sept($annee, $mois, $jour, $jour,$evenements, $script, $finurl, $ancre);
preg_match(',^\s*\s*]*>(.*?)\s*
\s*$,s', $res, $m);
return $m[1];
}
/// typo pour l'espace public
// http://doc.spip.org/@http_calendrier_mois_clics
function http_calendrier_mois_clics($annee, $mois, $jour, $script, $finurl, $ancre)
{
$d = mktime(0,0,0,$mois, $jour, $annee);
$semaine = date("W", $d);
$semaine = calendrier_href($script,$annee, $mois, $jour, "semaine", $finurl, $ancre,'',
(_T('date_semaines') . ": $semaine"),
'','', $semaine);
$jour = calendrier_href($script,$annee, $mois, $jour, "jour", $finurl, $ancre, '',
(_T('date_jour_'. (1+date('w',$d))) .
" $jour " .
_T('date_mois_'.(0+$mois))),
'', '',
"$jour/$mois");
return "$jour$semaine";
}
/// dispose les evenements d'une semaine
// http://doc.spip.org/@http_calendrier_semaine
function http_calendrier_semaine($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";
$finurl = calendrier_retire_defaults($echelle, $partie_cal);
$init = date("w",mktime(1,1,1,$mois,$jour,$annee));
$init = $jour+1-($init ? $init : 7);
$sd = '';
if (is_array($evt)) {
if ($partie_cal!= DEFAUT_PARTIE_R) {
$sd = http_calendrier_sans_date($annee, $mois, $evt[0]);
$evt = http_calendrier_semaine_sept($annee, $mois, $init, $echelle, $partie_cal, $evt);
} else {
list($sansduree, $evenements, , ) = $evt;
if ($sansduree)
foreach($sansduree as $d => $r)
$evenements[$d] = !$evenements[$d] ? $r : array_merge($evenements[$d], $r);
$evt = http_calendrier_mois_sept($annee, $mois, $init, $init+ 6, $evenements, $script, $finurl, $ancre);
}
} else $evt = "| $evt |
";
$id = ($ancre ? $ancre : 'agenda') . "-nav";
return
"" .
"
" .
http_calendrier_semaine_navigation($annee, $mois, $init, $echelle, $partie_cal, $script, $ancre) .
http_calendrier_semaine_noms($annee, $mois, $init, $script, $finurl, $ancre) .
$evt .
"
" .
$sd .
(!test_espace_prive() ? "" : http_calendrier_aide_mess()) .
"
" .
calendrier_href($script, date("Y",$nom), $numois, $num, 'jour', $finurl, $ancre, '', $clic, '', '', $clic) .
" | ";
}
return "\n$bandeau
";
}
// http://doc.spip.org/@http_calendrier_semaine_sept
function http_calendrier_semaine_sept($annee, $mois, $jour, $echelle, $partie_cal, $evt)
{
global $spip_ecran, $spip_lang_left;
$largeur = ($spip_ecran == "large") ? 80 : 60;
$today=date("Ymd");
$total = '';
for ($j=$jour; $j<$jour+7;$j++){
$d = mktime(0,0,0,$mois, $j, $annee);
$v = http_calendrier_ics($annee, $mois, $j, $echelle, $partie_cal, $largeur, $evt, '', ( (date("w",$d)==0 && test_espace_prive()) ?
" jour_dimanche" :
((date("Ymd", $d) == $today) ?
" jour_encours" :
" jour_gris") ) ) ;
$d = sprintf('D%4d-%02d-%02d', $annee,$mois,$j);
$total .= "\n$v | ";
}
return "\n$total
";
}
// http://doc.spip.org/@http_calendrier_jour
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
"" .
"
" .
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) ? ("| $evt |
") :
(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))) .
"
" .
"
| $c | | " .
("\n " .
http_calendrier_ics_message($annee, $mois, $jour, true) .
' ') .
" | | " .
http_calendrier_ics_titre($annee,$mois,$jour+1,$script, $finurl, $ancre) .
" |
|---|
";
}
// http://doc.spip.org/@http_calendrier_jour_sept
function http_calendrier_jour_sept($annee, $mois, $jour, $echelle, $partie_cal, $script, $ancre, $evt){
global $spip_ecran;
$gauche = (test_espace_prive() AND ($spip_ecran == "large"));
if ($partie_cal!= DEFAUT_PARTIE_R) {
$gauche = !$gauche ? '' : http_calendrier_ics($annee, $mois, $jour-1, $echelle, $partie_cal, 0, $evt);
$mil = http_calendrier_ics($annee, $mois, $jour, $echelle, $partie_cal, 300, $evt);
$droite = (!test_espace_prive() ? '':
http_calendrier_ics($annee, $mois, $jour+1, $echelle, $partie_cal, 0, $evt));
} else {
list($sansduree, $evenements, $premier_jour, $dernier_jour) = $evt;
if ($sansduree)
foreach($sansduree as $d => $r)
$evenements[$d] = !$evenements[$d] ? $r : array_merge($evenements[$d], $r);
$gauche = (!$gauche ? "" :
http_calendrier_sept_un($annee, $mois, $jour-1, $evenements, $script, '', $ancre)
);
$mil = http_calendrier_sept_un($annee, $mois, $jour, $evenements, $script, '', $ancre);
$droite = (!test_espace_prive() ? "" :http_calendrier_sept_un($annee, $mois, $jour+1,$evenements, $script, '', $ancre));
}
$d = sprintf('D%4d-%02d-%02d', $annee,$mois,$jour);
if (!test_espace_prive())
return "| $mil |
";
$gauche = !$gauche ? "" : " | $gauche | | ";
return " | $gauche$mil | $droite |
";
}
/// Conversion d'un tableau de champ ics en des balises div positionnees
/// Le champ categories indique la Classe de CSS a prendre
/// $echelle est le nombre de secondes representees par 1 pixel
/// $partie_cal donne l'intervalle des heures affichee
/// a travers la globale calendrier_partie ou sous la forme D_F
// http://doc.spip.org/@http_calendrier_ics
function http_calendrier_ics($annee, $mois, $jour, $echelle, $partie_cal, $largeur, $evt, $style='', $class='') {
global $spip_lang_left;
if (is_array($GLOBALS['calendrier_partie'][$partie_cal])) {
$debut = $GLOBALS['calendrier_partie'][$partie_cal]['debut'];
$fin = $GLOBALS['calendrier_partie'][$partie_cal]['fin'];
} elseif (preg_match('/^(\d+)\D(\d+)$/', $partie_cal, $m))
list(,$debut, $fin) = $m;
else {
$debut = 7;
$fin =21;
}
if ($echelle==0) $echelle = DEFAUT_D_ECHELLE;
list($dimheure, $dimjour, $fontsize, $padding) =
calendrier_echelle($debut, $fin, $echelle);
$size = sprintf("%0.2f", DEFAUT_TAILLE_HEURE+(10/$echelle));
$style .= "height:${dimjour}px;font-size:${size}em;";
$date = date("Ymd", mktime(0,0,0,$mois, $jour, $annee));
$avecheure = !isset($evt[1][$date]) ? '' : http_calendrier_ics_div($evt[1][$date], $date, $debut, $fin, $dimheure, $dimjour, $echelle, $largeur, $padding);
$sansheure = !isset($evt[0][$date]) ? '' : http_calendrier_ics_trois($evt[0][$date], $largeur, $dimjour, $fontsize, '');
return
"\n" .
http_calendrier_ics_grille($debut, $fin, $dimheure, $dimjour, $echelle) .
$avecheure .
"\n
" .
$sansheure;
}
function http_calendrier_ics_div($evts, $date, $debut, $fin, $dimheure, $dimjour, $echelle, $largeur, $padding)
{
global $spip_lang_left;
$total = '';
$tous = 1 + count($evts);
$i = $bas_prec = 0;
foreach($evts as $evenement) {
$d = $evenement['DTSTART'];
$e = $evenement['DTEND'];
$d_jour = substr($d,0,8);
$e_jour = $e ? substr($e,0,8) : $d_jour;
$debut_avant = false;
$fin_apres = false;
if ($d_jour > $date OR $e_jour < $date) continue;
$i++;
// Verifier si debut est jour precedent
if (substr($d,0,8) < $date)
{
$heure_debut = 0; $minutes_debut = 0;
$debut_avant = true;
$radius_top = "";
}
else
{
$heure_debut = substr($d,-6,2);
$minutes_debut = substr($d,-4,2);
}
if (!$e)
{
$heure_fin = $heure_debut ;
$minutes_fin = $minutes_debut ;
$bordure = "border-bottom: dashed 2px";
}
else
{
$bordure = "";
if (substr($e,0,8) > $date)
{
$heure_fin = 23; $minutes_fin = 59;
$fin_apres = true;
$radius_bottom = "";
}
else
{
$heure_fin = substr($e,-6,2);
$minutes_fin = substr($e,-4,2);
}
}
$opacity = ($debut_avant && $fin_apres) ? "calendrier-opacity60" : "";
$haut = calendrier_top ("$heure_debut:$minutes_debut", $debut, $fin, $dimheure, $dimjour);
$bas = !$e ? $haut :calendrier_top ("$heure_fin:$minutes_fin", $debut, $fin, $dimheure, $dimjour);
$hauteur = calendrier_height ("$heure_debut:$minutes_debut", "$heure_fin:$minutes_fin", $debut, $fin, $dimheure, $dimjour);
if ($bas_prec >= $haut) $decale += 1;
else $decale = DEFAUT_DECALE -
(($echelle >= DEFAUT_D_ECHELLE) ? 0 : 1);
if ($bas > $bas_prec) $bas_prec = $bas;
$colors = $evenement['CATEGORIES'];
$url = isset($evenement['URL']) ? $evenement['URL'] : '';
$desc = PtoBR(propre($evenement['DESCRIPTION']));
$perso = construire_personne_ics($evenement['ATTENDEE']);
$lieu = isset($evenement['LOCATION']) ? $evenement['LOCATION'] : '';
$sum = typo($evenement['SUMMARY']);
if (!$sum) { $sum = $desc; $desc = '';}
if (!$sum) { $sum = $lieu; $lieu = '';}
if (!$sum) { $sum = textebrut($perso);}
if ($sum) {
if ($url)
$sum = http_href(quote_amp($url), $sum, attribut_html($desc), '', "calendrier-summary calendrier-url $colors");
else $sum = "$sum";
}
if (($largeur > 90) && $desc)
$sum .= "\n
$desc";
if ($lieu)
$sum .= "\n$lieu";
if ($perso AND $perso != $sum)
$sum .= "\n$perso";
$sum = pipeline('agenda_rendu_evenement',array('args'=>array('evenement'=>$evenement,'type'=>'ics'),'data'=>$sum));
$width = $largeur - ($padding<<1) - DEFAUT_DECALE;
$fontsize = sprintf("%0.2f", 1+(10/$echelle));
$style = "z-index:${i};${spip_lang_left}:${decale}em;top:${haut}px;height:${hauteur}px;width:${width}px;font-size:${fontsize}em;padding:${padding}px;$bordure";
$total .= "\n" .
$sum .
"
";
}
return $total;
}
/// Affiche une grille horaire
/// Selon l'echelle demandee, on affiche heure, 1/2 heure 1/4 heure, 5minutes.
// http://doc.spip.org/@http_calendrier_ics_grille
function http_calendrier_ics_grille($debut, $fin, $dimheure, $dimjour, $echelle)
{
global $spip_lang_left, $spip_lang_right;
$size = floor(14 / (1+($echelle/240)));
$slice = floor($dimheure/(2*$size));
if ($slice%2) $slice --;
if (!$slice) $slice = 1;
$total = '';
for ($i = $debut; $i < $fin; $i++) {
$k = "$i:00";
$n = calendrier_top ($k, $debut, $fin, $dimheure, $dimjour);
$total .= "\n$k";
for ($j=1; $j < $slice; $j++)
{
$k = $i .':' . sprintf("%02d",floor(($j*60)/$slice));
$n = calendrier_top ($k, $debut, $fin, $dimheure, $dimjour);
$total .= "\n$k";
}
}
$n = calendrier_top ("$fin:00", $debut, $fin, $dimheure, $dimjour);
$c = ($dimjour - $size - 2);
return "\n0:00" .
$total .
"\n$fin:00" .
"\n23:59";
}
/// si la largeur le permet, les evenements sans duree,
/// se placent a cote des autres, sinon en dessous
// http://doc.spip.org/@http_calendrier_ics_trois
function http_calendrier_ics_trois($evt, $largeur, $dimjour, $echelle, $border)
{
global $spip_lang_left;
$types = array();
foreach($evt as $v)
$types[isset($v['DESCRIPTION']) ? 'info_articles' :
(isset($v['DTSTART']) ? 'info_liens_syndiques_3' :
'info_breves_02')][] = $v;
$res = '';
foreach ($types as $k => $v) {
$res2 = '';
foreach ($v as $evenement) {
$res2 .= http_calendrier_sans_heure($evenement);
}
$res .= "\n".
_T($k) .
"
" .
$res2;
}
$size = floor(14 / (1+($echelle/240)));
if ($largeur > 90) {
$largeur += (5*$size);
$pos = "-$dimjour";
} else { $largeur = (3*$size); $pos= 0; }
return "\n$res
";
}
// http://doc.spip.org/@http_calendrier_ics_titre
function http_calendrier_ics_titre($annee, $mois, $jour,$script, $finurl='', $ancre='')
{
$date = mktime(0,0,0,$mois, $jour, $annee);
$jour = date("d",$date);
$mois = date("m",$date);
$annee = date("Y",$date);
$nom = affdate_jourcourt("$annee-$mois-$jour");
return "" .
calendrier_href($script, $annee, $mois, $jour, 'jour', $finurl, $ancre, '', $nom, 'calendrier-noir','',$nom) .
"
";
}
// http://doc.spip.org/@http_calendrier_sans_date
function http_calendrier_sans_date($annee, $mois, $evenements)
{
$r = $evenements[0+($annee . $mois . "00")];
if (!$r) return "";
$res = "\n".
_T('info_mois_courant').
"
";
foreach ($r as $evenement) $res .= http_calendrier_sans_heure($evenement);
return $res;
}
// http://doc.spip.org/@http_calendrier_sans_heure
function http_calendrier_sans_heure($ev)
{
$desc = PtoBR(propre($ev['DESCRIPTION']));
$sum = typo($ev['SUMMARY']);
if (!$sum) $sum = $desc;
$i = isset($ev['DESCRIPTION']) ? 11 : 9; // 11: article; 9:autre
if ($ev['URL'])
$sum = http_href(quote_amp($ev['URL']), $sum, attribut_html($desc));
$sum = pipeline('agenda_rendu_evenement',array('args'=>array('evenement'=>$ev,'type'=>'sans_heure'),'data'=>$sum));
return "\n" .
" $sum
";
}
// http://doc.spip.org/@http_calendrier_avec_heure
function http_calendrier_avec_heure($evenement, $amj)
{
$jour_debut = substr($evenement['DTSTART'], 0,8);
$jour_fin = substr($evenement['DTEND'], 0, 8);
if ($jour_fin <= 0) $jour_fin = $jour_debut;
if (($jour_debut <= 0) OR ($jour_debut > $amj) OR ($jour_fin < $amj))
return "";
$desc = PtoBR(propre($evenement['DESCRIPTION']));
$sum = $evenement['SUMMARY'];
$u = $GLOBALS['meta']['pcre_u'];
$sum = typo($sum);
if (!$sum) $sum = $desc;
if ($lieu = $evenement['LOCATION'])
$sum .= '
' . $lieu;
if ($perso = construire_personne_ics($evenement['ATTENDEE']))
$sum .= '
' . $perso;
if ($evenement['URL'])
$sum = http_href(quote_amp($evenement['URL']), $sum, attribut_html($desc), 'border: 0');
$sum = pipeline('agenda_rendu_evenement',array('args'=>array('evenement'=>$evenement,'type'=>'avec_heure'),'data'=>$sum));
$deb_h = substr($evenement['DTSTART'],-6,2);
$deb_m = substr($evenement['DTSTART'],-4,2);
$fin_h = substr($evenement['DTEND'],-6,2);
$fin_m = substr($evenement['DTEND'],-4,2);
$opacity = $evenement['CATEGORIES'];
if ($amj != $jour_debut AND $amj != $jour_fin) {
$opacity .= ' calendrier-opacity';
} else {
if ($deb_h >0 OR $deb_m > 0) {
if ((($deb_h > 0) OR ($deb_m > 0)) AND $amj == $jour_debut)
{ $deb = $deb_h . ':' . $deb_m;}
else {
$deb = '...';
}
if ((($fin_h > 0) OR ($fin_m > 0)) AND $amj == $jour_fin)
{ $fin = $fin_h . ':' . $fin_m;}
else {
$fin = '...';
}
$sum = "$deb-$fin
$sum";
}
}
return "\n$sum\n
\n";
}
/// Gestion du champ ATTENDEE.
/// On admet un ID ou un mail, ou un tableau de ces choses.
/// Si c'est un ID, on va chercher le mail dans la table des auteurs,
/// a defaut le nom.
/// Dans les deux cas, si on a bien un mail, on place le pseudo-protocole mailto
function construire_personne_ics($personnes)
{
$r = is_array($personnes) ? $personnes : array($personnes);
foreach ($r as $k => $p) {
if (!is_numeric($p)) {
$mail = email_valide($p);
if (preg_match('/^[^@]+/', $mail, $m))
$r[$k] = preg_replace('/[.]/', ' ', $m[0]);
} else {
$m = sql_fetsel("email, nom", 'spip_auteurs', "id_auteur=$p");
if ($m) {
$mail = $m['email'];
$r[$k] = $m['nom'] ? $m['nom'] : ($mail ? $mail : $p);
}
}
if ($mail)
$r[$k] = "" . $r[$k] . "";
}
return join(' ', $r);
}
/// fabrique un agenda sur 3 mois.
/// fonction appelee par le filtre agenda_affiche du squelette agenda_trimestre,
/// lui-meme issu d'un Ajax construit par la fonction http_calendrier_navigation,
/// qui fournit via $self la query-string de l'appel anterieur.
/// Celle-ci est vide sur les squelettes agenda std cependant.
function http_calendrier_trimestre($annee, $mois, $jour, $echelle, $partie_cal, $self, $ancre, $evt)
{
global $spip_lang_right, $spip_lang_left, $spip_ecran;
if (!isset($spip_ecran)) $spip_ecran = isset($_COOKIE['spip_ecran']) ? $_COOKIE['spip_ecran'] : "large";
$script = preg_match('/\bscript=(\w+)/', $self, $m) ? $m[1]:'';
$script = (preg_match('/\bprive=(.)/', $self, $m) ? $m[1] : 0)
? generer_url_ecrire($script) : generer_url_public($script);
$fin = preg_replace('/^.*[?]page=agenda_trimestre/', '', $self)
. calendrier_retire_defaults($echelle, $partie_cal);
$res = "\n| ";
$annee_avant = $annee - 1;
$annee_apres = $annee + 1;
for ($i=$mois; $i < 13; $i++) {
$nom = nom_mois("$annee_avant-$i-1");
$res .= calendrier_href($script,$annee_avant, $i, 1, "mois", $fin, $ancre,'', ($nom . ' ' . $annee_avant), 'calendrier-annee','', $nom) ;
}
for ($i=1; $i < $mois - 1; $i++) {
$nom = nom_mois("$annee-$i-1");
$res .= calendrier_href($script,$annee, $i, 1, "mois", $fin, $ancre,'',($nom . ' ' . $annee),'calendrier-annee','', $nom);
}
$script .= $fin ; // http_calendrier_agenda devrait avoir cet arg en +
$res .= " |
"
. "\n| "
. http_calendrier_agenda($annee, $mois-1, $jour, $mois, $annee, $GLOBALS['afficher_bandeau_calendrier_semaine'], $script,$ancre)
. " | \n"
. http_calendrier_agenda($annee, $mois, $jour, $mois, $annee, $GLOBALS['afficher_bandeau_calendrier_semaine'], $script,$ancre)
. " | \n"
. http_calendrier_agenda($annee, $mois+1, $jour, $mois, $annee, $GLOBALS['afficher_bandeau_calendrier_semaine'], $script,$ancre)
. " | "
. "
"
. "\n| ";
for ($i=$mois+2; $i <= 12; $i++) {
$nom = nom_mois("$annee-$i-1");
$res .= calendrier_href($script, $annee, $i, 1, "mois", $fin, $ancre,'',$nom . ' ' . $annee, 'calendrier-annee','', $nom);
}
for ($i=1; $i < $mois+1; $i++) {
$nom = nom_mois("$annee_apres-$i-1");
$res .= calendrier_href($script, $annee_apres, $i, 1, "mois", $fin, $ancre,'',$nom . ' ' . $annee_apres, 'calendrier-annee','',$nom);
}
$res .= " |
";
$id = ($ancre ? $ancre : 'agenda') . "-nav";
return
"";
}
/// Bandeau superieur d'un calendrier selon son $type (jour/mois/annee):
/// 2(+1) icones vers les 2 autres types, a la meme date $jour $mois $annee
/// 2 icones de loupes pour zoom sur la meme date et le meme type
/// 4 icones de selection de demi-journees, idem
/// 2 fleches appelant le $script sur les periodes $pred/$suiv avec une $ancre
/// 1 icone pour amener sur aujourd'hui au clic, et donner un triple agenda au survol
/// et le $nom du calendrier
// http://doc.spip.org/@http_calendrier_navigation
function http_calendrier_navigation($annee, $mois, $jour, $echelle, $partie_cal, $nom, $script, $args_pred, $args_suiv, $type, $ancre)
{
global $spip_lang_right, $spip_lang_left;
if (!$echelle) $echelle = DEFAUT_D_ECHELLE;
$arg_echelle = ($echelle != DEFAUT_D_ECHELLE) ? "&echelle=$echelle" : '';
$arg_partie = ($partie_cal != DEFAUT_PARTIE) ? "&partie_cal=$partie_cal" : '';
if ($args_pred) {
list($a, $m, $j, $t) = $args_pred;
$args_pred = calendrier_href($script, $a, $m, $j, $t, "$arg_echelle$arg_partie", $ancre,
"fleche-$spip_lang_left.png",
_T('precedent'),
'calendrier-png',
'<<<');
}
if ($args_suiv) {
list($a, $m, $j, $t) = $args_suiv;
$args_suiv = calendrier_href($script, $a, $m, $j, $t, "$arg_echelle$arg_partie", $ancre,
"fleche-$spip_lang_right.png",
_T('suivant'),
'calendrier-png',
'>>>');
}
$today = getdate(time());
$jour_today = $today["mday"];
$mois_today = $today["mon"];
$annee_today = $today["year"];
if (preg_match('/[?&;](exec=(\w+)(&(amp;)?)?)/', $script, $regs)) {
$page = $regs[2]; $prive = 1; $raz = $regs[1];
} elseif (preg_match('/[?&;](page=(\w+)(&(amp;)?)?)/', $script, $regs)) {
$page = $regs[2]; $prive = 0; $raz = $regs[1];
} else $page = $prive = $raz = '';
$href = generer_url_public('agenda_trimestre', substr(str_replace($raz, '', $script), strpos($script, '?')+1));
$href = parametre_url($href, 'script', $page);
$href = parametre_url($href, 'prive', $prive);
$href = parametre_url($href, 'ancre', $ancre);
$href = calendrier_args_date($href, $annee, $mois, $jour, '', "$arg_echelle" . ((DEFAUT_PARTIE == DEFAUT_PARTIE_R) ? '' : ("&partie_cal=" . DEFAUT_PARTIE_R)));
$id = ($ancre ? $ancre : 'agenda') . "-nav";
$onmouseover = "if (!this.trimestre)\n{this.trimestre=!charger_node_url('$href', document.getElementById('$id'));}\n;$('#$id').css('visibility','visible').show();";
return
"\n"
. "\n"
. calendrier_href($script,$annee_today, $mois_today, $jour_today, $type, "$arg_echelle$arg_partie", $ancre,
"cal-today.gif",
_T("ecrire:info_aujourdhui"),
(($annee == $annee_today && $mois == $mois_today && (($type == 'mois') || ($jour == $jour_today)))
? "calendrier-opacity" : ""),
'','','',
("\nonmouseover=\"$onmouseover\"" ))
. " "
. $args_pred
. $args_suiv
. " "
. $nom
. (!test_espace_prive() ? '' : aide("messcalen"))
. ""
. " \n" // Sans "nbsp" Safari (5.1) n'affiche aucun des 2 span !!
. ""
. (($type == "mois") ? '' :
calendrier_navigation_heures($annee, $mois, $jour, $echelle, $partie_cal, $script, $type, $ancre))
. calendrier_navigation_type($annee, $mois, $jour, "$arg_echelle$arg_partie", $script, $type)
. "";
}
/// Bloc de navigation pour zoom sur les heures
function calendrier_navigation_heures($annee, $mois, $jour, $echelle, $partie_cal, $script, $type, $ancre)
{
return
calendrier_href($script, $annee, $mois, $jour, $type, calendrier_retire_defaults($echelle, DEFAUT_PARTIE_R), $ancre,
"sans-heure.gif",
_T('sans_heure'),
"calendrier-png" .
(($partie_cal == DEFAUT_PARTIE_R) ? " calendrier-opacity" : ""))
. calendrier_href($script, $annee, $mois, $jour, $type, calendrier_retire_defaults($echelle, DEFAUT_PARTIE_T), $ancre,
"heures-tout.png",
_T('cal_jour_entier'),
"calendrier-png" .
(($partie_cal == DEFAUT_PARTIE_T) ? " calendrier-opacity" : ""))
. calendrier_href($script, $annee, $mois, $jour, $type, calendrier_retire_defaults($echelle, DEFAUT_PARTIE_M), $ancre,
"heures-am.png",
_T('cal_matin'),
"calendrier-png" .
(($partie_cal == DEFAUT_PARTIE_M) ? " calendrier-opacity" : ""))
. calendrier_href($script, $annee, $mois, $jour, $type, calendrier_retire_defaults($echelle, DEFAUT_PARTIE_S), $ancre,
"heures-pm.png",
_T('cal_apresmidi'),
"calendrier-png" .
(($partie_cal == DEFAUT_PARTIE_S) ? " calendrier-opacity" : ""))
. " "
. calendrier_href($script, $annee, $mois, $jour, $type, calendrier_retire_defaults(floor($echelle * 1.5), $partie_cal),
$ancre,
"loupe-moins.gif",
_T('info_zoom'). '-')
. calendrier_href($script, $annee, $mois, $jour, $type, calendrier_retire_defaults(floor($echelle / 1.5), $partie_cal),
$ancre,
"loupe-plus.gif",
_T('info_zoom'). '+')
;
}
/// Bloc de navigation sur le type mois/semaine/jour
function calendrier_navigation_type($annee, $mois, $jour, $finurl, $script, $type)
{
return
calendrier_href($script,$annee, $mois, $jour, "jour", "$arg_echelle$arg_partie", $ancre,"cal-jour.gif",
_T('cal_par_jour'),
(($type == 'jour') ? " calendrier-opacity" : ''))
. calendrier_href($script,$annee, $mois, $jour, "semaine", "$arg_echelle$arg_partie", $ancre, "cal-semaine.gif",
_T('cal_par_semaine'),
(($type == 'semaine') ? " calendrier-opacity" : "" ))
. calendrier_href($script,$annee, $mois, $jour, "mois", "$arg_echelle$arg_partie", $ancre,"cal-mois.gif",
_T('cal_par_mois'),
(($type == 'mois') ? "calendrier-opacity" : "" ));
}
/// agenda mensuel
// http://doc.spip.org/@http_calendrier_agenda
function http_calendrier_agenda ($annee, $mois, $jour_ved, $mois_ved, $annee_ved, $semaine = false, $script='', $ancre='', $evt='') {
if (!$script) $script = $GLOBALS['PHP_SELF'] ;
if (!$mois) {$mois = 12; $annee--;}
elseif ($mois==13) {$mois = 1; $annee++;}
if (!$evt) $evt = quete_calendrier_agenda($annee, $mois);
$nom = affdate_mois_annee("$annee-$mois-1");
return
"" .
calendrier_href($script, $annee, $mois, 1, 'mois', '', $ancre,'', $nom,'','', $nom,'color: black;') .
"
" .
http_calendrier_agenda_rv ($annee, $mois, $evt,
'calendrier_href', $script, $ancre,
$jour_ved, $mois_ved, $annee_ved,
$semaine) .
"
" .
"
| ";
for ($j=1; (checkdate($mois,$j,$annee)); $j++) {
$class = 'calendrier-agenda-abb11';
$nom = mktime(1,1,1,$mois,$j,$annee);
$jour_semaine = date("w",$nom);
$title = "$j-$mois-$annee";
if ($jour_semaine==0) $jour_semaine=7;
if ($j == $jour_ved AND $mois == $mois_ved AND $annee == $annee_ved) {
$type = 'jour';
} else if ($semaine AND $nom >= $debut AND $nom <= $fin) {
$class .=
(($jour_semaine==1) ? " calendrier-$spip_lang_left" :
(($jour_semaine==7) ? " calendrier-$spip_lang_right" :
''));
$type = ($semaine ? 'semaine' : 'jour') ;
} else {
if ($j == $jour_today AND $cemois) {
$toile = ' jour_encours';
} else {
if ($jour_semaine == 7) {
$toile = " jour_dimanche";
} else {
$toile = ' jour_gris';
}
if (isset($les_rv[$j])) {
$toile = " jour_pris$toile";
$title = textebrut($les_rv[$j]['SUMMARY']);
}
}
$class .= $toile;
$type = ($semaine ? 'semaine' : 'jour') ;
}
$corps = $fclic($script, $annee, $mois, $j,$type, '', $ancre,'', $title ,'','', $j);
$ligne .= "\n$corps | ";
if ($jour_semaine==7)
{
if ($ligne) $total .= "\n$ligne
";
$ligne = '';
}
}
return $total . (!$ligne ? '' : "\n$ligne
");
}
/// Fonctions pour la messagerie, la page d'accueil et les gadgets
// http://doc.spip.org/@http_calendrier_messages
function http_calendrier_messages($annee='', $mois='', $jour='', $heures='', $partie_cal='', $echelle='')
{
$evtm = quete_calendrier_agenda($annee, $mois);
if ($evtm OR !$heures)
$evtm = http_calendrier_agenda($annee, $mois, $jour, $mois, $annee, false, generer_url_ecrire('calendrier'), '', $evtm);
else $evtm= '';
$evtt = http_calendrier_rv(quete_calendrier_taches_annonces(),"annonces")
. http_calendrier_rv(quete_calendrier_taches_pb(),"pb")
. http_calendrier_rv(quete_calendrier_taches_rv(), "rv");
$evtr= '';
if ($heures) {
$date = date("$annee-$mois-$jour");
$datef = "'$date $heures'";
if ($heures = quete_calendrier_interval_rv("'$date'", $datef))
$evtr = http_calendrier_ics_titre($annee,$mois,$jour,generer_url_ecrire('calendrier')) . http_calendrier_ics($annee, $mois, $jour, $echelle, $partie_cal, 90, array('', $heures), '', ' calendrier-msg');
}
return array($evtm, $evtt, $evtr);
}
// http://doc.spip.org/@http_calendrier_rv
function http_calendrier_rv($messages, $type) {
$total = $date_rv = '';
if (!$messages) return $total;
$connect_quand = $GLOBALS['visiteur_session']['quand'];
foreach ($messages as $row) {
$rv = ($row['location'] == 'oui');
$date = $row['dtstart'];
$date_fin = $row['dtend'];
if ($row['category']=="pb") $bouton = "pense-bete";
else if ($row['category']=="affich") $bouton = "annonce";
else $bouton = "message";
if ($rv) {
$date_jour = affdate_jourcourt($date);
$total .= "| " .
(($date_jour == $date_rv) ? '' :
"\n $date_jour ") .
" |
";
$date_rv = $date_jour;
$rv =
((affdate($date) == affdate($date_fin)) ?
("\n"
. heures($date).":".minutes($date)."
"
. heures($date_fin).":".minutes($date_fin)."
") :
( "\n"
. heures($date).":".minutes($date)."
...
" ));
}
$c = (strtotime($date) <= $connect_quand) ? '' : " color: red;";
$total .= "| " .
http_href($row['url'],
($rv ?
http_img_pack("rv.gif", 'rv',
http_style_background($bouton . '.gif', "no-repeat;")) :
http_img_pack($bouton.".gif", $bouton, ""))) .
" | \n" .
"" .
$rv .
http_href($row['url'], typo($row['summary']), '', '', 'calendrier-verdana') .
" |
";
}
if ($type == 'annonces') {
$titre = _T('info_annonces_generales');
}
else if ($type == 'pb') {
$titre = _T('infos_vos_pense_bete');
}
else if ($type == 'rv') {
$titre = _T('info_vos_rendez_vous');
}
return
debut_cadre_enfonce("", true, "", $titre) .
"\n" .
fin_cadre_enfonce(true);
}
// http://doc.spip.org/@calendrier_categories
function calendrier_categories($table, $num, $objet)
{
if (function_exists('generer_calendrier_class'))
return generer_calendrier_class($table, $num, $objet);
else {
// cf agenda.css
$num= sql_getfetsel((($objet != 'id_breve') ? 'id_secteur' : 'id_rubrique') . " AS id", $table, "$objet=$num");
return 'calendrier-couleur' . (($num%14)+1);
}
}
// http://doc.spip.org/@http_calendrier_ics_message
function http_calendrier_ics_message($annee, $mois, $jour, $large)
{
if (!autoriser('ecrire')) return '';
$b = _T("lien_nouvea_pense_bete");
$v = _T("lien_nouveau_message");
$j= _T("lien_nouvelle_annonce");
return " " .
http_href(generer_action_auteur("editer_message","pb/$annee-$mois-$jour"),
($large ? $b : ' '),
attribut_html($b),
'color: blue;',
'calendrier-arial10 pense-bete') .
"\n" .
http_href(generer_action_auteur("editer_message","normal/$annee-$mois-$jour"),
($large ? $v : ' '),
attribut_html($v),
'color: green;',
'calendrier-arial10 message') .
(($GLOBALS['connect_statut'] != "0minirezo") ? "" :
("\n" .
http_href(generer_action_auteur("editer_message","affich/$annee-$mois-$jour"),
($large ? $j : ' '),
attribut_html($j),
'color: #ff9900;',
'calendrier-arial10 annonce')));
}
// http://doc.spip.org/@http_calendrier_aide_mess
function http_calendrier_aide_mess()
{
global $spip_lang_left;
if (!autoriser('ecrire')) return '';
return
"\n
" .
"\n" .
"
" . _T('info_aide'). "" .
"
" ._T('info_symbole_bleu')."\n
" .
"
" . _T('info_symbole_vert')."\n
" .
"
" . _T('info_symbole_jaune')."\n
" .
"