Subversion Repositories eFlore/Applications.cel

Rev

Rev 2314 | Rev 2462 | Go to most recent revision | Details | Compare with Previous | 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,
2314 mathias 203 
	 * et ainsi de perdre la date de liaison des mots clés conservés.
204 
	 * Si $supprimer est true, les mots clefs existant mais non spécifiés dans le POST seront supprimés,
205 
	 * sinon ils seront laissés en l'état.
2241 mathias 206 
	 */
2314 mathias 207 
	public function modifierLiaisonParTableaux($ids_mots_cles, $ids_elements_lies, $supprimer) {
2241 mathias 208 
		$reussi = true;
209 
 
210 
		foreach ($ids_elements_lies as $id_element_lie) {
211 
			$idElementLieP = Cel::db()->proteger($id_element_lie);
212 
			// trouver les mots clés actuels
213 
			$ids_mots_cles_actuels = $this->obtenirIdsMotsClesParIdElementLie($id_element_lie);
214 
			if (! is_array($ids_mots_cles_actuels)) {
215 
				$ids_mots_cles_actuels = array();
216 
			}
217 
			// remise en forme
218 
			foreach ($ids_mots_cles_actuels as $k => $v) {
219 
				if (isset($v['id_mot_cle'])) { // je vois mal comment ça pourrait ne pas être set
220 
					$ids_mots_cles_actuels[$k] = $v['id_mot_cle'];
221 
				}
222 
			}
223 
 
224 
			// changements
225 
			$ids_mots_cles_ajoutes = array_diff($ids_mots_cles, $ids_mots_cles_actuels);
2314 mathias 226 
			if ($supprimer === true) {
227 
				$ids_mots_cles_supprimes = array_diff($ids_mots_cles_actuels, $ids_mots_cles);
228 
			}
2241 mathias 229 
 
230 
			// insérer
231 
			if (count($ids_mots_cles_ajoutes) > 0) {
232 
				$combinaisons = array();
233 
				foreach ($ids_mots_cles_ajoutes as $id_mot_cle) {
234 
					$idMotCleP = Cel::db()->proteger($id_mot_cle);
235 
					$combinaisons[] = "($idElementLieP, $idMotCleP)";
236 
				}
237 
				$valeursGroupees = implode(', ', $combinaisons);
238 
				$requete = "INSERT INTO {$this->table_liaison} (id_element_lie, id_mot_cle) ".
239 
						"VALUES $valeursGroupees ".
240 
						"ON DUPLICATE KEY UPDATE id_element_lie = id_element_lie ". // normalement pas nécessaire
241 
						' -- '.__FILE__.':'.__LINE__;
242 
				$resultat = Cel::db()->executer($requete);
243 
				$reussi = ($reussi && $resultat);
244 
			}
245 
 
246 
			// supprimer
2314 mathias 247 
			if ($supprimer === true && count($ids_mots_cles_supprimes) > 0) {
2241 mathias 248 
				$clauses = array();
249 
				foreach ($ids_mots_cles_supprimes as $id_mot_cle) {
250 
					$idMotCleP = Cel::db()->proteger($id_mot_cle);
251 
					$clauses[] = "(id_element_lie = $idElementLieP AND id_mot_cle = $idMotCleP)";
252 
				}
253 
				$clause = implode(' OR ', $clauses);
254 
				$requete = "DELETE FROM {$this->table_liaison} WHERE $clause" .
255 
					' -- '.__FILE__.':'.__LINE__;
256 
				$resultat = Cel::db()->executer($requete);
257 
				$reussi = ($reussi && $resultat);
258 
			}
259 
		}
260 
 
261 
		return $reussi;
262 
	}
263 
 
