Subversion Repositories Applications.papyrus

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
530 ddelon 1
<?php
2
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3
// +------------------------------------------------------------------------------------------------------+
4
// | PHP version 4.1                                                                                      |
5
// +------------------------------------------------------------------------------------------------------+
6
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
7
// +------------------------------------------------------------------------------------------------------+
8
// | This library is free software; you can redistribute it and/or                                        |
9
// | modify it under the terms of the GNU Lesser General Public                                           |
10
// | License as published by the Free Software Foundation; either                                         |
11
// | version 2.1 of the License, or (at your option) any later version.                                   |
12
// |                                                                                                      |
13
// | This library is distributed in the hope that it will be useful,                                      |
14
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
15
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
16
// | Lesser General Public License for more details.                                                      |
17
// |                                                                                                      |
18
// | You should have received a copy of the GNU Lesser General Public                                     |
19
// | License along with this library; if not, write to the Free Software                                  |
20
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
21
// +------------------------------------------------------------------------------------------------------+
1298 neiluj 22
// CVS : $Id: bazar.fonct.cal.php,v 1.17 2007-04-11 08:30:12 neiluj Exp $
530 ddelon 23
/**
24
*
25
* Fonctions calendrier du module bazar
26
*
27
*@package bazar
28
//Auteur original :
29
*@author        David Delon <david.delon@clapas.net>
30
//Autres auteurs :
31
*@copyright     Tela-Botanica 2000-2004
1298 neiluj 32
*@version       $Revision: 1.17 $ $Date: 2007-04-11 08:30:12 $
530 ddelon 33
// +------------------------------------------------------------------------------------------------------+
34
*/
35
 
36
// +------------------------------------------------------------------------------------------------------+
37
// |                                            ENTETE du PROGRAMME                                       |
38
// +------------------------------------------------------------------------------------------------------+
1298 neiluj 39
 
626 florian 40
require_once PAP_CHEMIN_RACINE.'api/pear/Calendar/Month/Weekdays.php';
41
require_once PAP_CHEMIN_RACINE.'api/pear/Calendar/Day.php';
42
require_once PAP_CHEMIN_RACINE.'api/pear/Calendar/Decorator.php';
530 ddelon 43
 
44
// +------------------------------------------------------------------------------------------------------+
45
// |                                           LISTE de FONCTIONS                                         |
46
// +------------------------------------------------------------------------------------------------------+
47
 
48
// Classe Utilitaire pour Calendrier
49
class DiaryEvent extends Calendar_Decorator {
1252 jp_milcent 50
	var $entry = array();
51
	function DiaryEvent($calendar)
52
	{
530 ddelon 53
		Calendar_Decorator::Calendar_Decorator($calendar);
54
	}
1252 jp_milcent 55
	function setEntry($entry)
56
	{
57
		$this->entry[] = $entry;
530 ddelon 58
 
59
	}
1252 jp_milcent 60
	function getEntry()
61
	{
530 ddelon 62
		return $this->entry;
63
	}
64
}
65
 
66
 
