Subversion Repositories eFlore/Applications.cel

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2025 aurelien 1
<?php
2
/**
3
* @package   jrest
4
* @author    Aurélien Peronnet <aurelien@tela-botania.org>
5
* @copyright 2010, 2013 Tela-Botanica
6
* @license   http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL
7
*
8
* Librairie de liaison d'images et d'observation à des mots clés en utilisant la méthode
9
* path enumeration
10
*/
11
 
12
class GestionMotsClesChemin {
2101 jpm 13
 
2025 aurelien 14
	private $config;
15
	private $mode;
2101 jpm 16
 
2025 aurelien 17
	private $table_liaison;
18
	private $table_mots_cles;
2101 jpm 19
 
2032 aurelien 20
	//TODO: trigger pour les tables liaisons
2101 jpm 21
 
2026 aurelien 22
	public function GestionMotsClesChemin($config, $mode = 'obs') {
2025 aurelien 23
		$this->config = $config;
24
		//TODO: switch suivant mode
2027 aurelien 25
		$this->mode = $mode;
2101 jpm 26
 
2060 aurelien 27
		list($this->table_liaison, $this->table_mots_cles) = self::getTablesMotsClesEtLiaisons($mode);
2059 aurelien 28
	}
2101 jpm 29
 
30
	public function obtenirArbre($id_utilisateur, $chemin = '/') {
31
		$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
32
		$cheminP = Cel::db()->proteger($chemin.'%');
33
 
34
		$requete = 'SELECT * '.
35
			"FROM {$this->table_mots_cles} ".
36
			"WHERE id_utilisateur = $idUtilisateurP ".
37
			"AND chemin LIKE $cheminP ".
38
			'ORDER BY chemin '.
39
			' -- '.__FILE__.':'.__LINE__;
40
 
41
		$arbre = Cel::db()->requeter($requete);
2187 mathias 42
		foreach ($arbre as &$noeud) {
43
			$noeud['chemin'] = strtolower($noeud['chemin']);
44
		}
2026 aurelien 45
		usort($arbre, array('GestionMotsClesChemin', 'comparerProfNoeuds'));
2025 aurelien 46
		return $arbre;
47
	}
2101 jpm 48
 
2042 aurelien 49
	public function obtenirIdsMotsClesParIdParent($id_utilisateur, $id_mot_cle) {
2101 jpm 50
		$idMotCleP = Cel::db()->proteger($id_mot_cle);
2111 aurelien 51
		$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
2042 aurelien 52
 
2101 jpm 53
		$sousRequete = "SELECT chemin FROM {$this->table_mots_cles} WHERE id_mot_cle = $idMotCleP ";
54
		$requete = 'SELECT id_mot_cle '.
55
			"FROM {$this->table_mots_cles} ".
56
			"WHERE chemin LIKE CONCAT(($sousRequete), '%') ".
2111 aurelien 57
			"AND id_utilisateur = ".$idUtilisateurP." ".
2101 jpm 58
			' -- '.__FILE__.':'.__LINE__;
59
 
2143 jpm 60
		$ids_enfants = Cel::db()->requeter($requete);
2101 jpm 61
 
2042 aurelien 62
		return $ids_enfants;
63
	}
2101 jpm 64
 
2241 mathias 65
	/**
66
	 * Retourne la liste des mots clés pour l'élément lié fourni. Ne tient pas compte de l'utilisateur
67
	 * car seul le propriétaire d'un élément lié peut y lier des mots clés
68
	 */
69
	public function obtenirIdsMotsClesParIdElementLie($id_element_lie) {
70
		$idElementLieP = Cel::db()->proteger($id_element_lie);
71
 
72
		$requete = "SELECT id_mot_cle FROM {$this->table_liaison} WHERE id_element_lie = $idElementLieP" .
73
			' -- '.__FILE__.':'.__LINE__;
74
 
75
		$ids_mots_cles = Cel::db()->requeter($requete);
76
 
77
		return $ids_mots_cles;
78
	}
79
 
2056 aurelien 80
	public function insererParCheminSiInexistant($mot_cle, $chemin_parent, $id_utilisateur) {
2199 mathias 81
		$mot_cle = self::simplifier($mot_cle);
2101 jpm 82
		$cheminMotCle = self::getCheminHarmonise($chemin_parent, $mot_cle);
83
		$cheminMotCleP = Cel::db()->proteger($cheminMotCle);
84
		$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
2056 aurelien 85
 
2101 jpm 86
		$requete = 'SELECT id_mot_cle '.
87
			"FROM {$this->table_mots_cles} ".
88
			"WHERE chemin = $cheminMotCleP ".
89
			"AND id_utilisateur = $idUtilisateurP ".
90
			' -- '.__FILE__.':'.__LINE__;
91
 
2143 jpm 92
		$infosMotCle = Cel::db()->requeter($requete);
2101 jpm 93
 
94
		if (!empty($infosMotCle)) {
95
			$idMotCle = $infosMotCle[0]['id_mot_cle'];
2056 aurelien 96
		} else {
2101 jpm 97
			$idMotCle = $this->insererParChemin($mot_cle, $chemin_parent, $id_utilisateur);
2056 aurelien 98
		}
2101 jpm 99
		return $idMotCle;
2056 aurelien 100
	}
2101 jpm 101
 
102
	public function insererParChemin($mot_cle, $chemin_parent, $id_utilisateur) {
2199 mathias 103
		$mot_cle = self::simplifier($mot_cle);
2101 jpm 104
		$cheminMotCle = self::getCheminHarmonise($chemin_parent, $mot_cle);
105
		$cheminMotCleP = Cel::db()->proteger($cheminMotCle);
106
		$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
107
		$motCleP = Cel::db()->proteger($mot_cle);
108
 
109
		$requete = "INSERT INTO {$this->table_mots_cles} ".
110
			'(chemin, id_utilisateur, mot_cle) '.
111
			"VALUES ($cheminMotCleP, $idUtilisateurP, $motCleP ) ".
112
			' -- '.__FILE__.':'.__LINE__;
113
 
114
		$insertion = Cel::db()->executer($requete);
2042 aurelien 115
		$resultat = false;
2101 jpm 116
		if ($insertion !== false) {
2042 aurelien 117
			$resultat = Cel::db()->obtenirDernierId();
118
		}
119
		return $resultat;
2025 aurelien 120
	}
2101 jpm 121
 
122
	public function insererParIdParent($mot_cle, $id_parent, $id_utilisateur) {
123
		$motCleSimple = self::simplifier($mot_cle);
2196 mathias 124
		$motCleSimpleP = Cel::db()->proteger(strtolower(self::supprimerAccents($mot_cle)));
2101 jpm 125
		$idParentP = Cel::db()->proteger($id_parent);
126
		$racineP = Cel::db()->proteger('/');
127
		$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
128
		$motCleP = Cel::db()->proteger($mot_cle);
129
 
130
		$sousRequete = $racineP;
131
		if ($id_parent != '') {
132
			$sousRequete = '(SELECT chemin '.
133
				"FROM {$this->table_mots_cles} AS ctp ".
134
				"WHERE ctp.id_mot_cle = $idParentP) ";
2042 aurelien 135
		}
2045 aurelien 136
 
2101 jpm 137
		$requete = "INSERT INTO {$this->table_mots_cles} (chemin, id_utilisateur, mot_cle) ".
138
			"VALUES (CONCAT($sousRequete, $motCleSimpleP, '/'), $idUtilisateurP, $motCleP ) ".
139
			' -- '.__FILE__.':'.__LINE__;
140
 
141
		$insertion = Cel::db()->executer($requete);
142
		if ($insertion !== false) {
2042 aurelien 143
			$resultat = Cel::db()->obtenirDernierId();
144
		}
145
		return $resultat;
2025 aurelien 146
	}
2101 jpm 147
 
2032 aurelien 148
	public function lierParId($id_mot_cle, $id_element_lie) {
2101 jpm 149
		$idElementLieP = Cel::db()->proteger($id_element_lie);
150
		$idMotCleP = Cel::db()->proteger($id_mot_cle);
2143 jpm 151
 
2101 jpm 152
		$requete = "INSERT INTO {$this->table_liaison} (id_element_lie, id_mot_cle) ".
153
			"VALUES ($idElementLieP, $idMotCleP) ".
154
			'ON DUPLICATE KEY UPDATE id_element_lie = id_element_lie '.
155
			' -- '.__FILE__.':'.__LINE__;
156
 
157
		$liaison = Cel::db()->executer($requete);
2025 aurelien 158
		return $liaison;
159
	}
2101 jpm 160
 
2032 aurelien 161
	public function lierParChemin($chemin, $id_element_lie, $id_utilisateur) {
2101 jpm 162
		$cheminP = Cel::db()->proteger(self::harmoniserChemin($chemin));
163
		$idElementLieP = Cel::db()->proteger($id_element_lie);
164
		$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
2143 jpm 165
 
2101 jpm 166
		$sousRequete = '(SELECT id_mot_cle '.
167
			"FROM {$this->table_mots_cles} ".
168
			"WHERE chemin = $cheminP ".
169
			"AND id_utilisateur = $idUtilisateurP ".
170
			')';
171
		$requete = "INSERT INTO {$this->table_liaison} (id_element_lie, id_mot_cle) ".
172
			"VALUES ($idElementLieP, $sousRequete) ".
173
			'ON DUPLICATE KEY UPDATE id_element_lie = id_element_lie '.
174
			' -- '.__FILE__.':'.__LINE__;
2032 aurelien 175
 
2101 jpm 176
		$liaison = Cel::db()->executer($requete);
2025 aurelien 177
		return $liaison;
178
	}
2101 jpm 179
 
2241 mathias 180
	public function lierParTableaux($ids_mots_cles, $ids_elements_lies) {
2101 jpm 181
		$combinaisons = array();
182
		foreach ($ids_mots_cles as $id_mot_cle) {
183
			$idMotCleP = Cel::db()->proteger($id_mot_cle);
184
			foreach ($ids_elements_lies as $id_element_lie) {
185
				$idElementLieP = Cel::db()->proteger($id_element_lie);
186
				$combinaisons[] = "($idElementLieP, $idMotCleP)";
2042 aurelien 187
			}
2101 jpm 188
		}
189
 
190
		$valeursGroupees = implode(', ', $combinaisons);
191
		$requete = "INSERT INTO {$this->table_liaison} (id_element_lie, id_mot_cle) ".
192
			"VALUES $valeursGroupees ".
193
			"ON DUPLICATE KEY UPDATE id_element_lie = id_element_lie ".
194
			' -- '.__FILE__.':'.__LINE__;
195
		$liaison = Cel::db()->executer($requete);
196
 
2042 aurelien 197
		return $liaison;
198
	}
2101 jpm 199
 
2241 mathias 200
	/**
201
	 * Modifie les liaisons aux mots clés pour chaque element lié, en supprimant et ajoutant seulement les
202
	 * mots clés qui ont changé, sans toucher à ceux qui sont conservés. Ça évite de tout supprimer avant,
203
	 * et ainsi de perdre la date de liaison des mots clés conservés.
204
	 */
205
	public function modifierLiaisonParTableaux($ids_mots_cles, $ids_elements_lies) {
206
		$reussi = true;
207
 
208
		foreach ($ids_elements_lies as $id_element_lie) {
209
			$idElementLieP = Cel::db()->proteger($id_element_lie);
210
			// trouver les mots clés actuels
211
			$ids_mots_cles_actuels = $this->obtenirIdsMotsClesParIdElementLie($id_element_lie);
212
			if (! is_array($ids_mots_cles_actuels)) {
213
				$ids_mots_cles_actuels = array();
214
			}
215
			// remise en forme
216
			foreach ($ids_mots_cles_actuels as $k => $v) {
217
				if (isset($v['id_mot_cle'])) { // je vois mal comment ça pourrait ne pas être set
218
					$ids_mots_cles_actuels[$k] = $v['id_mot_cle'];
219
				}
220
			}
221
 
222
			// changements
223
			$ids_mots_cles_ajoutes = array_diff($ids_mots_cles, $ids_mots_cles_actuels);
224
			$ids_mots_cles_supprimes = array_diff($ids_mots_cles_actuels, $ids_mots_cles);
225
 
226
			// insérer
227
			if (count($ids_mots_cles_ajoutes) > 0) {
228
				$combinaisons = array();
229
				foreach ($ids_mots_cles_ajoutes as $id_mot_cle) {
230
					$idMotCleP = Cel::db()->proteger($id_mot_cle);
231
					$combinaisons[] = "($idElementLieP, $idMotCleP)";
232
				}
233
				$valeursGroupees = implode(', ', $combinaisons);
234
				$requete = "INSERT INTO {$this->table_liaison} (id_element_lie, id_mot_cle) ".
235
						"VALUES $valeursGroupees ".
236
						"ON DUPLICATE KEY UPDATE id_element_lie = id_element_lie ". // normalement pas nécessaire
237
						' -- '.__FILE__.':'.__LINE__;
238
				$resultat = Cel::db()->executer($requete);
239
				$reussi = ($reussi && $resultat);
240
			}
241
 
242
			// supprimer
243
			if (count($ids_mots_cles_supprimes) > 0) {
244
				$clauses = array();
245
				foreach ($ids_mots_cles_supprimes as $id_mot_cle) {
246
					$idMotCleP = Cel::db()->proteger($id_mot_cle);
247
					$clauses[] = "(id_element_lie = $idElementLieP AND id_mot_cle = $idMotCleP)";
248
				}
249
				$clause = implode(' OR ', $clauses);
250
				$requete = "DELETE FROM {$this->table_liaison} WHERE $clause" .
251
					' -- '.__FILE__.':'.__LINE__;
252
				$resultat = Cel::db()->executer($requete);
253
				$reussi = ($reussi && $resultat);
254
			}
255
		}
256
 
257
		return $reussi;
258
	}
259
 
2042 aurelien 260
	public function supprimerLiaisonsMotsCles($ids_mots_cles, $ids_elements_lies, $id_utilisateur) {
261
		$combinaisons = array();
2101 jpm 262
		foreach ($ids_mots_cles as $id_mot_cle) {
263
			$idMotCleP = Cel::db()->proteger($id_mot_cle);
264
			foreach ($ids_elements_lies as $id_element_lie) {
265
				$idElementLieP = Cel::db()->proteger($id_element_lie);
266
				$combinaisons[] = "(id_element_lie = $idElementLieP AND id_mot_cle = $idMotCleP)";
2042 aurelien 267
			}
2101 jpm 268
		}
269
		$clauseWhere = implode(' OR ', $combinaisons);
2143 jpm 270
 
2101 jpm 271
		$requete = "DELETE FROM {$this->table_liaison} ".
272
			"WHERE $clauseWhere ".
273
			' -- '.__FILE__.':'.__LINE__;
2143 jpm 274
 
2101 jpm 275
		$suppression = Cel::db()->executer($requete);
2042 aurelien 276
		return $suppression;
277
	}
2101 jpm 278
 
2058 aurelien 279
	public function supprimerToutesLiaisonsPourIdsElementsLies($ids_elements_lies) {
2143 jpm 280
		$idsElementsLiesP = Cel::db()->proteger($ids_elements_lies);
2101 jpm 281
		$listeIds = implode(',', $idsElementsLiesP);
2143 jpm 282
 
2101 jpm 283
		$requete = "DELETE FROM {$this->table_liaison} ".
284
			"WHERE id_element_lie IN ($listeIds) ".
285
			' -- '.__FILE__.':'.__LINE__;
286
 
287
		$suppression = Cel::db()->executer($requete);
288
		$suppression = ($suppression !== false) ? true : false;
2042 aurelien 289
		return $suppression;
290
	}
2101 jpm 291
 
2042 aurelien 292
	public function supprimerToutesLiaisonsIdsMotsCles($ids_mots_cles, $id_utilisateur) {
2101 jpm 293
		$suppression = true;
294
		if (!empty($ids_mots_cles)) {
2143 jpm 295
			$idsMotsClesP = Cel::db()->proteger($ids_mots_cles);
2101 jpm 296
			$listeIds = implode(',', $idsMotsClesP);
2143 jpm 297
 
2101 jpm 298
			$requete = "DELETE FROM {$this->table_liaison} ".
299
				"WHERE id_mot_cle IN ($listeIds) ".
300
				' -- '.__FILE__.':'.__LINE__;
301
 
2143 jpm 302
			$suppression = Cel::db()->executer($requete);
2101 jpm 303
			$suppression = ($suppression !== false) ? true : false;
2042 aurelien 304
		}
305
		return $suppression;
306
	}
2101 jpm 307
 
308
	/**
309
	 * Supprime toutes les laisons pour un utilisateur et un mot clé (au sens textuel) donnés.
2143 jpm 310
	 *
2101 jpm 311
	 */
2046 aurelien 312
	public function supprimerLiaisonPourMotCleEtIdElementLie($mot_cle, $id_element_lie, $id_utilisateur) {
2199 mathias 313
		$mot_cle = self::simplifier($mot_cle);
2101 jpm 314
		$idElementLieP = Cel::db()->proteger($id_element_lie);
315
		$motCleP = Cel::db()->proteger($mot_cle);
316
		$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
2143 jpm 317
 
2101 jpm 318
		$sousRequete = "SELECT id_mot_cle FROM {$this->table_mots_cles} ".
319
			"WHERE mot_cle = $motCleP ".
320
			"AND id_utilisateur = $idUtilisateurP ";
321
		$requete = "DELETE FROM {$this->table_liaison} ".
322
			"WHERE id_element_lie = $idElementLieP ".
323
			"AND id_mot_cle IN ($sousRequete) ".
324
			' -- '.__FILE__.':'.__LINE__;
2046 aurelien 325
 
2143 jpm 326
		$suppression_liaison = Cel::db()->executer($requete);
2046 aurelien 327
		$suppression_liaison = ($suppression_liaison !== false);
328
 
329
		return $suppression_liaison;
330
	}
2101 jpm 331
 
2042 aurelien 332
	public function renommerMotCle($id_mot_cle, $nouveau_nom) {
2101 jpm 333
		$nouveauNomSimple = self::simplifier($nouveau_nom);
334
		$nouveauNomSimpleP = Cel::db()->proteger($nouveauNomSimple);
335
		$idMotCleP = Cel::db()->proteger($id_mot_cle);
336
 
337
		$requete = 'SELECT chemin, id_utilisateur '.
338
			"FROM {$this->table_mots_cles} ".
339
			"WHERE id_mot_cle = $idMotCleP ".
340
			' -- '.__FILE__.':'.__LINE__;
341
		$ancienCheminInfos = Cel::db()->requeter($requete);
342
 
343
		$ancienChemin = $ancienCheminInfos[0]['chemin'];
344
		$id_utilisateur = $ancienCheminInfos[0]['id_utilisateur'];
345
 
346
		$cheminDecompo = explode('/', $ancienChemin);
2042 aurelien 347
		// le dernier élément du tableau est vide (à cause du / terminal)
348
		// c'est également le cas pour le premier (à cause du / qui commence le chemin)
2101 jpm 349
		$cheminDecompo[count($cheminDecompo) - 2] = $nouveauNomSimple;
350
		$nouveauChemin = implode('/', $cheminDecompo);
351
 
352
		$requete = "UPDATE {$this->table_mots_cles} ".
353
			"SET mot_cle = $nouveauNomSimpleP ".
354
			"WHERE id_mot_cle = $idMotCleP ".
355
			' -- '.__FILE__.':'.__LINE__;
356
 
357
		$renommage = Cel::db()->executer($requete);
358
		$this->renommerChemin($ancienChemin, $nouveauChemin, $id_utilisateur);
359
 
360
		$idsElementsLies = $this->obtenirIdElementsLiesPourIds(array($id_mot_cle));
361
		foreach ($idsElementsLies as $idElementLie) {
362
			self::regenererIndexTexteMotCle($idElementLie['id_element_lie'], $this->mode);
2045 aurelien 363
		}
2101 jpm 364
 
2042 aurelien 365
		return $renommage;
366
	}
367
 
2143 jpm 368
	/**
2101 jpm 369
	 * Si aucun id_père n'est mentionné, c'est un déplacement vers la racine de l'arbre (qui n'existe pas).
370
	 */
371
	public function deplacerMotCle($id_mot_cle, $id_pere, $id_utilisateur) {
372
		$idMotCleP = Cel::db()->proteger($id_mot_cle);
373
		$idPereP = Cel::db()->proteger($id_pere);
374
		$cheminPere = '';
375
 
376
		if ($id_pere != '') {
377
			$requete = 'SELECT chemin '.
378
				"FROM {$this->table_mots_cles} ".
379
				"WHERE id_mot_cle = $idPereP ".
380
				' -- '.__FILE__.':'.__LINE__;
381
 
382
			$cheminPereInfos = Cel::db()->requeter($requete);
383
			if (!empty($cheminPereInfos)) {
384
				$cheminPere = $cheminPereInfos[0]['chemin'];
2061 aurelien 385
			}
386
		}
2101 jpm 387
 
388
		$requete = 'SELECT chemin, mot_cle '.
389
			"FROM {$this->table_mots_cles} ".
390
			"WHERE id_mot_cle = $idMotCleP ".
391
			' -- '.__FILE__.':'.__LINE__;
392
		$infosMotCle = Cel::db()->requeter($requete);
393
		$ancienChemin = $infosMotCle[0]['chemin'];
394
		$ancienMotCle = $infosMotCle[0]['mot_cle'];
395
 
396
		$nouveauChemin = $cheminPere.'/'.$ancienMotCle;
397
 
398
		return $this->renommerChemin($ancienChemin, $nouveauChemin, $id_utilisateur);
2042 aurelien 399
	}
2101 jpm 400
 
2025 aurelien 401
	public function renommerChemin($ancien_chemin, $nouveau_chemin, $id_utilisateur) {
2101 jpm 402
		$ancienCheminHarmonise = self::harmoniserChemin($ancien_chemin);
403
		$nouveauCheminHarmonise = self::harmoniserChemin($nouveau_chemin);
404
 
405
		$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
406
		$ancienCheminP = Cel::db()->proteger($ancienCheminHarmonise);
407
		$nouveauCheminP = Cel::db()->proteger($nouveauCheminHarmonise);
408
		$conditionCheminP = Cel::db()->proteger($ancienCheminHarmonise.'%');
409
 
410
		$requete = "UPDATE {$this->table_mots_cles} ".
411
			"SET chemin = REPLACE(chemin, $ancienCheminP, $nouveauCheminP) ".
412
			"WHERE chemin LIKE $conditionCheminP ".
413
			"AND id_utilisateur = $idUtilisateurP ".
414
			' -- '.__FILE__.':'.__LINE__;
415
 
416
		return Cel::db()->executer($requete);
2025 aurelien 417
	}
2101 jpm 418
 
2025 aurelien 419
	public function supprimerChemin($chemin, $id_utilisateur) {
2101 jpm 420
		$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
421
		$cheminP = Cel::db()->proteger($chemin.'%');
2025 aurelien 422
		// TODO : triggers pour les tables liées ?
2101 jpm 423
		$requete = "DELETE FROM {$this->$table_mots_cles} ".
424
			"WHERE chemin LIKE $cheminP ".
425
			"AND id_utilisateur = $idUtilisateurP ".
426
			' -- '.__FILE__.':'.__LINE__;
2025 aurelien 427
 
2101 jpm 428
		return Cel::db()->executer($requete);
2042 aurelien 429
	}
2101 jpm 430
 
431
	/**
432
	 * suppression des associations du mots clé aux images ou obs, mais aussi des associations de ses enfants
433
	 * (car ceux-ci seront supprimés aussi dans le processus)
434
	 * même s'il n'a pas d'enfants, le tableau contient au moins l'id du mot clé lui même
435
	 */
2043 aurelien 436
	public function supprimerMotCleParId($id_mot_cle, $id_utilisateur) {
437
		//TODO: simplifier cette fonction
438
		$ids_mot_cle_et_enfants = $this->obtenirIdsMotsClesParIdParent($id_utilisateur, $id_mot_cle);
2101 jpm 439
 
2043 aurelien 440
		// obtention des ids des éléments liés au mot clé ainsi qu'à ces enfants (afin de pouvoir
2060 aurelien 441
		// régénérer les index texte de mots clés sur les éléments liés)
2043 aurelien 442
		$ids_a_delier = array();
2101 jpm 443
		foreach ($ids_mot_cle_et_enfants as $id) {
2043 aurelien 444
			$ids_a_delier[] = $id['id_mot_cle'];
445
		}
2101 jpm 446
 
2043 aurelien 447
		$ids_elements_lies = $this->obtenirIdElementsLiesPourIds($ids_a_delier);
448
		$suppression_liaison = $this->supprimerToutesLiaisonsIdsMotsCles($ids_a_delier, $id_utilisateur);
449
 
2101 jpm 450
		foreach ($ids_elements_lies as $id_element_lie) {
2043 aurelien 451
			self::regenererIndexTexteMotCle($id_element_lie['id_element_lie'], $this->mode);
452
		}
2101 jpm 453
 
2043 aurelien 454
		// suppression du mot clé proprement dit ainsi que de ses enfants
455
		$suppression = $this->supprimerMotCleEtEnfantsParId($id_mot_cle, $id_utilisateur);
2101 jpm 456
 
2043 aurelien 457
		return $suppression && $suppression_liaison;
458
	}
2101 jpm 459
 
2042 aurelien 460
	public function supprimerMotCleEtEnfantsParId($id_mot_cle, $id_utilisateur) {
2101 jpm 461
		$idMotCleP = Cel::db()->proteger($id_mot_cle);
2116 jpm 462
		$requete = 'SELECT chemin '.
2101 jpm 463
			"FROM {$this->table_mots_cles} ".
464
			"WHERE id_mot_cle = $idMotCleP ".
465
			' -- '.__FILE__.':'.__LINE__;
2116 jpm 466
		$chemin = Cel::db()->requeter($requete);
2101 jpm 467
 
2043 aurelien 468
		$suppression = true;
2101 jpm 469
		// vérification pour empecher la suppression accidentelle de tout l'arbre,
2060 aurelien 470
		// cas qui ne devrait jamais arriver normalement
2101 jpm 471
		if (!empty($chemin) && $chemin != '/') {
472
			$chemin = $chemin[0]['chemin'];
473
			$cheminP = Cel::db()->proteger($chemin.'%');
474
			$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
2143 jpm 475
 
2101 jpm 476
			$requete = "DELETE FROM {$this->table_mots_cles} ".
477
				"WHERE chemin LIKE $cheminP ".
478
				"AND id_utilisateur = $idUtilisateurP ".
479
				' -- '.__FILE__.':'.__LINE__;;
480
 
481
			$suppression = Cel::db()->executer($requete);
2043 aurelien 482
		}
2042 aurelien 483
 
2043 aurelien 484
		return ($suppression !== false);
2101 jpm 485
 
2025 aurelien 486
	}
2101 jpm 487
 
2056 aurelien 488
	public function obtenirIdsMotClesPourMotsCles($mots_cles, $id_utilisateur) {
2199 mathias 489
		$motsClesP = array();
490
		foreach ($mots_cles as $mot_cle) {
491
			$motsClesP[] = Cel::db()->proteger(self::simplifier($mot_cle));
492
		}
2101 jpm 493
		$listeMotsClesP = implode(',', $motsClesP);
494
		$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
2056 aurelien 495
 
2101 jpm 496
		$requete = 'SELECT id_mot_cle, mot_cle '.
497
			"FROM {$this->table_mots_cles} ".
498
			"WHERE mot_cle IN ($listeMotsClesP) ".
499
			"AND id_utilisateur = $idUtilisateurP ".
500
			' -- '.__FILE__.':'.__LINE__;
2143 jpm 501
 
2101 jpm 502
		$resultat = Cel::db()->executer($requete);
503
		return $resultat;
2056 aurelien 504
	}
2101 jpm 505
 
2046 aurelien 506
	public function obtenirIdElementsLiesPourChemins($chemins, $id_utilisateur) {
2101 jpm 507
		foreach ($chemins as &$chemin) {
2042 aurelien 508
			$chemin = Cel::db()->proteger(self::harmoniserChemin($chemin));
509
		}
2101 jpm 510
		$listeChemins = implode(',', $chemin);
511
		$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
2143 jpm 512
 
2101 jpm 513
		$requete = 'SELECT id_element_lie '.
514
			"FROM {$this->table_liaison} AS cl INNER JOIN {$this->table_mots_cles} AS cm ".
515
			"ON (".
516
				"cm.id_mot_cle = cl.id_mot_cle ".
517
				"AND chemin IN ($listeChemins) ".
518
				"AND cm.id_utilisateur = $idUtilisateurP ".
519
			") ".
520
			' -- '.__FILE__.':'.__LINE__;
521
 
522
		$idsPourChemin = Cel::db()->executer($requete);
523
 
524
		return $idsPourChemin;
2042 aurelien 525
	}
2101 jpm 526
 
2042 aurelien 527
	public function obtenirIdElementsLiesPourIds($ids_mots_cles) {
2101 jpm 528
		$idsElementsLies = array();
529
		if (!empty($ids_mots_cles)) {
2143 jpm 530
			$idsMotsClesP = Cel::db()->proteger($ids_mots_cles);
2101 jpm 531
			$listeIdsMotsCles = implode(',', $idsMotsClesP);
2143 jpm 532
 
2101 jpm 533
			$requete = 'SELECT id_element_lie '.
534
				"FROM {$this->table_liaison} ".
535
				"WHERE id_mot_cle IN ($listeIdsMotsCles) ".
536
				' -- '.__FILE__.':'.__LINE__;
537
 
2143 jpm 538
 
539
			$idsElementsLies = Cel::db()->requeter($requete);
2042 aurelien 540
		}
2101 jpm 541
		return $idsElementsLies;
542
	}
2042 aurelien 543
 
2101 jpm 544
	/**
545
	 *
2060 aurelien 546
	 * Fonctions statiques utilitaires
2101 jpm 547
	 * (Dans l'idéal toute la classe pourrait être statique car elle n'a
2060 aurelien 548
	 * pas d'état (mais il faudrait passer $mode à toutes les fonctions)
2101 jpm 549
	 *
2060 aurelien 550
	 */
551
	public static function getTablesMotsClesEtLiaisons($mode) {
2101 jpm 552
		if ($mode == 'obs') {
2060 aurelien 553
			$table_liaison = 'cel_mots_cles_obs_liaison';
554
			$table_mots_cles = 'cel_arbre_mots_cles_obs';
555
		} else {
556
			$table_liaison = 'cel_mots_cles_images_liaison';
557
			$table_mots_cles = 'cel_arbre_mots_cles_images';
558
		}
559
		return array($table_liaison, $table_mots_cles);
560
	}
2101 jpm 561
 
2043 aurelien 562
	public static function regenererIndexTexteMotCle($id_element_lie, $mode) {
2101 jpm 563
		$idElementLieP = Cel::db()->proteger($id_element_lie);
564
		$sqlTpl = self::obtenirTemplateRequeteMotsClesTexte($mode);
565
		$sousRequete = sprintf($sqlTpl, $idElementLieP);
2060 aurelien 566
 
2101 jpm 567
		list($table, $champId) = self::getNomTablesEtChampsElementsLies($mode);
568
		$requete = "UPDATE $table ".
569
			"SET mots_cles_texte = ($sousRequete) ".
570
			"WHERE $champId = $idElementLieP ".
571
			' -- '.__FILE__.':'.__LINE__;
572
 
573
		return Cel::db()->executer($requete);
2043 aurelien 574
	}
2101 jpm 575
 
2043 aurelien 576
	private static function getNomTablesEtChampsElementsLies($mode) {
577
		$tables = array();
2101 jpm 578
		if ($mode == 'obs') {
579
			$tables = array('cel_obs', 'id_observation');
2043 aurelien 580
		} else {
2101 jpm 581
			$tables = array('cel_images', 'id_image');
2043 aurelien 582
		}
583
		return $tables;
584
	}
2101 jpm 585
 
586
	/**
2143 jpm 587
	 * Renvoie un template de requete pour selectionner la concatenation de mots clé
2101 jpm 588
	 * pour un element donné (utilisable avec sprintf)
589
	 */
2060 aurelien 590
	public static function obtenirTemplateRequeteMotsClesTexte($mode) {
591
		list($table_liaison, $table_mots_cles) = self::getTablesMotsClesEtLiaisons($mode);
2143 jpm 592
 
2101 jpm 593
		$requeteTpl = 'SELECT GROUP_CONCAT(mot_cle) '.
594
			"FROM $table_mots_cles AS cm ".
595
			"INNER JOIN $table_liaison AS cml ON cml.id_mot_cle = cm.id_mot_cle ".
596
			'AND cml.id_element_lie = %s ';
2143 jpm 597
 
2101 jpm 598
		return $requeteTpl;
2042 aurelien 599
	}
2101 jpm 600
	/**
601
	* Renvoie un template de recherche sur les ids de mots clés utilisables avec sprintf.
602
	*/
2060 aurelien 603
	public static function obtenirTemplateRequeteMotsClesIds($mode) {
604
		list($table_liaison, $table_mots_cles) = self::getTablesMotsClesEtLiaisons($mode);
2101 jpm 605
		$requeteTpl = "SELECT id_element_lie FROM $table_liaison WHERE id_mot_cle IN (%s) ";
606
		return $requeteTpl;
2059 aurelien 607
	}
2101 jpm 608
 
609
	// Fonctions utilitaires
2143 jpm 610
 
2101 jpm 611
	/**
612
	 * La profondeur d'un noeud est déterminée par le nombre de slashs
613
	 * qu'il contient (étant donné que ceux ci sont interdits dans le texte du mot clé.
614
	 */
2025 aurelien 615
	static public function comparerProfNoeuds($a, $b) {
616
		$nb_slashs_a = substr_count($a['chemin'], '/');
617
		$nb_slashs_b = substr_count($a['chemin'], '/');
618
		$cmp = 0;
2101 jpm 619
 
620
		if ($nb_slashs_a == $nb_slashs_b) {
2187 mathias 621
			$cmp = strcasecmp($a['chemin'], $b['chemin']);
2025 aurelien 622
		} else {
623
			$cmp = ($a['chemin'] > $b['chemin']) ? +1 : -1;
624
		}
625
		return $cmp;
626
	}
2101 jpm 627
 
2026 aurelien 628
	static public function getCheminHarmonise($chemin_parent, $mot_cle) {
629
		return self::harmoniserChemin($chemin_parent.'/'.self::simplifier($mot_cle).'/');
630
	}
2101 jpm 631
 
2026 aurelien 632
	static public function harmoniserChemin($chemin) {
633
		$chemin = self::startsWith($chemin,'/') ? $chemin : '/'.$chemin;
634
		$chemin = self::endsWith($chemin,'/') ? $chemin : $chemin.'/';
2101 jpm 635
		$chemin = str_replace('//', '/', $chemin);
2149 aurelien 636
		// mise en minuscule du chemin afin d'éviter des cas où l'on aurait
637
		// des même mots clés avec minuscule et majuscule
638
		$chemin = strtolower($chemin);
2189 mathias 639
		$chemin = self::supprimerAccents($chemin);
2101 jpm 640
		return $chemin;
2026 aurelien 641
	}
2189 mathias 642
 
643
	function supprimerAccents($str, $charset='utf-8')
644
	{
645
		$str = htmlentities($str, ENT_NOQUOTES, $charset);
646
 
647
		$str = preg_replace('#&([A-za-z])(?:acute|cedil|circ|grave|orn|ring|slash|th|tilde|uml);#', '\1', $str);
648
		$str = preg_replace('#&([A-za-z]{2})(?:lig);#', '\1', $str); // pour les ligatures e.g. '&oelig;'
649
		$str = preg_replace('#&[^;]+;#', '', $str); // supprime les autres caractères
650
 
651
		return $str;
652
	}
2101 jpm 653
 
2143 jpm 654
	/**
2101 jpm 655
	 * Fonction de slugification du mot clé
2143 jpm 656
	 *
2101 jpm 657
	 * Ni slashes ou antislashes ou virgules (ce qui fausserait l'arbre ou bien les mots
658
	 * clés texte dans les tables obs ou image)
659
	 */
660
	static public function simplifier($text) {
661
		$caracteresASupprimer = array('\\','/', ',');
662
		$text = str_replace($caracteresASupprimer, '', $text);
2167 aurelien 663
		$text = trim($text);
2101 jpm 664
		return $text;
2025 aurelien 665
	}
2101 jpm 666
 
2143 jpm 667
	/**
2101 jpm 668
	 * Gardée pour compatibilité ancienne version (mais devrait être supprimée
669
	 * dans le futur
670
	 */
2060 aurelien 671
	static function nettoyerMotsClesAvantSuppression($chaine) {
672
		$valeur = str_replace('null', '', $chaine);
673
		$valeur = trim($valeur, ';;');
674
		return $valeur;
675
	}
2101 jpm 676
 
2026 aurelien 677
	static public function startsWith($haystack, $needle) {
2101 jpm 678
		return $needle === '' || strpos($haystack, $needle) === 0;
2026 aurelien 679
	}
2101 jpm 680
 
2026 aurelien 681
	static public function endsWith($haystack, $needle) {
2101 jpm 682
		return $needle === '' || substr($haystack, -strlen($needle)) === $needle;
2026 aurelien 683
	}
2101 jpm 684
 
2060 aurelien 685
	/**
686
	* Fonction utilisée pour importer les anciens mots clés saisis dans les widget dans un compte identifié
687
	* Dans ce cas là, le widget remplit la case id_utilisateur par le mail indiqué lors de la saisie
688
	* @param string $mail_utilisateur
689
	* @param string $id_utilisateur
690
	*/
691
	public static function migrerMotsClesMailVersId($mail_utilisateur, $infos_utilisateur) {
692
		return self::migrerLiaisonEtMotsCles($mail_utilisateur, $infos_utilisateur, 'obs') &&
693
				self::migrerLiaisonEtMotsCles($mail_utilisateur, $infos_utilisateur, 'images');
694
	}
2101 jpm 695
 
696
	/**
697
	 * ATTENTION : cette fonction suppose que l'utilisateur n'ai pas déjà de mots clés dans le CEL
698
	 * avec l'identifiant $id_utilisateur ce qui est normalement le cas
699
	 * ça devrait normalement marcher correctement même s'il en a déjà mais ça n'a pas été testé
700
	 */
701
	private static function migrerLiaisonEtMotsCles($email_utilisateur, $infos_utilisateur, $mode) {
2060 aurelien 702
		list($table_liaisons, $table_mots_cles) = self::getTablesMotsClesEtLiaisons($mode);
2101 jpm 703
		$idUtilisateurP = Cel::db()->proteger($infos_utilisateur['id_utilisateur']);
704
		$emailUtilisateurP = Cel::db()->proteger($email_utilisateur);
2143 jpm 705
 
2101 jpm 706
		$requete_migration_mc = "UPDATE {$table_mots_cles} ".
707
			"SET id_utilisateur = $idUtilisateurP ".
708
			"WHERE id_utilisateur = $emailUtilisateurP ";
709
 
2143 jpm 710
		$migration = Cel::db()->executer($requete_migration_mc);
2101 jpm 711
		$migration = ($migration !== false) ? true : false;
712
		return $migration;
2060 aurelien 713
	}
2025 aurelien 714
}
2101 jpm 715
?>