2042 aurelien 264 
	public function supprimerLiaisonsMotsCles($ids_mots_cles, $ids_elements_lies, $id_utilisateur) {
265 
		$combinaisons = array();
2101 jpm 266 
		foreach ($ids_mots_cles as $id_mot_cle) {
267 
			$idMotCleP = Cel::db()->proteger($id_mot_cle);
268 
			foreach ($ids_elements_lies as $id_element_lie) {
269 
				$idElementLieP = Cel::db()->proteger($id_element_lie);
270 
				$combinaisons[] = "(id_element_lie = $idElementLieP AND id_mot_cle = $idMotCleP)";
2042 aurelien 271 
			}
2101 jpm 272 
		}
273 
		$clauseWhere = implode(' OR ', $combinaisons);
2143 jpm 274 
 
2101 jpm 275 
		$requete = "DELETE FROM {$this->table_liaison} ".
276 
			"WHERE $clauseWhere ".
277 
			' -- '.__FILE__.':'.__LINE__;
2143 jpm 278 
 
2101 jpm 279 
		$suppression = Cel::db()->executer($requete);
2042 aurelien 280 
		return $suppression;
281 
	}
2101 jpm 282 
 
2058 aurelien 283 
	public function supprimerToutesLiaisonsPourIdsElementsLies($ids_elements_lies) {
2143 jpm 284 
		$idsElementsLiesP = Cel::db()->proteger($ids_elements_lies);
2101 jpm 285 
		$listeIds = implode(',', $idsElementsLiesP);
2143 jpm 286 
 
2101 jpm 287 
		$requete = "DELETE FROM {$this->table_liaison} ".
288 
			"WHERE id_element_lie IN ($listeIds) ".
289 
			' -- '.__FILE__.':'.__LINE__;
290 
 
291 
		$suppression = Cel::db()->executer($requete);
292 
		$suppression = ($suppression !== false) ? true : false;
2042 aurelien 293 
		return $suppression;
294 
	}
2101 jpm 295 
 
2042 aurelien 296 
	public function supprimerToutesLiaisonsIdsMotsCles($ids_mots_cles, $id_utilisateur) {
2101 jpm 297 
		$suppression = true;
298 
		if (!empty($ids_mots_cles)) {
2143 jpm 299 
			$idsMotsClesP = Cel::db()->proteger($ids_mots_cles);
2101 jpm 300 
			$listeIds = implode(',', $idsMotsClesP);
2143 jpm 301 
 
2101 jpm 302 
			$requete = "DELETE FROM {$this->table_liaison} ".
303 
				"WHERE id_mot_cle IN ($listeIds) ".
304 
				' -- '.__FILE__.':'.__LINE__;
305 
 
2143 jpm 306 
			$suppression = Cel::db()->executer($requete);
2101 jpm 307 
			$suppression = ($suppression !== false) ? true : false;
2042 aurelien 308 
		}
309 
		return $suppression;
310 
	}
2101 jpm 311 
 
312 
	/**
313 
	 * Supprime toutes les laisons pour un utilisateur et un mot clé (au sens textuel) donnés.
2143 jpm 314 
	 *
2101 jpm 315 
	 */
2046 aurelien 316 
	public function supprimerLiaisonPourMotCleEtIdElementLie($mot_cle, $id_element_lie, $id_utilisateur) {
2199 mathias 317 
		$mot_cle = self::simplifier($mot_cle);
2101 jpm 318 
		$idElementLieP = Cel::db()->proteger($id_element_lie);
319 
		$motCleP = Cel::db()->proteger($mot_cle);
320 
		$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
2143 jpm 321 
 
2101 jpm 322 
		$sousRequete = "SELECT id_mot_cle FROM {$this->table_mots_cles} ".
323 
			"WHERE mot_cle = $motCleP ".
324 
			"AND id_utilisateur = $idUtilisateurP ";
325 
		$requete = "DELETE FROM {$this->table_liaison} ".
326 
			"WHERE id_element_lie = $idElementLieP ".
327 
			"AND id_mot_cle IN ($sousRequete) ".
328 
			' -- '.__FILE__.':'.__LINE__;
2046 aurelien 329 
 
2143 jpm 330 
		$suppression_liaison = Cel::db()->executer($requete);
2046 aurelien 331 
		$suppression_liaison = ($suppression_liaison !== false);
332 
 
333 
		return $suppression_liaison;
334 
	}
