3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2020 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11 \***************************************************************************/
14 * Fonctions de quêtes pour les calendriers : obtient les listes
15 * des éléments à afficher dans des périodes données
17 * @package SPIP\Organiseur\Fonctions
20 if (!defined('_ECRIRE_INC_VERSION')) {
24 include_spip('inc/filtres');
28 * Retourne un nom de classe CSS représentant la catégorie de l'événement
31 * S'appuie soit sur une fonction PHP `generer_calendrier_class()` si elle
32 * existe, soit à défaut sur le numéro de rubrique.
34 * @param string $table
35 * Nom de la table SQL d'où provient l'événement
37 * Identifiant dans la table
38 * @param string $objet
39 * Nom de la clé primaire
43 function calendrier_categories($table, $num, $objet) {
44 if (function_exists('generer_calendrier_class')) {
45 return generer_calendrier_class($table, $num, $objet);
48 $num = sql_getfetsel((($objet != 'id_breve') ?
'id_secteur' : 'id_rubrique') . ' AS id', $table, "$objet=$num");
50 return 'calendrier-couleur' . (($num %
14) +
1);
55 * Pour une date donnée, retourne une période allant de la veille au lendemain
61 * Liste (date de la veille à 0h, date du lendemain à 23h59:59)
63 function quete_calendrier_jour($annee, $mois, $jour) {
64 $avant = "'" . date('Y-m-d', mktime(0, 0, 0, $mois, $jour - 1, $annee)) . "'";
65 $apres = "'" . date('Y-m-d', mktime(1, 1, 1, $mois, $jour +
1, $annee)) .
68 return array($avant, $apres);
73 * Retourne les publications et les messages pour une période donnée
75 * Retourne un tableau de 2 tableaux indéxés par des dates :
76 * - le premier indique les événements du jour, sans indication de durée
77 * (par exemple les publications d'articles)
78 * - le deuxième indique les événements commençant ce jour, avec indication de durée
79 * (par exemple les rendez-vous)
81 * @uses quete_calendrier_interval_articles()
82 * @uses quete_calendrier_interval_breves()
83 * @uses quete_calendrier_interval_rubriques()
84 * @uses quete_calendrier_interval_rv()
86 * @param array $limites
87 * Liste (date de début, date de fin)
89 * Liste (événements sans durée, événements avec durée)
91 function quete_calendrier_interval($limites) {
92 include_spip('inc/urls');
93 list($avant, $apres) = $limites;
95 quete_calendrier_interval_articles($avant, $apres, $evt);
96 quete_calendrier_interval_breves($avant, $apres, $evt);
97 quete_calendrier_interval_rubriques($avant, $apres, $evt);
99 return array($evt, quete_calendrier_interval_rv($avant, $apres));
102 # 4 fonctions retournant les evenements d'une periode
103 # le tableau retourne est indexe par les balises du format ics
104 # afin qu'il soit facile de produire de tels documents.
105 # L'URL de chacun de ces evenements est celle de l'espace prive
106 # pour faciliter la navigation, ce qu'on obtient utilisant
107 # le 4e argument des fonctions generer_url_ecrire_$table
110 * Retourne la liste des messages de forum (format ICS) écrits dans une période donnée
112 * @param array $limites
113 * Liste (date de début, date de fin)
114 * @param array $evenements
115 * Tableau des événements déjà présents qui sera complété par la fonction.
116 * Format : `$evenements[$amj][] = Tableau de description ICS`
118 function quete_calendrier_interval_forums($limites, &$evenements) {
119 list($avant, $apres) = $limites;
120 $result = sql_select(
121 'DISTINCT titre, date_heure, id_forum',
123 "date_heure >= $avant AND date_heure < $apres",
127 while ($row = sql_fetch($result)) {
128 $amj = date_anneemoisjour($row['date_heure']);
129 $id = $row['id_forum'];
130 if (autoriser('voir', 'forum', $id)) {
131 $evenements[$amj][] =
133 'URL' => generer_url_entite($id, 'forum'),
134 'CATEGORIES' => 'calendrier-couleur7',
135 'SUMMARY' => $row['titre'],
136 'DTSTART' => date_ical($row['date_heure'])
143 * Retourne la liste des articles (format ICS) publiés dans une période donnée
145 * @param string $avant
147 * @param string $apres
149 * @param array $evenements
150 * Tableau des événements déjà présents qui sera complété par la fonction.
151 * Format : `$evenements[$amj][] = Tableau de description ICS`
153 function quete_calendrier_interval_articles($avant, $apres, &$evenements) {
155 $result = sql_select(
156 'id_article, titre, date, descriptif, chapo, lang',
158 "statut='publie' AND date >= $avant AND date < $apres",
164 $objets = explode(',', $GLOBALS['meta']['multi_objets']);
166 if (in_array('spip_articles', $objets)) {
167 include_spip('inc/lang_liste');
168 $langues = $GLOBALS['codes_langues'];
173 while ($row = sql_fetch($result)) {
174 $amj = date_anneemoisjour($row['date']);
175 $id = $row['id_article'];
176 if (autoriser('voir', 'article', $id)) {
177 $langue = isset($langues[$row['lang']]) ?
$langues[$row['lang']] : "";
178 $evenements[$amj][] =
180 'CATEGORIES' => calendrier_categories('spip_articles', $id, 'id_article'),
181 'DESCRIPTION' => $row['descriptif'] ?
: $langue,
182 'SUMMARY' => $row['titre'],
183 'URL' => generer_url_ecrire_objet('article', $id, '', '', 'prop')
190 * Retourne la liste des rubriques (format ICS) publiées dans une période donnée
192 * @param string $avant
194 * @param string $apres
196 * @param array $evenements
197 * Tableau des événements déjà présents qui sera complété par la fonction.
198 * Format : `$evenements[$amj][] = Tableau de description ICS`
200 function quete_calendrier_interval_rubriques($avant, $apres, &$evenements) {
202 $result = sql_select(
203 'DISTINCT R.id_rubrique, titre, descriptif, date',
204 'spip_rubriques AS R, spip_documents_liens AS L',
205 "statut='publie' AND date >= $avant AND date < $apres
206 AND R.id_rubrique = L.id_objet AND L.objet='rubrique'",
210 while ($row = sql_fetch($result)) {
211 $amj = date_anneemoisjour($row['date']);
212 $id = $row['id_rubrique'];
213 if (autoriser('voir', 'rubrique', $id)) {
214 $evenements[$amj][] =
216 'CATEGORIES' => calendrier_categories('spip_rubriques', $id, 'id_rubrique'),
217 'DESCRIPTION' => $row['descriptif'],
218 'SUMMARY' => $row['titre'],
219 'URL' => generer_url_ecrire_objet('rubrique', $id, '', '', 'prop')
226 * Retourne la liste des brèves (format ICS) publiées dans une période donnée
228 * @param string $avant
230 * @param string $apres
232 * @param array $evenements
233 * Tableau des événements déjà présents qui sera complété par la fonction.
234 * Format : `$evenements[$amj][] = Tableau de description ICS`
236 function quete_calendrier_interval_breves($avant, $apres, &$evenements) {
237 $result = sql_select(
238 'id_breve, titre, date_heure, id_rubrique',
240 "statut='publie' AND date_heure >= $avant AND date_heure < $apres",
244 while ($row = sql_fetch($result)) {
245 $amj = date_anneemoisjour($row['date_heure']);
246 $id = $row['id_breve'];
247 $ir = $row['id_rubrique'];
248 if (autoriser('voir', 'breve', $id)) {
249 $evenements[$amj][] =
251 'URL' => generer_url_ecrire_objet('breve', $id, '', '', 'prop'),
252 'CATEGORIES' => calendrier_categories('spip_breves', $ir, 'id_breve'),
253 'SUMMARY' => $row['titre']
260 * Retourne la liste des messages (format ICS) de l'auteur connecté,
261 * pour une période donnée
263 * @param string $avant
265 * @param string $apres
268 * De la forme : `$evt[date][id_message] = Tableau des données ICS`
270 function quete_calendrier_interval_rv($avant, $apres) {
271 include_spip('inc/session');
272 $connect_id_auteur = session_get('id_auteur');
275 $evenements = array();
276 if (!$connect_id_auteur) {
279 $result = sql_select(
280 'M.id_message, M.titre, M.texte, M.date_heure, M.date_fin, M.type',
281 'spip_messages AS M LEFT JOIN spip_auteurs_liens AS L ON (L.id_objet=M.id_message)',
282 "((L.objet='message' AND (L.id_auteur=$connect_id_auteur OR M.type='affich'))
283 OR (L.objet IS NULL AND M.id_auteur=$connect_id_auteur AND " . sql_in(
285 array('pb', 'affich')
288 AND ((M.date_fin >= $avant OR M.date_heure >= $avant)
289 AND M.date_heure <= $apres)
290 AND M.statut='publie'",
294 while ($row = sql_fetch($result)) {
295 $date_heure = $row['date_heure'];
296 $date_fin = $row['date_fin'];
297 $type = $row['type'];
298 $id_message = $row['id_message'];
301 $cat = 'calendrier-couleur2';
303 if ($type == 'affich') {
304 $cat = 'calendrier-couleur4';
306 if ($type != 'normal') {
307 $cat = 'calendrier-couleur12';
309 $cat = 'calendrier-couleur9';
310 $auteurs = array_map(
314 'spip_auteurs AS A LEFT JOIN spip_auteurs_liens AS L ON L.id_auteur=A.id_auteur',
315 "(L.objet='message' AND L.id_objet=$id_message AND (A.id_auteur!=$connect_id_auteur))"
322 $jour_avant = substr($avant, 9, 2);
323 $mois_avant = substr($avant, 6, 2);
324 $annee_avant = substr($avant, 1, 4);
325 $jour_apres = substr($apres, 9, 2);
326 $mois_apres = substr($apres, 6, 2);
327 $annee_apres = substr($apres, 1, 4);
328 $ical_apres = date_anneemoisjour("$annee_apres-$mois_apres-" . sprintf('%02d', $jour_apres));
330 // Calcul pour les semaines a cheval sur deux mois
332 $amj = date_anneemoisjour("$annee_avant-$mois_avant-" . sprintf('%02d', $j +
($jour_avant)));
334 while ($amj <= $ical_apres) {
335 if (!($amj == date_anneemoisjour($date_fin) and preg_match(
339 // Ne pas prendre la fin a minuit sur jour precedent
340 $evenements[$amj][$id_message] =
342 'URL' => generer_url_ecrire('message', "id_message=$id_message"),
343 'DTSTART' => date_ical($date_heure),
344 'DTEND' => date_ical($date_fin),
345 'DESCRIPTION' => $row['texte'],
346 'SUMMARY' => $row['titre'],
347 'CATEGORIES' => $cat,
348 'ATTENDEE' => (count($auteurs) == 0) ?
'' : join($auteurs, ', ')
353 $ladate = date('Y-m-d', mktime(1, 1, 1, $mois_avant, ($j +
$jour_avant), $annee_avant));
355 $amj = date_anneemoisjour($ladate);
362 * Retourne la liste des rendez-vous de l'auteur connecté pour le mois indiqué
368 function quete_calendrier_agenda($annee, $mois) {
369 include_spip('inc/session');
370 $connect_id_auteur = session_get('id_auteur');
373 if (!$connect_id_auteur) {
376 $date = date('Y-m-d', mktime(0, 0, 0, $mois, 1, $annee));
378 $annee = annee($date);
380 // rendez-vous personnels dans le mois
381 $result_messages = sql_select(
382 'M.titre AS summary, M.texte AS description, M.id_message AS uid, M.date_heure',
383 'spip_messages AS M, spip_auteurs_liens AS L',
384 "((L.id_auteur=$connect_id_auteur AND L.id_objet=M.id_message AND L.objet='message') OR M.type='affich')
386 AND M.date_heure >='$annee-$mois-1'
387 AND date_heure < DATE_ADD('$annee-$mois-1', INTERVAL 1 MONTH)
388 AND M.statut='publie'"
390 while ($row = sql_fetch($result_messages)) {
391 $rv[journum($row['date_heure'])] = $row;