Subversion Repositories Applications.papyrus

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
489 ddelon 1
<?php
2
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3
// Copyright (C) 1999-2004 Tela Botanica (accueil@tela-botanica.org)
4
//
5
// Ce logiciel est un programme informatique servant à gérer du contenu et des
6
// applications web.
7
 
8
// Ce logiciel est régi par la licence CeCILL soumise au droit français et
9
// respectant les principes de diffusion des logiciels libres. Vous pouvez
10
// utiliser, modifier et/ou redistribuer ce programme sous les conditions
11
// de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA
12
// sur le site "http://www.cecill.info".
13
 
14
// En contrepartie de l'accessibilité au code source et des droits de copie,
15
// de modification et de redistribution accordés par cette licence, il n'est
16
// offert aux utilisateurs qu'une garantie limitée.  Pour les mêmes raisons,
17
// seule une responsabilité restreinte pèse sur l'auteur du programme,  le
18
// titulaire des droits patrimoniaux et les concédants successifs.
19
 
20
// A cet égard  l'attention de l'utilisateur est attirée sur les risques
21
// associés au chargement,  à l'utilisation,  à la modification et/ou au
22
// développement et à la reproduction du logiciel par l'utilisateur étant
23
// donné sa spécificité de logiciel libre, qui peut le rendre complexe à
24
// manipuler et qui le réserve donc à des développeurs et des professionnels
25
// avertis possédant  des  connaissances  informatiques approfondies.  Les
26
// utilisateurs sont donc invités à charger  et  tester  l'adéquation  du
27
// logiciel à leurs besoins dans des conditions permettant d'assurer la
28
// sécurité de leurs systèmes et ou de leurs données et, plus généralement,
29
// à l'utiliser et l'exploiter dans les mêmes conditions de sécurité.
30
 
31
// Le fait que vous puissiez accéder à cet en-tête signifie que vous avez
32
// pris connaissance de la licence CeCILL, et que vous en avez accepté les
33
// termes.
34
// ----
498 ddelon 35
// CVS : $Id: bazar.calendrier.php,v 1.4 2005-10-01 11:21:39 ddelon Exp $
489 ddelon 36
/**
37
* bazar_calendrier : programme affichant les evenements du bazar sous forme de Calendrier
38
*
39
*
40
*@package Bazar
41
//Auteur original :
42
*@author        David DELON <david.delon@clapas.net>
498 ddelon 43
*@version       $Revision: 1.4 $ $Date: 2005-10-01 11:21:39 $
489 ddelon 44
// +------------------------------------------------------------------------------------------------------+
45
*/
46
 
493 ddelon 47
// TODO : afficher evenement sur plusieur jours
48
// TODO : traduction entete mois calendrier
49
// Parametrage EVENEMENT : template
489 ddelon 50
 
51
// Fonction Calendrier de Pear
52
 
53
require_once 'Calendar/Month/Weekdays.php';
54
require_once 'Calendar/Day.php';
55
require_once 'Calendar/Decorator.php';
56
 
496 ddelon 57
define ('BAZ_VOIR_FICHE', 8) ;
58
include_once 'configuration/baz_config.inc.php'; //fichier de configuration de Bazar
59
include_once 'bibliotheque/bazar.fonct.php'; //fichier des fonctions de Bazar
489 ddelon 60
 
496 ddelon 61
 
62
 
489 ddelon 63
// Classe Utilitaire pour Calendrier
64
 
65
class DiaryEvent extends Calendar_Decorator {
496 ddelon 66
	var $entry=array();
489 ddelon 67
	function DiaryEvent($calendar) {
68
		Calendar_Decorator::Calendar_Decorator($calendar);
69
	}
70
	function setEntry($entry) {
496 ddelon 71
		$this->entry[]=$entry;
72
 
489 ddelon 73
	}
74
	function getEntry() {
75
		return $this->entry;
76
	}
77
}
78
 
79
 