2101 jpm 335 
 
2042 aurelien 336 
	public function renommerMotCle($id_mot_cle, $nouveau_nom) {
2101 jpm 337 
		$nouveauNomSimple = self::simplifier($nouveau_nom);
338 
		$nouveauNomSimpleP = Cel::db()->proteger($nouveauNomSimple);
339 
		$idMotCleP = Cel::db()->proteger($id_mot_cle);
340 
 
341 
		$requete = 'SELECT chemin, id_utilisateur '.
342 
			"FROM {$this->table_mots_cles} ".
343 
			"WHERE id_mot_cle = $idMotCleP ".
344 
			' -- '.__FILE__.':'.__LINE__;
345 
		$ancienCheminInfos = Cel::db()->requeter($requete);
346 
 
347 
		$ancienChemin = $ancienCheminInfos[0]['chemin'];
348 
		$id_utilisateur = $ancienCheminInfos[0]['id_utilisateur'];
349 
 
350 
		$cheminDecompo = explode('/', $ancienChemin);
2042 aurelien 351 
		// le dernier élément du tableau est vide (à cause du / terminal)
352 
		// c'est également le cas pour le premier (à cause du / qui commence le chemin)
2101 jpm 353 
		$cheminDecompo[count($cheminDecompo) - 2] = $nouveauNomSimple;
354 
		$nouveauChemin = implode('/', $cheminDecompo);
355 
 
356 
		$requete = "UPDATE {$this->table_mots_cles} ".
357 
			"SET mot_cle = $nouveauNomSimpleP ".
358 
			"WHERE id_mot_cle = $idMotCleP ".
359 
			' -- '.__FILE__.':'.__LINE__;
360 
 
361 
		$renommage = Cel::db()->executer($requete);
362 
		$this->renommerChemin($ancienChemin, $nouveauChemin, $id_utilisateur);
363 
 
364 
		$idsElementsLies = $this->obtenirIdElementsLiesPourIds(array($id_mot_cle));
365 
		foreach ($idsElementsLies as $idElementLie) {
366 
			self::regenererIndexTexteMotCle($idElementLie['id_element_lie'], $this->mode);
2045 aurelien 367 
		}
2101 jpm 368 
 
2042 aurelien 369 
		return $renommage;
370 
	}
371 
 
2143 jpm 372 
	/**
2101 jpm 373 
	 * Si aucun id_père n'est mentionné, c'est un déplacement vers la racine de l'arbre (qui n'existe pas).
374 
	 */
375 
	public function deplacerMotCle($id_mot_cle, $id_pere, $id_utilisateur) {
376 
		$idMotCleP = Cel::db()->proteger($id_mot_cle);
377 
		$idPereP = Cel::db()->proteger($id_pere);
378 
		$cheminPere = '';
379 
 
380 
		if ($id_pere != '') {
381 
			$requete = 'SELECT chemin '.
382 
				"FROM {$this->table_mots_cles} ".
383 
				"WHERE id_mot_cle = $idPereP ".
384 
				' -- '.__FILE__.':'.__LINE__;
385 
 
386 
			$cheminPereInfos = Cel::db()->requeter($requete);
387 
			if (!empty($cheminPereInfos)) {
388 
				$cheminPere = $cheminPereInfos[0]['chemin'];
2061 aurelien 389 
			}
390 
		}
2101 jpm 391 
 
392 
		$requete = 'SELECT chemin, mot_cle '.
393 
			"FROM {$this->table_mots_cles} ".
394 
			"WHERE id_mot_cle = $idMotCleP ".
395 
			' -- '.__FILE__.':'.__LINE__;
396 
		$infosMotCle = Cel::db()->requeter($requete);
397 
		$ancienChemin = $infosMotCle[0]['chemin'];
398 
		$ancienMotCle = $infosMotCle[0]['mot_cle'];
399 
 
400 
		$nouveauChemin = $cheminPere.'/'.$ancienMotCle;
401 
 
402 
		return $this->renommerChemin($ancienChemin, $nouveauChemin, $id_utilisateur);
2042 aurelien 403 
	}
