Subversion Repositories eFlore/Applications.cel

Rev

Rev 3124 | Rev 3473 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1504 aurelien 1
<?php
2462 jpm 2
// declare(encoding='UTF-8');
1504 aurelien 3
/**
2462 jpm 4
 * Classe de gestion de l'ajout, modification et suppression des champs supplémentaires des obs et images.
5
 *
6
 * @internal   Mininum PHP version : 5.2
7
 * @category   CEL
8
 * @package    Services
9
 * @subpackage Bibliothèques
10
 * @version    0.1
11
 * @author     Mathias CHOUET <mathias@tela-botanica.org>
12
 * @author     Raphaël Droz <raphael@tela-botania.org>
13
 * @author     Jean-Pascal MILCENT <jpm@tela-botanica.org>
14
 * @author     Aurelien PERONNET <aurelien@tela-botanica.org>
15
 * @license    GPL v3 <http://www.gnu.org/licenses/gpl.txt>
16
 * @license    CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>
17
 * @copyright  1999-2014 Tela Botanica <accueil@tela-botanica.org>
18
 */
1512 aurelien 19
class GestionChampsEtendus extends Cel {
1565 jpm 20
 
1504 aurelien 21
	private $mode = null;
1512 aurelien 22
	private $table_champs_etendus = null;
1504 aurelien 23
	private $champ_id = null;
1565 jpm 24
 
1512 aurelien 25
	public function GestionChampsEtendus($config, $mode) {
1504 aurelien 26
		parent::__construct($config);
27
		$this->mode = $mode;
1565 jpm 28
 
29
		if ($this->mode == 'obs') {
1504 aurelien 30
			$this->mode = 'obs';
1512 aurelien 31
			$this->table_champs_etendus = 'cel_obs_etendues';
1504 aurelien 32
			$this->champ_id = 'id_observation';
1565 jpm 33
		} else if ($this->mode == 'image') {
1504 aurelien 34
			$this->mode = 'image';
1512 aurelien 35
			$this->table_champs_etendus = 'cel_images_etendues';
1504 aurelien 36
			$this->champ_id = 'id_image';
37
		} else {
38
			throw new Exception('Mode inconnu, les modes autorisés sont "obs" et "image"');
1565 jpm 39
		}
1504 aurelien 40
	}
1565 jpm 41
 
1504 aurelien 42
	/**
43
	* Renvoie true ou false suivant que l'element indiqué possède une valeur
44
	* pour la clé indiquée
45
	*
46
	* @param int $id_element_lie
47
	* @param string $cle
48
	* @param string $valeur
49
	* @return bool
50
	*/
1565 jpm 51
	public function existe($id_element_lie, $cle) {
1765 raphael 52
		$id = Cel::db()->proteger($id_element_lie);
53
		$cle = Cel::db()->proteger($cle);
1565 jpm 54
		$requete = 'SELECT COUNT(*) >= 1 AS existe '.
55
			"FROM {$this->table_champs_etendus} ".
56
			"WHERE {$this->champ_id} = $id ".
2462 jpm 57
			"	AND cle = $cle ".
58
			' -- '.__FILE__.':'.__LINE__;;
1504 aurelien 59
 
2143 jpm 60
		$resultat = Cel::db()->requeter($requete);
1565 jpm 61
		return ($resultat[0]['existe'] == '1');
1504 aurelien 62
	}
1565 jpm 63
 
1504 aurelien 64
	/**
1512 aurelien 65
	* Renvoie tous les champs étendus associé à l'élément passé en paramètre
1504 aurelien 66
	*
67
	* @param int $id_element_lie
1565 jpm 68
	* @return array tableau associatif des champs de la table etendu
1504 aurelien 69
	*/
1565 jpm 70
	public function consulter($id_element_lie) {
1765 raphael 71
		$id = Cel::db()->proteger($id_element_lie);
2462 jpm 72
		$requete = 'SELECT * '.
73
			"FROM {$this->table_champs_etendus} ".
74
			"WHERE {$this->champ_id} = $id ".
75
			' -- '.__FILE__.':'.__LINE__;
2143 jpm 76
		$resultat = Cel::db()->requeter($requete);
1504 aurelien 77
		return $resultat;
78
	}
1565 jpm 79
 
1504 aurelien 80
	/**
1565 jpm 81
	* Renvoie tous les champs étendus associés aux éléments passés en paramètre.
82
	* Retour sous forme de tableau associatif de tableau d'objets ChampEtendu.
83
	* Les objets ChampEtendu sont regroupés par id d'élement.
1504 aurelien 84
	*
1565 jpm 85
	* @param array $ids_element_lies tableau d'id des éléments liés (obs ou image).
86
	* @return array tableau associatif de tableau d'objets ChampEtendu.
1504 aurelien 87
	*/
1565 jpm 88
	public function consulterParLots(Array $ids_element_lies) {
1512 aurelien 89
		$champs_etendus_par_element = array();
1565 jpm 90
		if (!empty($ids_element_lies)) {
1765 raphael 91
			$ids_element_lies = array_map(array(Cel::db(), 'proteger'),$ids_element_lies);
1565 jpm 92
			$ids = implode(',', $ids_element_lies);
93
 
94
			$requete = "SELECT * FROM {$this->table_champs_etendus} WHERE {$this->champ_id} IN ($ids) ";
2143 jpm 95
			$resultats = Cel::db()->requeter($requete);
1565 jpm 96
 
1527 aurelien 97
			foreach ($resultats as &$ligne) {
98
				$id_element = $ligne[$this->champ_id];
1565 jpm 99
				if (!isset($champs_etendus_par_element[$id_element])) {
1527 aurelien 100
					$champs_etendus_par_element[$id_element] = array();
101
				}
1565 jpm 102
				$champ_etendu = new ChampEtendu();
103
				$champ_etendu->id = $id_element;
104
				$champ_etendu->cle = $ligne['cle'];
105
				$champ_etendu->valeur = $ligne['valeur'];
106
 
107
				$champs_etendus_par_element[$id_element][] = $champ_etendu;
1504 aurelien 108
			}
109
		}
1512 aurelien 110
		return $champs_etendus_par_element;
1504 aurelien 111
	}
1565 jpm 112
 
1504 aurelien 113
	/**
1565 jpm 114
	 * Ajoute un champ étendu.
115
	 * Si la clé existe déjà, seule valeur du champ est mise à jour
1504 aurelien 116
	 *
1565 jpm 117
	 * @param ChampEtendu $champ_etendu
118
	 * @return bool true si l'ajout a eu lieu
1504 aurelien 119
	 */
1565 jpm 120
	public function ajouter(ChampEtendu $champ_etendu) {
1765 raphael 121
		$id = Cel::db()->proteger($champ_etendu->id);
122
		$cle = Cel::db()->proteger($champ_etendu->cle);
123
		$valeur = Cel::db()->proteger($champ_etendu->valeur);
1504 aurelien 124
 
1565 jpm 125
		$requete = "INSERT INTO {$this->table_champs_etendus} ".
2394 aurelien 126
			"( {$this->champ_id}, cle, valeur) ".
127
			"VALUES ($id, $cle, $valeur) ".
2462 jpm 128
			"ON DUPLICATE KEY UPDATE valeur = VALUES(valeur) ".
129
			' -- '.__FILE__.':'.__LINE__;
1565 jpm 130
 
1504 aurelien 131
		// la partie on duplicate key est spécifique mysql mais il sera facile de s'en passer le jour
132
		// où l'on change de sgbd
2143 jpm 133
		$ajout = Cel::db()->executer($requete);
1504 aurelien 134
		return ($ajout !== false);
135
	}
1565 jpm 136
 
1504 aurelien 137
	/**
2462 jpm 138
	 * Ajoute plusieurs champs étendus à la fois.
139
	 * Si la clé existe déjà, seule la valeur du champ est mise à jour
140
	 *
141
	 * @param array $champs_etendus tableau d'objets ChampEtendu
142
	 * @return bool true si l'ajout a eu lieu
143
	 */
1565 jpm 144
	public function ajouterParLots(Array $champs_etendus) {
2462 jpm 145
		if (! $champs_etendus) return TRUE; // le tableau ... vide à été inséré
1903 raphael 146
 
1504 aurelien 147
		$lignes = array();
1565 jpm 148
		foreach ($champs_etendus as $champ_etendu) {
1765 raphael 149
			$id = Cel::db()->proteger($champ_etendu->id);
150
			$cle = Cel::db()->proteger($champ_etendu->cle);
151
			$valeur = Cel::db()->proteger($champ_etendu->valeur);
1565 jpm 152
 
2394 aurelien 153
			$lignes[] = "($id, $cle, $valeur)";
1504 aurelien 154
		}
155
 
156
		// la partie on duplicate key est spécifique mysql mais il sera facile de s'en passer le jour
157
		// où l'on change de sgbd
2143 jpm 158
		$ajout = Cel::db()->executer(sprintf(
2462 jpm 159
			"INSERT INTO %s (%s, cle, valeur) VALUES %s ON DUPLICATE KEY UPDATE valeur = VALUES(valeur) -- %s:%d",
160
			$this->table_champs_etendus,
161
			$this->champ_id,
162
			implode(',', $lignes),
163
			__FILE__, __LINE__));
1504 aurelien 164
		return ($ajout !== false);
165
	}
1565 jpm 166
 
1504 aurelien 167
	/**
1512 aurelien 168
	 * Modifie un champ étendu associé à l'élément passé en paramètre
1504 aurelien 169
	 *
1565 jpm 170
	 * @param ChampEtendu $champ_etendu
171
	 * @return bool true si la modification a eu lieu
1504 aurelien 172
	 */
1565 jpm 173
	public function modifier(ChampEtendu $champ_etendu) {
1765 raphael 174
		$id = Cel::db()->proteger($champ_etendu->id);
175
		$cle = Cel::db()->proteger($champ_etendu->cle);
176
		$valeur = Cel::db()->proteger($champ_etendu->valeur);
1565 jpm 177
 
178
		$requete = "UPDATE {$this->table_champs_etendus} ".
2394 aurelien 179
			"SET valeur = $valeur ".
1565 jpm 180
			"WHERE cle = $cle".
2462 jpm 181
			"	AND {$this->champ_id} = $id ".
182
			' -- '.__FILE__.':'.__LINE__;
2143 jpm 183
		$modif = Cel::db()->executer($requete);
1504 aurelien 184
		return ($modif !== false);
185
	}
1565 jpm 186
 
1504 aurelien 187
	/**
1565 jpm 188
	* Supprime le champ champ étendu associé à l'élément et au nom de clé passés en paramètre
1504 aurelien 189
	*
190
	* @param int $id_element_lie
191
	* @param string $cle
192
	* @return bool
193
	*/
1565 jpm 194
	public function supprimer($id_element_lie, $cle) {
1765 raphael 195
		$id = Cel::db()->proteger($id_element_lie);
196
		$cle = Cel::db()->proteger($cle);
2462 jpm 197
		$requete = "DELETE FROM {$this->table_champs_etendus} ".
198
			"WHERE cle = $cle ".
199
			"AND {$this->champ_id} = $id ".
200
			' -- '.__FILE__.':'.__LINE__;
2143 jpm 201
		$suppr = Cel::db()->executer($requete);
1504 aurelien 202
		return ($suppr !== false);
203
	}
1565 jpm 204
 
1504 aurelien 205
	/**
1512 aurelien 206
	* Supprime tous les champs champ étendu associés à l'élément passés en paramètre
1504 aurelien 207
	*
208
	* @param int $id_element_lie
209
	* @return bool
210
	*/
1565 jpm 211
	public function vider($id_element_lie) {
1765 raphael 212
		$id = Cel::db()->proteger($id_element_lie);
2462 jpm 213
		$requete = "DELETE FROM {$this->table_champs_etendus} ".
214
			"WHERE {$this->champ_id} = $id ".
215
			' -- '.__FILE__.':'.__LINE__;
2143 jpm 216
		$suppr = Cel::db()->executer($requete);
1504 aurelien 217
		return ($suppr !== false);
218
	}
1574 jpm 219
 
1569 aurelien 220
	/**
221
	* Supprime tous les champs champ étendu associés aux éléments passés en paramètre
222
	*
223
	* @param array $ids_elements_lies
224
	* @return bool
225
	*/
226
	public function viderParLots($ids_elements_lies) {
227
		$ids = $this->protegerTableau($ids_elements_lies);
2462 jpm 228
		$requete = "DELETE FROM {$this->table_champs_etendus} ".
229
			"WHERE {$this->champ_id} IN (".implode(',',$ids).") ".
230
			' -- '.__FILE__.':'.__LINE__;
2143 jpm 231
		$suppr = Cel::db()->executer($requete);
1569 aurelien 232
		return ($suppr !== false);
233
	}
2143 jpm 234
 
1659 aurelien 235
	/**
236
	* Revnoie tous les intitules aux éléments passés en paramètre
237
	*
238
	* @param array $ids_elements_lies
239
	* @return bool
240
	*/
241
	public function consulterClesParLots($ids_elements_lies) {
242
		$cles_fmt = array();
1686 aurelien 243
		if(!empty($ids_elements_lies)) {
244
			$ids = $this->protegerTableau($ids_elements_lies);
2462 jpm 245
			$requete = 'SELECT cle '.
246
				"FROM {$this->table_champs_etendus} ".
247
				"WHERE {$this->champ_id} IN (".implode(',',$ids).") ".
248
				' -- '.__FILE__.':'.__LINE__;
2143 jpm 249
			$cles = Cel::db()->requeter($requete);
1738 raphael 250
			$i = 0;
1686 aurelien 251
			foreach($cles as &$cle) {
1738 raphael 252
				$cles_fmt[$cle['cle']] = $i++;
1686 aurelien 253
			}
1659 aurelien 254
		}
1738 raphael 255
		return array_values(array_flip($cles_fmt));
1659 aurelien 256
	}
2143 jpm 257
 
2038 aurelien 258
	/**
259
	 * Renvoie la liste des groupes de champs étendus
260
	 */
3124 delphine 261
	public function consulterGroupesChampsEtendusPredefinis($groupe = "", $langue = 'fr') {
2038 aurelien 262
		$groupes = array();
3124 delphine 263
		$requete =  "SELECT cc.cle as cle_groupe, cc.label as nom_groupe, ccc.cle as cle_champ, ccc.label as label_champ, ccc.type as type_champ, ccc.valeur as valeur_champ, ccc.invisible, ccc.prive ".
2462 jpm 264
			"FROM `cel_catalogue_champs_etendus` cc ".
265
			"INNER JOIN cel_catalogue_champs_etendus_liaison cl ON cc.cle = cl.groupe ".
3166 idir 266
			"INNER JOIN cel_catalogue_champs_etendus ccc ON ccc.cle = cl.champ ".
3124 delphine 267
			"WHERE cc.langue = '".$langue."' ";
268
		if ($groupe !== "") $requete .= " AND cl.groupe = '".$groupe."'";
269
		$requete .= ' -- '.__FILE__.':'.__LINE__;
2462 jpm 270
		$groupes_champs = Cel::db()->executerRequete($requete);
2143 jpm 271
 
2462 jpm 272
		$cle_groupe = '';
2394 aurelien 273
		$infos_groupe = null;
2462 jpm 274
 
2394 aurelien 275
		foreach ($groupes_champs as $groupe_champ) {
276
			// les champs sont ordonnés par groupe, ce qui permet de les assembler
277
			// séquentiellement en créeant un nouveau groupe lorsque la clé
278
			// de groupe du champ actuel est différénte de la précédente
2462 jpm 279
			if ($cle_groupe != $groupe_champ['cle_groupe']) {
2394 aurelien 280
				if($infos_groupe != null) {
281
					$groupes[] = $infos_groupe;
282
				}
283
				$infos_groupe = array();
284
				$cle_groupe = $groupe_champ['cle_groupe'];
2038 aurelien 285
			}
2462 jpm 286
 
287
			if (empty($infos_groupe)) {
2394 aurelien 288
				$infos_groupe = array(
2462 jpm 289
					'cle' => $groupe_champ['cle_groupe'],
290
					'nom' => $groupe_champ['nom_groupe'],
291
					'champs' => array()
292
				);
2394 aurelien 293
			}
2462 jpm 294
 
2394 aurelien 295
			$infos_groupe['champs'][] = array(
2462 jpm 296
				'cle'	=> $groupe_champ['cle_champ'],
297
				'label' => $groupe_champ['label_champ'],
3124 delphine 298
				'type' => $groupe_champ['type_champ'],
299
				'valeur' => $groupe_champ['valeur_champ'],
2462 jpm 300
				'options' => array(
301
					'invisible' => $groupe_champ['invisible'],
302
					'prive'	=> $groupe_champ['prive'])
303
			);
2394 aurelien 304
		}
2462 jpm 305
 
306
		// Ajout du dernier groupe, qui serait ignoré sinon, étant donné que l'ajout
2394 aurelien 307
		// au tableau se fait au début de la boucle
308
		//TODO: voir si on ne peut pas simplifier ça
2462 jpm 309
		if (!empty($infos_groupe)) {
2394 aurelien 310
			$groupes[] = $infos_groupe;
311
		}
312
 
2038 aurelien 313
		return $groupes;
314
	}
2462 jpm 315
 
2394 aurelien 316
	/**
317
	 * Renvoie le catalogue des champs étendus
318
	 */
3124 delphine 319
	public function consulterCatalogueChampsEtendusPredefinis($ordonner_par_cle = false, $groupe = "") {
2462 jpm 320
		$requete =  'SELECT cle, label, invisible, prive '.
3124 delphine 321
			'FROM cel_catalogue_champs_etendus AS cc ';
322
		if ($groupe !== "") $requete .= " WHERE groupe = ".$groupe;
323
		$requete .= ' -- '.__FILE__.':'.__LINE__;
2394 aurelien 324
		$catalogue = Cel::db()->executerRequete($requete);
2462 jpm 325
 
2394 aurelien 326
		$infos_champs = array();
3124 delphine 327
		if ($catalogue != false) {
328
			foreach ($catalogue as $champ) {
329
				$champ_fmt = array(
330
					'cle'	=> $champ['cle'],
331
					'label' => $champ['label'],
332
					'options' => array(
333
						'invisible' => $champ['invisible'],
334
						'prive'	=> $champ['prive'])
335
				);
336
				if ($ordonner_par_cle) {
337
					$infos_champs[$champ_fmt['cle']] = $champ_fmt;
338
				} else {
339
					$infos_champs[] = $champ_fmt;
340
				}
2462 jpm 341
			}
2394 aurelien 342
		}
343
		return $infos_champs;
344
	}
1565 jpm 345
 
346
	/**
347
	 * Transforme un label en clé.
348
	 * Supprime tous les accents et caractères spéciaux.
349
	 * Accole les mots pour créer un chatmot.
350
	 *
351
	 * @param string le label.
352
	 * @return string la clé correspondante
353
	 */
354
	public function transformerLabelEnCle($label) {
2462 jpm 355
		//TODO: cette fonction est elle encore pertinente
2403 aurelien 356
		// maintenant que la notion de label est supprimée ?
1565 jpm 357
		$cle = strtolower(trim($label));
358
 
359
		// Suppression des mots inutiles
360
		$mots_a_remplacer = array(' le ', ' la ', ' les ', ' des ', ' de ', " l'", " d'", ' à ', ' au ');
361
		$cle = str_replace($mots_a_remplacer, ' ', $cle);
362
 
363
		// Remplacement parenthèses et crochets et leurs contenus
364
		$cle = preg_replace('/\([^)]+\)/', '', $cle);
365
		$cle = preg_replace('/\[[^\]]+\]/', '', $cle);
366
 
367
		// Remplacement des accents (voir : http://www.weirdog.com/blog/php/supprimer-les-accents-des-caracteres-accentues.html )
368
		$cle = htmlentities($cle, ENT_NOQUOTES, 'utf-8');
369
		$cle = preg_replace('/&([A-za-z])(?:acute|cedil|circ|grave|orn|ring|slash|th|tilde|uml);/', '\1', $cle);
370
		$cle = preg_replace('/&([A-za-z]{2})(?:lig);/', '\1', $cle); // pour les ligatures e.g. '&oelig;'
371
		$cle = preg_replace('/&[^;]+;/', '', $cle); // supprime les autres caractères
372
 
373
		// Suppression définitive de tout ce qui n'est pas ASCII
1574 jpm 374
		$cle = preg_replace('/[^a-zA-Z0-9 ]/', ' ', $cle);
375
		$cle = preg_replace('/\s+/', ' ', $cle);
1565 jpm 376
 
377
		// Accollement des mots
378
		$cle = ucwords($cle);
379
		$cle = str_replace(' ', '', $cle);
1574 jpm 380
		$cle{0} = strtolower($cle{0});
1565 jpm 381
 
382
		return $cle;
383
	}
3166 idir 384
}