80
function afficherContenuCorps() {
496 ddelon 81
 
82
		// Ajout d'une feuille de style externe
83
	GEN_stockerStyleExterne ('wikini', 'client/bazar/presentations/styles/calendrier.css') ;
84
 
85
	$retour='';
489 ddelon 86
 
87
	$url = $GLOBALS['_GEN_commun']['url'] ;
88
	$db = &$GLOBALS['_GEN_commun']['pear_db'] ;
89
	$auth = &$GLOBALS['_GEN_commun']['pear_auth'] ;
90
 
91
	if (!isset($_GET['y'])) {
92
		$_GET['y'] = date('Y');
93
	}
94
 
95
	if (!isset($_GET['m'])) {
96
		$_GET['m'] = date('m');
97
	}
98
 
496 ddelon 99
 
493 ddelon 100
	// 	Construction Mois en Cours
101
	$month = new Calendar_Month_Weekdays($_GET['y'],$_GET['m']);
489 ddelon 102
 
493 ddelon 103
	$curStamp=$month->getTimeStamp();
496 ddelon 104
	$url->addQueryString ('y', date('Y',$curStamp));
105
	$url->addQueryString ('m', date('n',$curStamp));
106
	$url->addQueryString ('d', date('j',$curStamp));
107
	$cur = $url->getUrl();
493 ddelon 108
 
109
	// Navigation
110
	$prevStamp = $month->prevMonth(true);
111
	$url->addQueryString ('y', date('Y',$prevStamp));
112
	$url->addQueryString ('m', date('n',$prevStamp));
113
	$url->addQueryString ('d', date('j',$prevStamp));
114
	$prev = $url->getUrl();
115
	$nextStamp = $month->nextMonth(true);
116
	$url->addQueryString ('y', date('Y',$nextStamp));
117
	$url->addQueryString ('m', date('n',$nextStamp));
118
	$url->addQueryString ('d', date('j',$nextStamp));
119
	$next = $url->getUrl();
489 ddelon 120
 
496 ddelon 121
	$fr_month=array("1"=>BAZ_JANVIER,"2"=>BAZ_FEVRIER,"3"=>BAZ_MARS,"4"=>BAZ_AVRIL,"5"=>BAZ_MAI,"6"=>BAZ_JUIN,"7"=>BAZ_JUILLET,"8"=>BAZ_AOUT,"9"=>BAZ_SEPTEMBRE,"10"=>BAZ_OCTOBRE,"11"=>BAZ_NOVEMBRE,"12"=>BAZ_DECEMBRE);
489 ddelon 122
 
496 ddelon 123
	$retour.= "<div class=\"navi\">";
124
	$retour.= "<a href=\"".$prev."\"> &lt;&lt; </a>";
489 ddelon 125
 
496 ddelon 126
	$retour.= "&nbsp;&nbsp;";
127
	$retour.= "<a href=\"".$cur;
128
	$retour.= "\"> ";
129
	$retour.= $fr_month[(date('n',$curStamp))];
130
	$retour.= "&nbsp;";
131
	$retour.= (date('Y',$curStamp));
132
	$retour.= "</a>";
133
	$retour.= "&nbsp;&nbsp;";
134
	$retour.= "<a href=\"".$next."\"> &gt;&gt; </a>";
489 ddelon 135
 
496 ddelon 136
	$retour.= "</div>";
489 ddelon 137
 
496 ddelon 138
	$retour.="<br></br>";
489 ddelon 139
 
496 ddelon 140
		// Vue Mois
141
	if (!isset($_GET['id_fiche'])) {
142
 
143
		// Recherche evenement de la periode selectionnée
489 ddelon 144
 
496 ddelon 145
	 	// TODO : Selectionner element du mois en cours
146
 
147
	    $requete_evenements = "SELECT DISTINCT bf_id_fiche, bf_titre, bf_lieu_evenement, day(bf_date_debut_evenement) as bf_jour_debut_evenement , bf_date_fin_evenement, bf_description FROM bazar_fiche, bazar_nature where year(bf_date_debut_evenement) =".date('Y',$curStamp)." and month(bf_date_debut_evenement)=".date('m',$curStamp)." and bf_ce_nature=bn_id_nature and bn_label_nature='Évènements'";
148
 
149
 
150
	   	$resultat_evenement = $db->query($requete_evenements);
151
 
152
	    (DB::isError($resultat_evenement))
153
	    ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_evenement->getMessage(), $requete_evenements))
154
	    : '';
489 ddelon 155
 
496 ddelon 156
		$calcom="";
157
 
158
		$selection=array();
159
		$evenements=array();
160
 
161
		$prev_curday_ymd=0;
162
 