2101 jpm 404 
 
2025 aurelien 405 
	public function renommerChemin($ancien_chemin, $nouveau_chemin, $id_utilisateur) {
2101 jpm 406 
		$ancienCheminHarmonise = self::harmoniserChemin($ancien_chemin);
407 
		$nouveauCheminHarmonise = self::harmoniserChemin($nouveau_chemin);
408 
 
409 
		$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
410 
		$ancienCheminP = Cel::db()->proteger($ancienCheminHarmonise);
411 
		$nouveauCheminP = Cel::db()->proteger($nouveauCheminHarmonise);
412 
		$conditionCheminP = Cel::db()->proteger($ancienCheminHarmonise.'%');
413 
 
414 
		$requete = "UPDATE {$this->table_mots_cles} ".
415 
			"SET chemin = REPLACE(chemin, $ancienCheminP, $nouveauCheminP) ".
416 
			"WHERE chemin LIKE $conditionCheminP ".
417 
			"AND id_utilisateur = $idUtilisateurP ".
418 
			' -- '.__FILE__.':'.__LINE__;
419 
 
420 
		return Cel::db()->executer($requete);
2025 aurelien 421 
	}
2101 jpm 422 
 
2025 aurelien 423 
	public function supprimerChemin($chemin, $id_utilisateur) {
2101 jpm 424 
		$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
425 
		$cheminP = Cel::db()->proteger($chemin.'%');
2025 aurelien 426 
		// TODO : triggers pour les tables liées ?
2101 jpm 427 
		$requete = "DELETE FROM {$this->$table_mots_cles} ".
428 
			"WHERE chemin LIKE $cheminP ".
429 
			"AND id_utilisateur = $idUtilisateurP ".
430 
			' -- '.__FILE__.':'.__LINE__;
2025 aurelien 431 
 
2101 jpm 432 
		return Cel::db()->executer($requete);
2042 aurelien 433 
	}
2101 jpm 434 
 
435 
	/**
436 
	 * suppression des associations du mots clé aux images ou obs, mais aussi des associations de ses enfants
437 
	 * (car ceux-ci seront supprimés aussi dans le processus)
438 
	 * même s'il n'a pas d'enfants, le tableau contient au moins l'id du mot clé lui même
439 
	 */
2043 aurelien 440 
	public function supprimerMotCleParId($id_mot_cle, $id_utilisateur) {
441 
		//TODO: simplifier cette fonction
442 
		$ids_mot_cle_et_enfants = $this->obtenirIdsMotsClesParIdParent($id_utilisateur, $id_mot_cle);
2101 jpm 443 
 
2043 aurelien 444 
		// obtention des ids des éléments liés au mot clé ainsi qu'à ces enfants (afin de pouvoir
2060 aurelien 445 
		// régénérer les index texte de mots clés sur les éléments liés)
2043 aurelien 446 
		$ids_a_delier = array();
2101 jpm 447 
		foreach ($ids_mot_cle_et_enfants as $id) {
2043 aurelien 448 
			$ids_a_delier[] = $id['id_mot_cle'];
449 
		}
2101 jpm 450 
 
2043 aurelien 451 
		$ids_elements_lies = $this->obtenirIdElementsLiesPourIds($ids_a_delier);
452 
		$suppression_liaison = $this->supprimerToutesLiaisonsIdsMotsCles($ids_a_delier, $id_utilisateur);
453 
 
2101 jpm 454 
		foreach ($ids_elements_lies as $id_element_lie) {
2043 aurelien 455 
			self::regenererIndexTexteMotCle($id_element_lie['id_element_lie'], $this->mode);
456 
		}
2101 jpm 457 
 
2043 aurelien 458 
		// suppression du mot clé proprement dit ainsi que de ses enfants
459 
		$suppression = $this->supprimerMotCleEtEnfantsParId($id_mot_cle, $id_utilisateur);
2101 jpm 460 
 
2043 aurelien 461 
		return $suppression && $suppression_liaison;
462 
	}
