Subversion Repositories eFlore/Applications.coel-consultation

Rev

Rev 279 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
9 jpm 1
<?php
2
// declare(encoding='UTF-8');
3
/**
4
 * Classe Controleur générale de l'application Collection.
5
 *
6
 * @category	php5.2
7
 * @package		Collection
8
 * @author		Jean-Pascal MILCENT <jpm@tela-botanica.org>
9
 * @copyright	2010 Tela-Botanica
10
 * @license		http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL
11
 * @license		http://www.gnu.org/licenses/gpl.html Licence GNU-GPL
12
 * @version		SVN: $Id: aControleur.php 282 2023-05-03 17:30:56Z delphine $
13
 */
114 jpm 14
abstract class aControleur extends Controleur {
55 jpm 15
 
89 jpm 16
	const FMT_DATE = '%d/%m/%Y';// Supporte les formats de dates non valides (1989-00-00)
69 jpm 17
	const FMT_DATE_TXT = '%A %d %B %Y';
89 jpm 18
	const FMT_DATE_HEURE = '%d/%m/%Y %H:%i:%s';// Supporte les formats de dates non valides (1989-00-00 00:00:00)
55 jpm 19
	const FMT_DATE_HEURE_TXT = '%A %d %B %Y à %H:%M';
20
 
82 jpm 21
	const META_TITRE = 'titre';
22
	const META_DESCRIPTION = 'description';
23
	const META_TAGS = 'tags';
9 jpm 24
	const RENDU_TETE = 'tete';
25
	const RENDU_CORPS = 'corps';
26
	const RENDU_PIED = 'pied';
82 jpm 27
 
15 jpm 28
	const TYPE_AUTRE = 'AUTRE';
29
	const TYPE_TOTAL = 'TOTAL';
30
	const SEPARATEUR_TYPE_VALEUR = '##';
31
	const SEPARATEUR_VALEURS = ';;';
32
	const SEPARATEUR_DONNEES = '||';
33
	const VALEUR_NULL = 'NC';
9 jpm 34
 
35
	private $sortie = array();
36
	private $parametres = array();
11 jpm 37
	// FIXME : voir s'il est plus intéressant d'utiliser une méthode dans les classes filles
38
	protected $url = null;
169 jpm 39
	protected $registre = array();
9 jpm 40
 
41
	public function __construct()  {
169 jpm 42
		$this->registre = Registre::getInstance();
43
		$this->parametres = $this->registre->get('parametres');
9 jpm 44
		$this->url = $this->parametres['url'];
45
		parent::__construct();
46
	}
47
 
48
	/**
82 jpm 49
	 * Attribue une position de sortie à un contenu.
9 jpm 50
	 */
51
	protected function setSortie($position, $contenu, $fusionner = false) {
82 jpm 52
		if ($this->verifierExistenceTypeSortie($position)) {
9 jpm 53
			if ($fusionner) {
54
				$this->sortie[$position] .= $contenu;
55
			} else {
56
				$this->sortie[$position] = $contenu;
57
			}
58
		}
59
	}
11 jpm 60
 
61
	/**
82 jpm 62
	 * Vérifie l'existence du type de sortie indiqué pour son utilisation dans le tableau de sortie.
63
	 * @param string le type de sortie à tester.
64
	 * @return bool true si le type de sortie est valide, sinon false.
11 jpm 65
	 */
82 jpm 66
	private function verifierExistenceTypeSortie($type) {
11 jpm 67
		$existe = true;
82 jpm 68
		if ($type != self::RENDU_TETE &&
69
			$type != self::RENDU_CORPS &&
70
			$type != self::RENDU_PIED &&
71
			$type != self::META_TITRE &&
72
			$type != self::META_DESCRIPTION &&
73
			$type != self::META_TAGS) {
74
			trigger_error("Le type de sortie '$type' n'est pas une valeur prédéfinie.", E_USER_WARNING);
11 jpm 75
			$existe = false;
76
		}
77
		return $existe;
78
	}
79
 
80
	/**
81
	 * Retourne le tableau de sortie à utiliser dans le controleur principal de l'application.
82
	 */
9 jpm 83
	public function getSortie() {
84
		return $this->sortie;
85
	}
86
 
11 jpm 87
	/**
88
	 * Execute l'action d'un module donnée et fusionne le résultat avec le tableau de sortie.
89
	 */
90
	protected function executerAction($ClasseModule, $action) {
91
		$module = new $ClasseModule();
92
		$module->$action();
93
		$this->fusionnerSortie($module->getSortie());
94
 
95
	}
9 jpm 96
 
11 jpm 97
	/**
98
	 * Fusionne un tableau de sortie par défaut avec le tableau passé en paramêtre.
99
	 * @param array le tableau à fusionner
100
	 */
101
	private function fusionnerSortie($sortie) {
102
		$this->sortie = array_merge($this->sortie, $sortie);
103
	}
104
 
16 jpm 105
	protected function construireTxtTruckSimple($chaine_a_analyser) {
106
		return $this->construireTxtTruck($chaine_a_analyser, false, false);
107
	}
108
 
15 jpm 109
	protected function construireTxtTruckSansMajuscule($chaine_a_analyser) {
93 jpm 110
		return $this->construireTxtTruck($chaine_a_analyser, false, true);
15 jpm 111
	}
112
 
16 jpm 113
	protected function construireTxtTruckSansPointFinal($chaine_a_analyser) {
114
		return $this->construireTxtTruck($chaine_a_analyser, true, false);
115
	}
116
 
117
	protected function construireTxtTruck($chaine_a_analyser, $majuscule = true, $point_final = true) {
93 jpm 118
		$termes = $this->traiterTxtTruck($chaine_a_analyser);
119
		$chaine_a_retourner = $this->formaterTableauDeTxt($termes, $majuscule, $point_final);
120
		return $chaine_a_retourner;
121
	}
122
 
123
	protected function traiterTxtTruck($chaine_a_analyser) {
15 jpm 124
		$termes = array();
125
		if ((!is_null($chaine_a_analyser)) && (trim($chaine_a_analyser) != ''))	{
126
			$valeurs = explode(self::SEPARATEUR_VALEURS, $chaine_a_analyser);
127
			$nbre_valeurs = count($valeurs);
128
			if ($nbre_valeurs > 0) {
129
				for ($i = 0; $i < $nbre_valeurs; $i++)	{
130
					$valeur = trim($valeurs[$i]);
131
					if ($valeur != '') {
132
						$valeur_formatee = $this->formaterValeurTruck($valeur);
133
						$termes[] = $valeur_formatee;
134
					}
135
				}
136
			}
137
		}
93 jpm 138
		return $termes;
15 jpm 139
	}
140
 
55 jpm 141
	protected function getTxtTruckParPosition($chaine_a_analyser, $position = 1) {
142
		$retour = '';
143
		if ((!is_null($chaine_a_analyser)) && (trim($chaine_a_analyser) != ''))	{
144
			$valeurs = explode(self::SEPARATEUR_VALEURS, $chaine_a_analyser);
145
			$nbre_valeurs = count($valeurs);
146
			if ($nbre_valeurs > 0) {
147
				$position = $position - 1;
148
				$valeur = trim($valeurs[$position]);
149
				if ($valeur != '') {
150
					$retour = $this->formaterValeurTruck($valeur);
151
				}
152
			}
153
		}
154
		return $retour;
155
	}
156
 
157
	protected function getTableauTruck($chaine_a_analyser) {
158
		$tableau_retour = array();
159
		if ((!is_null($chaine_a_analyser)) && (trim($chaine_a_analyser) != ''))	{
160
			$valeurs = explode(self::SEPARATEUR_VALEURS, $chaine_a_analyser);
161
			$nbre_valeurs = count($valeurs);
162
			if ($nbre_valeurs > 0) {
163
				for ($i = 0; $i < $nbre_valeurs; $i++)	{
164
					$valeur = trim($valeurs[$i]);
165
					if ($valeur != '') {
166
						$tableau_retour[] = $valeur;
167
					}
168
				}
169
			}
170
		}
171
		return $tableau_retour;
172
	}
173
 
15 jpm 174
	private function formaterValeurTruck($valeur) {
175
		$chaine_a_retourner = '';
176
 
177
		if (preg_match('/^[^#]+##[^$]+$/', $valeur))	{
178
			$cle_valeur = explode(self::SEPARATEUR_TYPE_VALEUR, $valeur);
179
			$chaine_a_retourner = (($cle_valeur[1] == '' || $cle_valeur[1] == 'null') ? self::VALEUR_NULL : $cle_valeur[1]);
180
			$chaine_a_retourner .= ' '.$this->formaterParenthese($cle_valeur[0]);
181
		} else if ($valeur != '')	{
182
			$chaine_a_retourner = $valeur;
183
		} else {
184
			trigger_error("Valeur truck posant problème :$valeur", E_USER_NOTICE);
185
		}
186
 
187
		return $chaine_a_retourner;
188
	}
189
 
190
	protected function formaterParenthese($chaine_a_afficher) {
191
		if ($chaine_a_afficher != '') {
192
			$chaine_a_afficher = '('.$chaine_a_afficher.')';
193
		}
194
		return $chaine_a_afficher;
195
	}
196
 
197
	protected function formaterSautDeLigne($chaine_a_formater) {
198
		$txt_a_retourner = preg_replace('/\n/', '<br />', $chaine_a_formater);
199
		return $txt_a_retourner;
200
	}
201
 
16 jpm 202
	protected function formaterTableauDeTxt($tableau_de_txt, $majuscule = true, $point_final = true) {
15 jpm 203
		$chaine_a_afficher = '';
204
		$taille_du_tableau = count($tableau_de_txt);
205
		if ($taille_du_tableau > 0) {
206
			$index_avt_dernier = $taille_du_tableau - 1;
207
			for ($i = 0; $i < $taille_du_tableau; $i++)	{
208
				$mot = $tableau_de_txt[$i];
209
				if ($i != $index_avt_dernier) {
210
					$chaine_a_afficher .= $mot.', ';
211
				} else {
16 jpm 212
					$chaine_a_afficher .= $this->nettoyerPointFinal($mot);
213
					if ($point_final) {
214
						$chaine_a_afficher .= '.';
215
					}
15 jpm 216
				}
217
			}
218
		}
219
		if ($majuscule) {
220
			$chaine_a_afficher = ucfirst($chaine_a_afficher);
221
		}
222
		return $chaine_a_afficher;
223
	}
224
 
225
	protected function formaterAutre($chaine_a_afficher) {
226
		if ($chaine_a_afficher != '') {
227
			$chaine_a_afficher = ' [Autre : '.$chaine_a_afficher.']';
228
		}
229
		return $chaine_a_afficher;
230
	}
231
 
232
	protected function formaterOuiNon($chaine_a_formater) {
233
		$txt_a_retourner = '';
234
		if ($chaine_a_formater == '0') {
235
			$txt_a_retourner = 'non';
236
		} else if ($chaine_a_formater == '1') {
237
			$txt_a_retourner = 'oui';
238
		}
239
		return $txt_a_retourner;
240
	}
241
 
175 mathias 242
	protected function formaterDate($date, $format = self::FMT_DATE_HEURE, $chaineSiVide = 'Inconnue') {
17 jpm 243
		if ($date == '' || $date == '0000-00-00' || $date == '0000-00-00 00:00:00') {
175 mathias 244
			$date = $chaineSiVide;
55 jpm 245
		} else {
89 jpm 246
			if (preg_match('/^([0-9]{4})-([0-9]{2})-([0-9]{2})(?: ([0-9]{2}):([0-9]{2}):([0-9]{2})|)$/', $date, $match)) {// Date Heure
247
				$annee = $match[1];
248
				$mois = $match[2];
249
				$jour = $match[3];
250
				$heure = (isset($match[4])) ? $match[4] : '00';
251
				$minute = (isset($match[5])) ? $match[5] : '00';
252
				$seconde = (isset($match[6])) ? $match[6] : '00';
253
				if ($format == self::FMT_DATE && $jour == '00' && $mois == '00') {
254
					$date = $annee;
255
				} else if ($format == self::FMT_DATE && $jour == '00') {
256
					$date = strftime('%b', mktime(0, 0, 0, $mois, 1)).' '.$annee;
257
				} else {
258
					$timestamp = strtotime($date);
259
					if ($timestamp !== false) {
260
						$date = strftime($format, $timestamp);
261
					}
262
				}
263
			} else {
264
				$e = "La chaine '$date' n'est pas reconnue.";
265
				trigger_error($e, E_USER_WARNING);
266
			}
17 jpm 267
		}
268
		return $date;
269
	}
270
 
93 jpm 271
	protected function formaterCourriels($courriels) {
97 jpm 272
		$fmt_courriels = '';
273
		if (!empty($courriels)) {
274
			$courriels = (is_array($courriels)) ? $courriels : array($courriels);
275
			foreach ($courriels as $cle => $courriel) {
282 delphine 276
			    $fmt = array();
97 jpm 277
				$courriel = preg_replace('/@/', ' [arrobase] ', $courriel);
278
				$courriel = preg_replace('/[.]([^.]+)$/', " [point] $1", $courriel);
282 delphine 279
				$fmt[] = $this->getVue('courriel', array('courriel' => $courriel));
97 jpm 280
			}
282 delphine 281
			$fmt_courriels = implode(', ', $fmt);
93 jpm 282
		}
283
		return $fmt_courriels;
284
	}
285
 
15 jpm 286
	protected function nettoyerPointFinal($mot) {
287
		$mot = preg_replace('/[.]$/', '', $mot);
288
		return $mot;
289
	}
290
 
291
	public function construireTxtListeOntologie($chaineAAnalyser, $valeurEstOntologie = true, $typeEstOntologie = true, $donneeEstOntologie = false) {
292
		$termes = array();
293
		$autres = array();
294
		$chaineAAnalyser = trim($chaineAAnalyser);
295
		if ($chaineAAnalyser != '') {
296
			$valeurs = explode(self::SEPARATEUR_VALEURS, $chaineAAnalyser);
297
			$nbreValeurs = count($valeurs);
298
			if ($nbreValeurs > 0)	{
299
				for ($i = 0; $i < $nbreValeurs; $i++)	{
300
					$valeur = $valeurs[$i];
301
 
302
					// VALEUR SANS TYPE
303
					// La valeur sans type est une entrée de l'ontologie
80 jpm 304
					if ($valeurEstOntologie && preg_match('/^[0-9]+$/u', $valeur)) {
15 jpm 305
						if ($valeur == '0') {
306
							$valeur = '';
307
						} else {
308
							$valeurOntologie = Ontologie::getValeur($valeur);
309
							if ($valeurOntologie != '') {
310
								$valeur = $valeurOntologie['nom'];
311
							}
312
						}
313
					}
314
 
315
					// VALEUR AVEC TYPE
316
					// Type : AUTRE
317
					$valeurTypeAutre = self::TYPE_AUTRE.self::SEPARATEUR_TYPE_VALEUR;
80 jpm 318
					if (preg_match('/^'.$valeurTypeAutre.'.+$/u', $valeur)) {
319
						$txtAutre = preg_replace('/^'.$valeurTypeAutre.'/u', '', $valeur);
15 jpm 320
						if ($txtAutre != '') {
321
							$autres[] = $txtAutre;
322
						}
323
						$valeur = '';
324
					}
325
					// Type correspondant à une entrée de l'ontologie
326
					if ($typeEstOntologie) {
19 jpm 327
						$valeurTypeOntologie = '([0-9]+)'.self::SEPARATEUR_TYPE_VALEUR;
80 jpm 328
						$valeurTypeAutre = '([[:alnum:]]+)'.self::SEPARATEUR_TYPE_VALEUR;
329
						if (preg_match('/^'.$valeurTypeOntologie.'.*$/u', $valeur, $match)) {// Cas type : réf. numérique
19 jpm 330
							$type = $match[1];
331
							$valeurOntologieNom = Ontologie::getValeurNom($type);
332
							if ($valeurOntologieNom !== false) {
80 jpm 333
								$valeurOntologieNom .= ' : ';
334
								$valeur = preg_replace('/^'.$type.'/u', $valeurOntologieNom, $valeur);
15 jpm 335
							}
80 jpm 336
						} else if (preg_match('/^'.$valeurTypeAutre.'.*$/u', $valeur, $match)) {// Cas type : AUTRE
337
							$type = $match[1];
338
							$valeur = preg_replace('/^'.$type.'/u', $type.' : ', $valeur);
15 jpm 339
						}
340
					}
341
					// Donnée correspondant à une entrée de l'ontologie
342
					if ($donneeEstOntologie) {
343
						$donneeOntologie = self::SEPARATEUR_TYPE_VALEUR.'([0-9]+)';
80 jpm 344
						if (preg_match('/^.+'.$donneeOntologie.'$/u', $valeur, $match)) {
15 jpm 345
							$donnee = $match[1];
346
							$donnee = str_replace(self::SEPARATEUR_TYPE_VALEUR, '', $donnee);
19 jpm 347
							$valeurOntologieNom = Ontologie::getValeurNom($donnee);
348
							if ($valeurOntologieNom !== false) {
80 jpm 349
								$valeur = preg_replace('/'.$donnee.'$/u', $valeurOntologieNom, $valeur);
15 jpm 350
							}
351
						}
352
					}
353
 
354
					// Nettoyage final
355
					$valeur = preg_replace('/'.self::SEPARATEUR_TYPE_VALEUR.'/', '', $valeur);
356
 
357
					if ($valeur != '') {
358
						$termes[] = $valeur;
359
					}
360
				}
361
			}
362
		}
363
 
364
		$chaineTermes = $this->formaterTableauDeTxt($termes);
365
		$chaineAutres = $this->formaterTableauDeTxt($autres);
366
		$chaineARetourner = $chaineTermes.$this->formaterAutre($chaineAutres);
367
 
368
		return $chaineARetourner;
369
	}
370
 
112 jpm 371
	protected function obtenirUrlRecherche($txt = null) {
372
		$this->url->setRequete(false);
169 jpm 373
		if (!is_null($this->registre->get('contexte'))) {
374
			$this->url->setVariableRequete('contexte', $this->registre->get('contexte'));
375
		}
112 jpm 376
		$this->url->setVariableRequete('module', 'Recherche');
377
		$this->url->setVariableRequete('action', 'rechercher');
378
		if (!is_null($txt)) {
379
			$this->url->setVariableRequete('recherche', $txt);
380
		}
381
		$url = $this->url->getURL();
382
		$this->url->unsetVariablesRequete(array('module', 'action', 'recherche'));
383
		return $url;
384
	}
385
 
18 jpm 386
	protected function obtenirUrlFicheStructure($id_structure) {
150 jpm 387
		$url = $this->obtenirObjetUrlFicheStructure($id_structure);
388
		return $url->getURL();
389
	}
390
 
391
	protected function obtenirObjetUrlFicheStructure($id_structure) {
112 jpm 392
		$this->url->setRequete(false);
169 jpm 393
		if (!is_null($this->registre->get('contexte'))) {
394
			$this->url->setVariableRequete('contexte', $this->registre->get('contexte'));
395
		}
112 jpm 396
		$this->url->setVariableRequete('module', 'FicheStructure');
18 jpm 397
		$this->url->setVariableRequete('id', $id_structure);
150 jpm 398
		$url = clone $this->url;
112 jpm 399
		$this->url->unsetVariablesRequete(array('module', 'id'));
18 jpm 400
		return $url;
401
	}
402
 
55 jpm 403
	protected function obtenirUrlFicheCollection($id_collection) {
144 jpm 404
		$url = $this->obtenirObjetUrlFicheCollection($id_collection);
405
		return $url->getURL();
406
	}
407
 
408
	protected function obtenirObjetUrlFicheCollection($id_collection) {
112 jpm 409
		$this->url->setRequete(false);
169 jpm 410
		if (!is_null($this->registre->get('contexte'))) {
411
			$this->url->setVariableRequete('contexte', $this->registre->get('contexte'));
412
		}
112 jpm 413
		$this->url->setVariableRequete('module', 'FicheCollection');
18 jpm 414
		$this->url->setVariableRequete('id', $id_collection);
144 jpm 415
		$url = clone $this->url;
112 jpm 416
		$this->url->unsetVariablesRequete(array('module', 'id'));
18 jpm 417
		return $url;
418
	}
19 jpm 419
 
55 jpm 420
	protected function obtenirUrlFichePersonne($id_personne) {
152 jpm 421
		$url = $this->obtenirObjetUrlFichePersonne($id_personne);
422
		return $url->getURL();
423
	}
424
 
425
	protected function obtenirObjetUrlFichePersonne($id_personne) {
112 jpm 426
		$this->url->setRequete(false);
169 jpm 427
		if (!is_null($this->registre->get('contexte'))) {
428
			$this->url->setVariableRequete('contexte', $this->registre->get('contexte'));
429
		}
112 jpm 430
		$this->url->setVariableRequete('module', 'FichePersonne');
55 jpm 431
		$this->url->setVariableRequete('id', $id_personne);
152 jpm 432
		$url = clone $this->url;
112 jpm 433
		$this->url->unsetVariablesRequete(array('module', 'id'));
55 jpm 434
		return $url;
435
	}
436
 
132 jpm 437
	protected function obtenirPermalienGuid($guid) {
438
		$url = Config::get('url_base_permalien');
439
		$url .= (substr($url, -1, 1) == '/') ? '' : '/';
440
		$url .= $guid;
441
		return $url;
442
	}
443
 
19 jpm 444
	protected function postraiterDonnees(&$tableau) {
445
		if (count($tableau) > 0) {
446
			foreach ($tableau as $cle => &$valeur) {
177 mathias 447
				// ajout d'un nbsp pour ne pas fausser l'affichage du template
448
				// afin que les <dd> et <dt> aient la même largeur
19 jpm 449
				if ($valeur == '') {
450
					$valeur = '&nbsp;';
451
				} else if (is_string($valeur)) {
144 jpm 452
					$valeur = $this->remplacerEsperluette($valeur);
19 jpm 453
				} else if (is_array($valeur)) {
454
					$this->postraiterDonnees($valeur);
455
				}
456
			}
457
		}
458
	}
85 jpm 459
 
144 jpm 460
	private function remplacerEsperluette($txt) {
461
		$txt = preg_replace('/&(?!([a-z]+|#[0-9]+|#x[0-9a-f]+);)/i', '&amp;', $txt, -1);
462
		return $txt;
463
	}
464
 
85 jpm 465
	protected function chargerPiedDePage() {
91 jpm 466
		$donnees['appli'] = Application::getInfo();
231 mathias 467
		$donnees['url_base_widget_remarques'] = Config::get('url_base_widget_remarques');
91 jpm 468
		$this->setSortie(self::RENDU_PIED, $this->getVue('pied', $donnees));
85 jpm 469
	}
9 jpm 470
}