163
	    while ($ligne_evenements = $resultat_evenement->fetchRow(DB_FETCHMODE_OBJECT)) {
164
 
165
			$curday_ymd=date('Ym',$curStamp).$ligne_evenements->bf_jour_debut_evenement;
166
			if ($curday_ymd!=$prev_curday_ymd) {
167
				$Day = new Calendar_Day(date('Y',$curStamp),date('m',$curStamp), $ligne_evenements->bf_jour_debut_evenement);
168
				$DiaryEvent = new DiaryEvent($Day);
169
				$prev_curday_ymd=$curday_ymd;
170
			}
171
 
172
			$DiaryEvent->setEntry($ligne_evenements);
173
 
174
			// Add the decorator to the selection
175
			$selection[] = $DiaryEvent;
493 ddelon 176
 
496 ddelon 177
		}
178
 
179
		// Affichage Calendrier
489 ddelon 180
 
181
 
496 ddelon 182
		$month->build($selection);
489 ddelon 183
 
496 ddelon 184
		$retour.= "<table class=\"calendar\">
185
		 <tr>
489 ddelon 186
 
496 ddelon 187
		  <th> ". BAZ_LUNDI ."</th>
188
		  <th> ". BAZ_MARDI ."</th>
189
		  <th> ". BAZ_MERCREDI ."</th>
190
		  <th> ". BAZ_JEUDI ."</th>
191
		  <th> ". BAZ_VENDREDI ."</th>
192
		  <th> ". BAZ_SAMEDI ."</th>
193
		  <th> ". BAZ_DIMANCHE ."</th>
194
		 </tr>
195
		 ";
196
 
197
		$todayStamp=time();
198
 
199
		$today_ymd=date('Ymd',$todayStamp);
493 ddelon 200
 
496 ddelon 201
		// Other month : mois
202
		//
203
 
204
		while ($day = $month->fetch() ) {
205
 
206
				$dayStamp = $day->thisDay(true);
207
				$day_ymd=date('Ymd',$dayStamp);
208
 
209
				if ( $day->isEmpty() ) {
210
						$class = "other_month";
493 ddelon 211
				}
212
				else {
496 ddelon 213
					if (($day_ymd < $today_ymd)) {
214
						$class="previous_month";
215
					}
216
					else {
498 ddelon 217
						 if ($day_ymd == $today_ymd) {
218
						 	$class="current_day";
219
						 }
220
						 else {
221
							$class="current_month";
222
						 }
496 ddelon 223
					}
493 ddelon 224
				}
225
 
496 ddelon 226
				$url->addQueryString ('y', date('Y',$dayStamp));
227
				$url->addQueryString ('m', date('n',$dayStamp));
228
				$url->addQueryString ('d', date('j',$dayStamp));
229
 
230
				$link = $url->getUrl();
493 ddelon 231
 
496 ddelon 232
				// isFirst() to find start of week
233
				if ($day->isFirst())
234
					$retour.= ( "<tr>\n" );
493 ddelon 235
 
496 ddelon 236
				$retour.= ( "<td class=\"".$class."\"><a href=\"".$link."\">".$day->thisDay()."</a>\n" );
493 ddelon 237
 
496 ddelon 238
				if ($day->isSelected() ) {
239
					$evenements=$day->getEntry();
240
					while ($ligne_evenement=array_pop($evenements)) {
241
						$url->addQueryString ('id_fiche',$ligne_evenement->bf_id_fiche);
242
						$link = $url->getUrl();
243
						$retour.= ( "<a href=\"".$link."\">".$ligne_evenement->bf_titre."</a>\n" );
244
					}
245
 
246
				}
247
 
248
				$retour.= ( "</td>\n" );
249
 
250
				// isLast() to find end of week
251
				if ( $day->isLast() )
252
					$retour.= ( "</tr>\n" );
493 ddelon 253
			}
496 ddelon 254
 
255
			$retour.= "</table>";
493 ddelon 256
 
496 ddelon 257
			return $retour;
258
 
489 ddelon 259
		}
496 ddelon 260
		else {
261
			// Vue jour
262
			if (isset($_GET['id_fiche'])) {
263
				return 	$retour.baz_voir_fiche(0, $_GET['id_fiche']);
264
			}
265
		}
493 ddelon 266
	}
267
 
489 ddelon 268
?>