2101 jpm 463 
 
2042 aurelien 464 
	public function supprimerMotCleEtEnfantsParId($id_mot_cle, $id_utilisateur) {
2101 jpm 465 
		$idMotCleP = Cel::db()->proteger($id_mot_cle);
2116 jpm 466 
		$requete = 'SELECT chemin '.
2101 jpm 467 
			"FROM {$this->table_mots_cles} ".
468 
			"WHERE id_mot_cle = $idMotCleP ".
469 
			' -- '.__FILE__.':'.__LINE__;
2116 jpm 470 
		$chemin = Cel::db()->requeter($requete);
2101 jpm 471 
 
2043 aurelien 472 
		$suppression = true;
2101 jpm 473 
		// vérification pour empecher la suppression accidentelle de tout l'arbre,
2060 aurelien 474 
		// cas qui ne devrait jamais arriver normalement
2101 jpm 475 
		if (!empty($chemin) && $chemin != '/') {
476 
			$chemin = $chemin[0]['chemin'];
477 
			$cheminP = Cel::db()->proteger($chemin.'%');
478 
			$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
2143 jpm 479 
 
2101 jpm 480 
			$requete = "DELETE FROM {$this->table_mots_cles} ".
481 
				"WHERE chemin LIKE $cheminP ".
482 
				"AND id_utilisateur = $idUtilisateurP ".
483 
				' -- '.__FILE__.':'.__LINE__;;
484 
 
485 
			$suppression = Cel::db()->executer($requete);
2043 aurelien 486 
		}
2042 aurelien 487 
 
2043 aurelien 488 
		return ($suppression !== false);
2101 jpm 489 
 
2025 aurelien 490 
	}
2101 jpm 491 
 
2056 aurelien 492 
	public function obtenirIdsMotClesPourMotsCles($mots_cles, $id_utilisateur) {
2199 mathias 493 
		$motsClesP = array();
494 
		foreach ($mots_cles as $mot_cle) {
495 
			$motsClesP[] = Cel::db()->proteger(self::simplifier($mot_cle));
496 
		}
2101 jpm 497 
		$listeMotsClesP = implode(',', $motsClesP);
498 
		$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
2056 aurelien 499 
 
2101 jpm 500 
		$requete = 'SELECT id_mot_cle, mot_cle '.
501 
			"FROM {$this->table_mots_cles} ".
502 
			"WHERE mot_cle IN ($listeMotsClesP) ".
503 
			"AND id_utilisateur = $idUtilisateurP ".
504 
			' -- '.__FILE__.':'.__LINE__;
2143 jpm 505 
 
2101 jpm 506 
		$resultat = Cel::db()->executer($requete);
507 
		return $resultat;
2056 aurelien 508 
	}
2101 jpm 509 
 
2046 aurelien 510 
	public function obtenirIdElementsLiesPourChemins($chemins, $id_utilisateur) {
2101 jpm 511 
		foreach ($chemins as &$chemin) {
2042 aurelien 512 
			$chemin = Cel::db()->proteger(self::harmoniserChemin($chemin));
513 
		}
2101 jpm 514 
		$listeChemins = implode(',', $chemin);
515 
		$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
2143 jpm 516 
 
2101 jpm 517 
		$requete = 'SELECT id_element_lie '.
518 
			"FROM {$this->table_liaison} AS cl INNER JOIN {$this->table_mots_cles} AS cm ".
519 
			"ON (".
520 
				"cm.id_mot_cle = cl.id_mot_cle ".
521 
				"AND chemin IN ($listeChemins) ".
522 
				"AND cm.id_utilisateur = $idUtilisateurP ".
523 
			") ".
524 
			' -- '.__FILE__.':'.__LINE__;
525 
 
526 
		$idsPourChemin = Cel::db()->executer($requete);
527 
 
528 
		return $idsPourChemin;
2042 aurelien 529 
	}