579 ddelon 67
// $type : calendrier
68
// $type : calendrier_appplette
1252 jp_milcent 69
function GestionAffichageCalendrier($type = 'calendrier') {
530 ddelon 70
 
1262 jp_milcent 71
	$retour = '';
1298 neiluj 72
 
530 ddelon 73
	$url = $GLOBALS['_GEN_commun']['url'] ;
1252 jp_milcent 74
	$db =& $GLOBALS['_GEN_commun']['pear_db'] ;
75
	$auth =& $GLOBALS['_GEN_commun']['pear_auth'] ;
530 ddelon 76
 
77
	if (!isset($_GET['y'])) {
78
		$_GET['y'] = date('Y');
79
	}
80
 
81
	if (!isset($_GET['m'])) {
82
		$_GET['m'] = date('m');
83
	}
84
 
85
	// 	Construction Mois en Cours
86
	$month = new Calendar_Month_Weekdays($_GET['y'],$_GET['m']);
87
 
1252 jp_milcent 88
	$curStamp = $month->getTimeStamp();
89
	$url->addQueryString('y', date('Y',$curStamp));
90
	$url->addQueryString('m', date('n',$curStamp));
91
	$url->addQueryString('d', date('j',$curStamp));
530 ddelon 92
	$cur = $url->getUrl();
93
 
94
	// Navigation
95
	$prevStamp = $month->prevMonth(true);
1252 jp_milcent 96
	$url->addQueryString('y', date('Y',$prevStamp));
97
	$url->addQueryString('m', date('n',$prevStamp));
98
	$url->addQueryString('d', date('j',$prevStamp));
530 ddelon 99
	$prev = $url->getUrl();
1252 jp_milcent 100
 
530 ddelon 101
	$nextStamp = $month->nextMonth(true);
1252 jp_milcent 102
	$url->addQueryString('y', date('Y',$nextStamp));
103
	$url->addQueryString('m', date('n',$nextStamp));
104
	$url->addQueryString('d', date('j',$nextStamp));
530 ddelon 105
	$next = $url->getUrl();
1252 jp_milcent 106
 
107
	$fr_month = array(	"1"=>BAZ_JANVIER,"2"=>BAZ_FEVRIER,"3"=>BAZ_MARS,"4"=>BAZ_AVRIL,"5"=>BAZ_MAI,"6"=>BAZ_JUIN,
108
						"7"=>BAZ_JUILLET,"8"=>BAZ_AOUT,"9"=>BAZ_SEPTEMBRE,"10"=>BAZ_OCTOBRE,"11"=>BAZ_NOVEMBRE,"12"=>BAZ_DECEMBRE);
530 ddelon 109
 
1298 neiluj 110
	$retour.= "<div class=\"navi\">";
111
	$retour.= "<a href=\"".$prev."\"> &lt;&lt; </a>";
112
 
113
	$retour.= "&nbsp;&nbsp;";
114
	$retour.= "<a href=\"".$cur;
115
	$retour.= "\"> ";
116
	$retour.= $fr_month[(date('n',$curStamp))];
117
	$retour.= "&nbsp;";
118
	$retour.= (date('Y',$curStamp));
119
	$retour.= "</a>";
120
	$retour.= "&nbsp;&nbsp;";
121
	$retour.= "<a href=\"".$next."\"> &gt;&gt; </a>";
122
 
123
	$retour.= "</div>";
124
 
125
	$retour.="<br></br>";
126
 
579 ddelon 127
	// Vue Mois calendrier ou vue applette
128
 
129
	if ((!isset($_GET['id_fiche']) && ($type=='calendrier')) || ($type=='calendrier_applette')){
530 ddelon 130
 
131
		// Recherche evenement de la periode selectionnée
1298 neiluj 132
 
133
	 	// TODO : Selectionner element du mois en cours
134
 
135
	    $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 ".
1221 jp_milcent 136
								"FROM bazar_fiche, bazar_nature ".
1298 neiluj 137
								"WHERE YEAR(bf_date_debut_evenement) = ".date('Y',$curStamp)." ".
138
								"AND month(bf_date_debut_evenement) = ".date('m',$curStamp)." ".
1221 jp_milcent 139
								"AND bf_ce_nature = bn_id_nature ".
1273 jp_milcent 140
								"AND bn_id_nature IN (".BAZ_NUM_ANNONCE_CALENDRIER.") ".
141
								"AND bf_statut_fiche = 1";
1298 neiluj 142
 
530 ddelon 143
	   	$resultat_evenement = $db->query($requete_evenements);
1298 neiluj 144
 
530 ddelon 145
	    (DB::isError($resultat_evenement))
146
	    ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_evenement->getMessage(), $requete_evenements))
147
	    : '';
1298 neiluj 148
 
149
		$calcom="";
150
 
151
		$selection=array();
152
		$evenements=array();
153
 
154
		$prev_curday_ymd=0;
155
 
