Subversion Repositories eFlore/Applications.cel

Rev

Go to most recent revision | 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 
?>