2101 jpm 530 
 
2042 aurelien 531 
	public function obtenirIdElementsLiesPourIds($ids_mots_cles) {
2101 jpm 532 
		$idsElementsLies = array();
533 
		if (!empty($ids_mots_cles)) {
2143 jpm 534 
			$idsMotsClesP = Cel::db()->proteger($ids_mots_cles);
2101 jpm 535 
			$listeIdsMotsCles = implode(',', $idsMotsClesP);
2143 jpm 536 
 
2101 jpm 537 
			$requete = 'SELECT id_element_lie '.
538 
				"FROM {$this->table_liaison} ".
539 
				"WHERE id_mot_cle IN ($listeIdsMotsCles) ".
540 
				' -- '.__FILE__.':'.__LINE__;
541 
 
2143 jpm 542 
 
543 
			$idsElementsLies = Cel::db()->requeter($requete);
2042 aurelien 544 
		}
2101 jpm 545 
		return $idsElementsLies;
546 
	}
2042 aurelien 547 
 
2101 jpm 548 
	/**
549 
	 *
2060 aurelien 550 
	 * Fonctions statiques utilitaires
2101 jpm 551 
	 * (Dans l'idéal toute la classe pourrait être statique car elle n'a
2060 aurelien 552 
	 * pas d'état (mais il faudrait passer $mode à toutes les fonctions)
2101 jpm 553 
	 *
2060 aurelien 554 
	 */
555 
	public static function getTablesMotsClesEtLiaisons($mode) {
2101 jpm 556 
		if ($mode == 'obs') {
2060 aurelien 557 
			$table_liaison = 'cel_mots_cles_obs_liaison';
558 
			$table_mots_cles = 'cel_arbre_mots_cles_obs';
559 
		} else {
560 
			$table_liaison = 'cel_mots_cles_images_liaison';
561 
			$table_mots_cles = 'cel_arbre_mots_cles_images';
562 
		}
563 
		return array($table_liaison, $table_mots_cles);
564 
	}
2101 jpm 565 
 
2043 aurelien 566 
	public static function regenererIndexTexteMotCle($id_element_lie, $mode) {
2101 jpm 567 
		$idElementLieP = Cel::db()->proteger($id_element_lie);
568 
		$sqlTpl = self::obtenirTemplateRequeteMotsClesTexte($mode);
569 
		$sousRequete = sprintf($sqlTpl, $idElementLieP);
2060 aurelien 570 
 
2101 jpm 571 
		list($table, $champId) = self::getNomTablesEtChampsElementsLies($mode);
572 
		$requete = "UPDATE $table ".
573 
			"SET mots_cles_texte = ($sousRequete) ".
574 
			"WHERE $champId = $idElementLieP ".
575 
			' -- '.__FILE__.':'.__LINE__;
576 
 
577 
		return Cel::db()->executer($requete);
2043 aurelien 578 
	}
2101 jpm 579 
 
2043 aurelien 580 
	private static function getNomTablesEtChampsElementsLies($mode) {
581 
		$tables = array();
2101 jpm 582 
		if ($mode == 'obs') {
583 
			$tables = array('cel_obs', 'id_observation');
2043 aurelien 584 
		} else {
2101 jpm 585 
			$tables = array('cel_images', 'id_image');
2043 aurelien 586 
		}
587 
		return $tables;
588 
	}
2101 jpm 589 
 
590 
	/**
2143 jpm 591 
	 * Renvoie un template de requete pour selectionner la concatenation de mots clé
2101 jpm 592 
	 * pour un element donné (utilisable avec sprintf)
593 
	 */