530 ddelon 156
	    while ($ligne_evenements = $resultat_evenement->fetchRow(DB_FETCHMODE_OBJECT)) {
1298 neiluj 157
 
158
			$curday_ymd=date('Ym',$curStamp).$ligne_evenements->bf_jour_debut_evenement;
159
			if ($curday_ymd!=$prev_curday_ymd) {
160
				$Day = new Calendar_Day(date('Y',$curStamp),date('m',$curStamp), $ligne_evenements->bf_jour_debut_evenement);
161
				$DiaryEvent = new DiaryEvent($Day);
162
				$prev_curday_ymd=$curday_ymd;
163
			}
530 ddelon 164
 
1298 neiluj 165
			$DiaryEvent->setEntry($ligne_evenements);
530 ddelon 166
 
1298 neiluj 167
			// Add the decorator to the selection
168
			$selection[] = $DiaryEvent;
169
 
530 ddelon 170
		}
171
 
172
		// Affichage Calendrier
1298 neiluj 173
 
174
 
530 ddelon 175
		$month->build($selection);
1298 neiluj 176
 
177
		if ($type=='calendrier') {
178
			$retour.= "<table class=\"calendar\">
179
			 <tr>
579 ddelon 180
 
181
			  <th> ". BAZ_LUNDI ."</th>
182
			  <th> ". BAZ_MARDI ."</th>
183
			  <th> ". BAZ_MERCREDI ."</th>
184
			  <th> ". BAZ_JEUDI ."</th>
185
			  <th> ". BAZ_VENDREDI ."</th>
186
			  <th> ". BAZ_SAMEDI ."</th>
187
			  <th> ". BAZ_DIMANCHE ."</th>
188
			 </tr>
1298 neiluj 189
			 ";
579 ddelon 190
		}
191
		else {
1298 neiluj 192
			$retour.= "<table class=\"calendar\">
193
			 <tr>
579 ddelon 194
 
195
			  <th> ". BAZ_LUNDI_COURT ."</th>
196
			  <th> ". BAZ_MARDI_COURT ."</th>
197
			  <th> ". BAZ_MERCREDI_COURT ."</th>
198
			  <th> ". BAZ_JEUDI_COURT ."</th>
199
			  <th> ". BAZ_VENDREDI_COURT ."</th>
200
			  <th> ". BAZ_SAMEDI_COURT ."</th>
201
			  <th> ". BAZ_DIMANCHE_COURT ."</th>
202
			 </tr>
1298 neiluj 203
			 ";
579 ddelon 204
		}
530 ddelon 205
 
579 ddelon 206
 
530 ddelon 207
		$todayStamp=time();
208
 
209
		$today_ymd=date('Ymd',$todayStamp);
210
 
211
		// Other month : mois
212
		//
213
 