2060 aurelien 594 
	public static function obtenirTemplateRequeteMotsClesTexte($mode) {
595 
		list($table_liaison, $table_mots_cles) = self::getTablesMotsClesEtLiaisons($mode);
2143 jpm 596 
 
2101 jpm 597 
		$requeteTpl = 'SELECT GROUP_CONCAT(mot_cle) '.
598 
			"FROM $table_mots_cles AS cm ".
599 
			"INNER JOIN $table_liaison AS cml ON cml.id_mot_cle = cm.id_mot_cle ".
600 
			'AND cml.id_element_lie = %s ';
2143 jpm 601 
 
2101 jpm 602 
		return $requeteTpl;
2042 aurelien 603 
	}
2101 jpm 604 
	/**
605 
	* Renvoie un template de recherche sur les ids de mots clés utilisables avec sprintf.
606 
	*/
2060 aurelien 607 
	public static function obtenirTemplateRequeteMotsClesIds($mode) {
608 
		list($table_liaison, $table_mots_cles) = self::getTablesMotsClesEtLiaisons($mode);
2101 jpm 609 
		$requeteTpl = "SELECT id_element_lie FROM $table_liaison WHERE id_mot_cle IN (%s) ";
610 
		return $requeteTpl;
2059 aurelien 611 
	}
2101 jpm 612 
 
613 
	// Fonctions utilitaires
2143 jpm 614 
 
2101 jpm 615 
	/**
616 
	 * La profondeur d'un noeud est déterminée par le nombre de slashs
617 
	 * qu'il contient (étant donné que ceux ci sont interdits dans le texte du mot clé.
618 
	 */
2025 aurelien 619 
	static public function comparerProfNoeuds($a, $b) {
620 
		$nb_slashs_a = substr_count($a['chemin'], '/');
621 
		$nb_slashs_b = substr_count($a['chemin'], '/');
622 
		$cmp = 0;
2101 jpm 623 
 
624 
		if ($nb_slashs_a == $nb_slashs_b) {
2187 mathias 625 
			$cmp = strcasecmp($a['chemin'], $b['chemin']);
2025 aurelien 626 
		} else {
627 
			$cmp = ($a['chemin'] > $b['chemin']) ? +1 : -1;
628 
		}
629 
		return $cmp;
630 
	}
2101 jpm 631 
 
2026 aurelien 632 
	static public function getCheminHarmonise($chemin_parent, $mot_cle) {
633 
		return self::harmoniserChemin($chemin_parent.'/'.self::simplifier($mot_cle).'/');
634 
	}
2101 jpm 635 
 
2026 aurelien 636 
	static public function harmoniserChemin($chemin) {
637 
		$chemin = self::startsWith($chemin,'/') ? $chemin : '/'.$chemin;
638 
		$chemin = self::endsWith($chemin,'/') ? $chemin : $chemin.'/';
2101 jpm 639 
		$chemin = str_replace('//', '/', $chemin);
2149 aurelien 640 
		// mise en minuscule du chemin afin d'éviter des cas où l'on aurait
641 
		// des même mots clés avec minuscule et majuscule
642 
		$chemin = strtolower($chemin);
2189 mathias 643 
		$chemin = self::supprimerAccents($chemin);
2101 jpm 644 
		return $chemin;
2026 aurelien 645 
	}
2189 mathias 646 
 
647 
	function supprimerAccents($str, $charset='utf-8')
648 
	{
649 
		$str = htmlentities($str, ENT_NOQUOTES, $charset);
650 
 
651 
		$str = preg_replace('#&([A-za-z])(?:acute|cedil|circ|grave|orn|ring|slash|th|tilde|uml);#', '\1', $str);
652 
		$str = preg_replace('#&([A-za-z]{2})(?:lig);#', '\1', $str); // pour les ligatures e.g. '&oelig;'
653 
		$str = preg_replace('#&[^;]+;#', '', $str); // supprime les autres caractères
654 
 
655 
		return $str;
656 
	}
2101 jpm 657 
 
2143 jpm 658 
	/**
2101 jpm 659 
	 * Fonction de slugification du mot clé
2143 jpm 660 
	 *
2101 jpm 661 
	 * Ni slashes ou antislashes ou virgules (ce qui fausserait l'arbre ou bien les mots
662 
	 * clés texte dans les tables obs ou image)
663 
	 */
664 
	static public function simplifier($text) {
665 
		$caracteresASupprimer = array('\\','/', ',');
666 
		$text = str_replace($caracteresASupprimer, '', $text);
2167 aurelien 667 
		$text = trim($text);
2101 jpm 668 
		return $text;
2025 aurelien 669 
	}
2101 jpm 670 
 
2143 jpm 671 
	/**
2101 jpm 672 
	 * Gardée pour compatibilité ancienne version (mais devrait être supprimée
673 
	 * dans le futur
674 
	 */
2060 aurelien 675 
	static function nettoyerMotsClesAvantSuppression($chaine) {
676 
		$valeur = str_replace('null', '', $chaine);
677 
		$valeur = trim($valeur, ';;');
678 
		return $valeur;
679 
	}
2101 jpm 680 
 
2026 aurelien 681 
	static public function startsWith($haystack, $needle) {
2101 jpm 682 
		return $needle === '' || strpos($haystack, $needle) === 0;
2026 aurelien 683 
	}
2101 jpm 684 
 
2026 aurelien 685 
	static public function endsWith($haystack, $needle) {
2101 jpm 686 
		return $needle === '' || substr($haystack, -strlen($needle)) === $needle;
2026 aurelien 687 
	}
2101 jpm 688 
 
2060 aurelien 689 
	/**
690 
	* Fonction utilisée pour importer les anciens mots clés saisis dans les widget dans un compte identifié
691 
	* Dans ce cas là, le widget remplit la case id_utilisateur par le mail indiqué lors de la saisie
692 
	* @param string $mail_utilisateur
693 
	* @param string $id_utilisateur
694 
	*/
695 
	public static function migrerMotsClesMailVersId($mail_utilisateur, $infos_utilisateur) {
696 
		return self::migrerLiaisonEtMotsCles($mail_utilisateur, $infos_utilisateur, 'obs') &&
697 
				self::migrerLiaisonEtMotsCles($mail_utilisateur, $infos_utilisateur, 'images');
698 
	}
2101 jpm 699 
 
700 
	/**
701 
	 * ATTENTION : cette fonction suppose que l'utilisateur n'ai pas déjà de mots clés dans le CEL
702 
	 * avec l'identifiant $id_utilisateur ce qui est normalement le cas
703 
	 * ça devrait normalement marcher correctement même s'il en a déjà mais ça n'a pas été testé
704 
	 */
705 
	private static function migrerLiaisonEtMotsCles($email_utilisateur, $infos_utilisateur, $mode) {
2060 aurelien 706 
		list($table_liaisons, $table_mots_cles) = self::getTablesMotsClesEtLiaisons($mode);
2101 jpm 707 
		$idUtilisateurP = Cel::db()->proteger($infos_utilisateur['id_utilisateur']);
708 
		$emailUtilisateurP = Cel::db()->proteger($email_utilisateur);
2143 jpm 709 
 
2101 jpm 710 
		$requete_migration_mc = "UPDATE {$table_mots_cles} ".
711 
			"SET id_utilisateur = $idUtilisateurP ".
712 
			"WHERE id_utilisateur = $emailUtilisateurP ";
713 
 
2143 jpm 714 
		$migration = Cel::db()->executer($requete_migration_mc);
2101 jpm 715 
		$migration = ($migration !== false) ? true : false;
716 
		return $migration;
2060 aurelien 717 
	}
2025 aurelien 718 
}
2101 jpm 719 
?>