214
		while ($day = $month->fetch() ) {
215
 
216
				$dayStamp = $day->thisDay(true);
217
				$day_ymd=date('Ymd',$dayStamp);
218
 
219
				if ( $day->isEmpty() ) {
1298 neiluj 220
						$class = "other_month";
530 ddelon 221
				}
222
				else {
223
					if (($day_ymd < $today_ymd)) {
1298 neiluj 224
						$class= "previous_month";
530 ddelon 225
					}
226
					else {
227
						 if ($day_ymd == $today_ymd) {
1298 neiluj 228
						 	$class= "current_day";
530 ddelon 229
						 }
230
						 else {
1298 neiluj 231
							$class="current_month";
530 ddelon 232
						 }
233
					}
234
				}
235
 
236
				$url->addQueryString ('y', date('Y',$dayStamp));
237
				$url->addQueryString ('m', date('n',$dayStamp));
238
				$url->addQueryString ('d', date('j',$dayStamp));
1298 neiluj 239
 
530 ddelon 240
				$link = $url->getUrl();
241
 
242
				// isFirst() to find start of week
1298 neiluj 243
				if ($day->isFirst())
530 ddelon 244
					$retour.= ( "<tr>\n" );
1298 neiluj 245
 
246
				//$retour.= ( "<td class=\"".$class."\"><a href=\"".$link."\">".$day->thisDay()."</a>\n" );
247
 
248
				if ($type=='calendrier') {
249
					$retour.= "<td class=\"".$class."\">".$day->thisDay()."\n";
579 ddelon 250
					if ($day->isSelected() ) {
1298 neiluj 251
						$evenements=$day->getEntry();
252
						while ($ligne_evenement=array_pop($evenements)) {
253
							$id_fiches=array();
254
							$id_fiches[]=$ligne_evenement->bf_id_fiche;
579 ddelon 255
							$url->addQueryString ('id_fiches',$id_fiches);
256
							$link = $url->getUrl();
1298 neiluj 257
							$retour.= "<a href=\"".$link."\">".$ligne_evenement->bf_titre."</a>\n";
579 ddelon 258
							$url->removeQueryString ('id_fiches');
259
						}
260
					}
1298 neiluj 261
				}
262
				else {
579 ddelon 263
					$lien_date= "<td class=\"".$class."\">".$day->thisDay()."\n";
264
					if ($day->isSelected() ) {
265
						$evenements=$day->getEntry();
266
						$id_fiches=array();
267
						while ($ligne_evenement=array_pop($evenements)) {
268
							$id_fiches[]=$ligne_evenement->bf_id_fiche;
269
						}
270
						$url->addQueryString ('id_fiches',$id_fiches);
530 ddelon 271
						$link = $url->getUrl();
579 ddelon 272
						$lien_date= "<td class=\"".$class."\"><a href=\"".$link."\">".$day->thisDay()."</a>\n";
273
						$url->removeQueryString ('id_fiches');
530 ddelon 274
					}
579 ddelon 275
					$retour.=$lien_date;
530 ddelon 276
				}
277
 
278
				$retour.= ( "</td>\n" );
279
 
280
				// isLast() to find end of week
281
				if ( $day->isLast() )
282
					$retour.= ( "</tr>\n" );
283
			}
284
 
1298 neiluj 285
			$retour.= "</table>";
530 ddelon 286
 
579 ddelon 287
 
288
		}
1298 neiluj 289
 
579 ddelon 290
		// Vue detail
291
 
292
		if ((isset($_GET['id_fiches']))) {
1298 neiluj 293
				// Ajout des styles du bazar
294
				if (defined('PAP_VERSION')) { //si on est dans Papyrus
295
					GEN_stockerStyleExterne( 'bazar_interne2', 'client/bazar/bazar.interne.css');
296
				}
297
 
716 alexandre_ 298
				// Ajout d'un titre pour la page avec la date
299
				$jours = array ('lundi', 'mardi', 'mercredi', 'jeudi', 'vendredi', 'samedi', 'dimanche') ;
300
				$mois = array ('janvier', 'février', 'mars', 'avril', 'mai', 'juin', 'juillet', 'août', 'septembre',
301
								'octobre', 'novembre', 'décembre') ;
302
				$timestamp = strtotime ($_GET['y'].'/'.$_GET['m'].'/'.$_GET['d']) ;
303
				$GLOBALS['_PAPYRUS_']['rendu']['CONTENU_CORPS'] = '<h1>'.$jours[date('w', $timestamp)].
935 alexandre_ 304
								' '.$_GET['d'].' '.$mois[$_GET['m']-1].' '.$_GET['y'].'</h1>' ;
716 alexandre_ 305
				$GLOBALS['_PAPYRUS_']['rendu']['CONTENU_CORPS'] .= baz_voir_fiches(0,$_GET['id_fiches'] );
530 ddelon 306
		}
1252 jp_milcent 307
 
308
		// Nettoyage de l'url
309
		$url->removeQueryString('id_fiches');
310
		$url->removeQueryString('y');
311
		$url->removeQueryString('m');
312
		$url->removeQueryString('d');
579 ddelon 313
 
314
		return $retour;
530 ddelon 315
	}
316
?>