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 {
13
 
14
	private $config;
15
	private $mode;
16
 
17
	private $table_liaison;
18
	private $table_mots_cles;
19
 
2032 aurelien 20
	//TODO: trigger pour les tables liaisons
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;
26
 
27
		if($mode == 'obs') {
2042 aurelien 28
			$this->table_liaison = 'cel_mots_cles_obs_liaison';
29
			$this->table_mots_cles = 'cel_arbre_mots_cles_obs';
2027 aurelien 30
		} else {
2042 aurelien 31
			$this->table_liaison = 'cel_mots_cles_images_liaison';
32
			$this->table_mots_cles = 'cel_arbre_mots_cles_images';
2027 aurelien 33
		}
2025 aurelien 34
	}
2026 aurelien 35
 
2027 aurelien 36
	public function construireRequeteOr($mots_cles) {
37
		return $this->construireRequete($mots_cles, 'OR');
38
	}
39
 
40
	public function construireRequeteCheminOr($mots_cles) {
41
		return $this->construireRequeteChemin($mots_cles, 'OR');
42
	}
43
 
44
	public function construireRequeteAnd($mots_cles) {
45
		return $this->construireRequete($mots_cles, 'AND');
46
	}
47
 
48
	public function construireRequeteCheminAnd($mots_cles) {
49
		return $this->construireRequeteChemin($mots_cles, 'AND');
50
	}
51
 
52
	public function construireRequete($mots_cles, $operateur = 'AND') {
53
		$criteres = array();
54
		$premier = array_pop($mots_cles);
2032 aurelien 55
		$requete = "SELECT * FROM ".$this->table_liaison." lmc ".
56
		           "INNER JOIN ".$this->table_mots_cles." mc ".
2042 aurelien 57
		           "ON mc.tag = ".Cel::db()->proteger($premier)." AND lmc.id_mot_cle = mc.id_mot_cle ";
2027 aurelien 58
		foreach ($mots_cles as $mot_cle) {
2032 aurelien 59
			$requete .= " ".$operateur." id_element_lie IN (SELECT id_element_lie FROM ".$this->table_liaison." lmc ".
60
							"INNER JOIN ".$this->table_mots_cles." mc ".
2042 aurelien 61
		           			"ON mc.tag = ".Cel::db()->proteger($mot_cle)." AND lmc.id_mot_cle = mc.id_mot_cle ".
2032 aurelien 62
						") ";
2027 aurelien 63
		}
2032 aurelien 64
 
2027 aurelien 65
		$images = Cel::db()->requeter($requete);
66
		return $images;
67
	}
68
 
2042 aurelien 69
	private function construireRequeteChemin($mots_cles, $operateur = 'AND') {
70
		$criteres = array();
2027 aurelien 71
		$premier = array_pop($mots_cles);
2032 aurelien 72
		$requete = "SELECT * FROM ".$this->table_liaison." lmc ".
73
		           "INNER JOIN ".$this->table_mots_cles." mc ".
2042 aurelien 74
		           "ON mc.chemin LIKE ".Cel::db()->proteger('%'.$premier.'%')." AND lmc.id_mot_cle = mc.id_mot_cle ";
2027 aurelien 75
		foreach ($mots_cles as $mot_cle) {
2032 aurelien 76
			$requete .= " ".$operateur." id_element_lie IN (SELECT id_element_lie FROM ".$this->table_liaison." lmc ".
77
							"INNER JOIN ".$this->table_mots_cles." mc ".
2042 aurelien 78
		           			"ON mc.chemin LIKE ".Cel::db()->proteger('%'.$mot_cle.'%')." AND lmc.id_mot_cle = mc.id_mot_cle ".
2032 aurelien 79
						") ";
2027 aurelien 80
		}
2032 aurelien 81
 
2027 aurelien 82
		$images = Cel::db()->requeter($requete);
83
		return $images;
84
	}
85
 
2025 aurelien 86
	public function obtenirArbre($id_utilisateur, $chemin = "/") {
87
		$requete = "SELECT * FROM ".$this->table_mots_cles." ".
88
		"WHERE id_utilisateur = ".Cel::db()->proteger($id_utilisateur)." AND ".
2026 aurelien 89
		"chemin LIKE ".Cel::db()->proteger($chemin."%")." ".
90
		"ORDER BY chemin";
2025 aurelien 91
 
2026 aurelien 92
		$arbre = Cel::db()->requeter($requete.' -- '.__FILE__.':'.__LINE__);
93
		usort($arbre, array('GestionMotsClesChemin', 'comparerProfNoeuds'));
2025 aurelien 94
 
95
		return $arbre;
96
	}
97
 
2042 aurelien 98
	public function obtenirIdsMotsClesParIdParent($id_utilisateur, $id_mot_cle) {
99
		$requete = "SELECT id_mot_cle FROM ".$this->table_mots_cles." ".
100
		            "WHERE chemin LIKE CONCAT(".
101
		            	"(SELECT chemin FROM ".$this->table_mots_cles." ".
102
		            	"WHERE id_mot_cle = ".Cel::db()->proteger($id_mot_cle)."), ".
103
		            "'%')";
104
 
105
		$ids_enfants = Cel::db()->requeter($requete.' -- '.__FILE__.':'.__LINE__);
106
 
107
		return $ids_enfants;
108
	}
109
 
110
	public function insererParChemin($mot_cle, $chemin_parent, $id_utilisateur) {
2026 aurelien 111
		$chemin_mot_cle = self::getCheminHarmonise($chemin_parent, $mot_cle);
2025 aurelien 112
 
2032 aurelien 113
		$requete = "INSERT IGNORE INTO ".$this->table_mots_cles." (chemin, id_utilisateur, tag) ".
2025 aurelien 114
		           "VALUES (".
115
		           		Cel::db()->proteger($chemin_mot_cle).", ".
116
						Cel::db()->proteger($id_utilisateur).", ".
2026 aurelien 117
						Cel::db()->proteger($mot_cle)." ".
2025 aurelien 118
		           ")";
2032 aurelien 119
 
2025 aurelien 120
		$insertion = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
2042 aurelien 121
		$resultat = false;
122
		if($insertion !== false) {
123
			$resultat = Cel::db()->obtenirDernierId();
124
		}
2025 aurelien 125
 
2042 aurelien 126
		return $resultat;
2025 aurelien 127
	}
128
 
2042 aurelien 129
	public function insererParIdParent($mot_cle, $id_parent, $id_utilisateur) {
2025 aurelien 130
		$mot_cle_simp = self::simplifier($mot_cle);
131
 
2042 aurelien 132
		if($id_parent != "") {
133
			$sous_requete_chemin = "(SELECT chemin FROM ".$this->table_mots_cles." ctp ".
134
			                       "WHERE ctp.id_mot_cle = ".Cel::db()->proteger($id_parent).")";
135
		} else {
136
			$sous_requete_chemin = Cel::db()->proteger("/");
137
		}
2025 aurelien 138
 
2042 aurelien 139
		$requete = "INSERT INTO ".$this->table_mots_cles."(chemin, id_utilisateur, mot_cle) ".
2025 aurelien 140
		           "VALUES (".
2032 aurelien 141
						"CONCAT(".$sous_requete_chemin.",".Cel::db()->proteger($mot_cle_simp).",'/'), ".
2025 aurelien 142
						Cel::db()->proteger($id_utilisateur).", ".
2032 aurelien 143
						Cel::db()->proteger($mot_cle)." ".
2025 aurelien 144
		           ")";
145
 
146
		$insertion = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
147
 
2042 aurelien 148
		if($insertion !== false) {
149
			$resultat = Cel::db()->obtenirDernierId();
150
		}
151
 
152
		return $resultat;
2025 aurelien 153
	}
154
 
2032 aurelien 155
	public function lierParId($id_mot_cle, $id_element_lie) {
156
 
2042 aurelien 157
		$requete = "INSERT INTO ".$this->table_liaison." (id_element_lie, id_mot_cle) ".
2025 aurelien 158
					"VALUES (".
2032 aurelien 159
				   		Cel::db()->proteger($id_element_lie).", ".
160
				   		Cel::db()->proteger($id_mot_cle)." ".
2025 aurelien 161
				   	") ".
2032 aurelien 162
					"ON DUPLICATE KEY UPDATE id_element_lie = id_element_lie ";
2025 aurelien 163
 
164
		$liaison = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
165
 
166
		return $liaison;
167
	}
168
 
2032 aurelien 169
	public function lierParChemin($chemin, $id_element_lie, $id_utilisateur) {
170
 
2042 aurelien 171
		$sous_requete_chemin = '(SELECT id_mot_cle FROM '.$this->table_mots_cles.' '.
2032 aurelien 172
								'WHERE chemin = '.Cel::db()->proteger(self::harmoniserChemin($chemin)).' '.
173
								'AND id_utilisateur = '.Cel::db()->proteger($id_utilisateur).' '.
174
								')';
175
 
2042 aurelien 176
		$requete = "INSERT INTO ".$this->table_liaison." (id_element_lie, id_mot_cle) ".
2025 aurelien 177
					"VALUES (".
2032 aurelien 178
						Cel::db()->proteger($id_element_lie).", ".
179
						$sous_requete_chemin." ".
2025 aurelien 180
				   	") ".
2032 aurelien 181
					"ON DUPLICATE KEY UPDATE id_element_lie = id_element_lie ";
2025 aurelien 182
 
183
		$liaison = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
184
 
185
		return $liaison;
186
	}
187
 
2042 aurelien 188
	public function lierParTableaux($ids_mots_cles, $ids_elements_lies, $id_utilisateur) {
189
 
190
 
191
		foreach($ids_mots_cles as $id_mot_cle) {
192
			foreach($ids_elements_lies as $id_element_lie) {
193
				$combinaisons[] = '('.
194
				                  	Cel::db()->proteger($id_element_lie).', '.
195
									Cel::db()->proteger($id_mot_cle).
196
									')';
197
			}
198
		}
199
 
200
		$requete = "INSERT INTO ".$this->table_liaison." (id_element_lie, id_mot_cle) ".
201
						"VALUES ".
202
							implode(',', $combinaisons).' '.
203
						"ON DUPLICATE KEY UPDATE id_element_lie = id_element_lie ";
204
		$liaison = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
2032 aurelien 205
 
2042 aurelien 206
		return $liaison;
207
	}
208
 
209
	public function supprimerLiaisonsMotsCles($ids_mots_cles, $ids_elements_lies, $id_utilisateur) {
210
 
211
		$requete = 'DELETE FROM '.$this->table_liaison.' WHERE ';
212
		$combinaisons = array();
213
		foreach($ids_mots_cles as $id_mot_cle) {
214
			foreach($ids_elements_lies as $id_element_lie) {
215
				$combinaisons[] = '('.
216
				                  	'id_element_lie = '.Cel::db()->proteger($id_element_lie).' AND '.
217
									'id_mot_cle = '.Cel::db()->proteger($id_mot_cle).
218
									')';
219
			}
220
		}
221
		$requete .= implode(' OR ', $combinaisons);
222
		$suppression = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
223
 
224
		return $suppression;
225
	}
226
 
227
	public function supprimerToutesLiaisonsPourIdsElementsLies($ids_elements_lies, $id_utilisateur) {
228
 
229
		foreach($ids_elements_lies as &$id_element_lie) {
230
			$id_element_lie = Cel::db()->proteger($id_element_lie);
231
		}
232
		$requete = 'DELETE FROM '.$this->table_liaison.' '.
233
		           'WHERE id_element_lie IN ('.implode(',', $ids_elements_lies).')';
234
 
235
		$suppression = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
236
		return $suppression;
237
	}
238
 
239
	public function supprimerToutesLiaisonsIdsMotsCles($ids_mots_cles, $id_utilisateur) {
240
 
241
		foreach($ids_mots_cles as &$id_mot_cle) {
242
			$id_mot_cle = Cel::db()->proteger($id_mot_cle);
243
		}
244
		$requete = 'DELETE FROM '.$this->table_liaison.' '.
245
				           'WHERE id_mot_cle IN ('.implode(',', $ids_mots_cles).') ';
246
 
247
		$suppression = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
248
		return $suppression;
249
	}
250
 
251
	public function renommerMotCle($id_mot_cle, $nouveau_nom) {
252
 
253
		$requete_ancien_chemin = 'SELECT chemin, id_utilisateur FROM '.$this->table_mots_cles.' '.
254
								  'WHERE id_mot_cle = '.Cel::db()->proteger($id_mot_cle);
255
		$res_ancien_chemin = Cel::db()->requeter($requete_ancien_chemin.' -- '.__FILE__.':'.__LINE__);
256
 
257
		$ancien_chemin = $res_ancien_chemin[0]['chemin'];
258
		$id_utilisateur = $res_ancien_chemin[0]['id_utilisateur'];
259
 
260
		$tab_chemin = explode('/', $ancien_chemin);
261
 
262
		// le dernier élément du tableau est vide (à cause du / terminal)
263
		// c'est également le cas pour le premier (à cause du / qui commence le chemin)
264
		$tab_chemin[count($tab_chemin) - 2] = $nouveau_nom;
265
		$nouveau_chemin = implode('/', $tab_chemin);
266
 
267
		$requete = 'UPDATE '.$this->table_mots_cles.' '.
268
		            'SET mot_cle = '.Cel::db()->proteger($nouveau_nom).' '.
269
		            'WHERE id_mot_cle = '.Cel::db()->proteger($id_mot_cle).' ';
270
 
271
		$renommage = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
272
 
273
		$this->renommerChemin($ancien_chemin, $nouveau_chemin, $id_utilisateur);
274
 
275
		return $renommage;
276
	}
277
 
278
	public function deplacerMotCle($id_mot_cle, $id_pere, $id_utilisateur) {
279
 
280
		$selection_chemin_pere = 'SELECT chemin FROM '.$this->table_mots_cles.' '.
281
								 'WHERE id_mot_cle = '.Cel::db()->proteger($id_pere);
282
 
283
		$chemin_pere = Cel::db()->requeter($selection_chemin_pere.' -- '.__FILE__.':'.__LINE__);
284
		$chemin_pere = $chemin_pere[0]['chemin'];
285
 
286
		$selection_infos_mot_cle = 'SELECT chemin, mot_cle FROM '.$this->table_mots_cles.' '.
287
										 'WHERE id_mot_cle = '.Cel::db()->proteger($id_mot_cle);
288
 
289
		$infos_mot_cle = Cel::db()->requeter($selection_infos_mot_cle.' -- '.__FILE__.':'.__LINE__);
290
		$ancien_chemin = $infos_mot_cle[0]['chemin'];
291
 
292
		$nouveau_chemin = $chemin_pere.'/'.$infos_mot_cle[0]['mot_cle'];
293
 
294
		return $this->renommerChemin($ancien_chemin, $nouveau_chemin, $id_utilisateur);
295
	}
296
 
2025 aurelien 297
	public function renommerChemin($ancien_chemin, $nouveau_chemin, $id_utilisateur) {
2026 aurelien 298
 
299
		$ancien_chemin = self::harmoniserChemin($ancien_chemin);
300
		$nouveau_chemin = self::harmoniserChemin($nouveau_chemin);
301
 
302
		$ancien_chemin_p = Cel::db()->proteger($ancien_chemin);
303
		$nouveau_chemin_p = Cel::db()->proteger($nouveau_chemin);
304
 
2042 aurelien 305
		$condition_chemin = Cel::db()->proteger($ancien_chemin.'%');
306
 
2026 aurelien 307
		$requete = "UPDATE ".$this->table_mots_cles." ".
2042 aurelien 308
						       	   "SET chemin = REPLACE(chemin,".$ancien_chemin_p.", ".$nouveau_chemin_p.") ".
309
								   "WHERE chemin LIKE ".$condition_chemin." AND ".
310
						           "id_utilisateur = ".$id_utilisateur." ";
2032 aurelien 311
 
2042 aurelien 312
		return Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
2025 aurelien 313
	}
314
 
315
	public function supprimerChemin($chemin, $id_utilisateur) {
316
		// TODO : triggers pour les tables liées ?
317
		$requete = "DELETE FROM ".$this->$table_mots_cles." ".
318
                   	"WHERE chemin LIKE ".Cel::db()->proteger($chemin."%")." AND ".
319
                   	"id_utilisateur = ".Cel::db()->proteger($id_utilisateur)." ";
320
 
2042 aurelien 321
		return Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
322
	}
323
 
324
	public function supprimerMotCleEtEnfantsParId($id_mot_cle, $id_utilisateur) {
2025 aurelien 325
 
2042 aurelien 326
		$selection_chemin = 'SELECT chemin FROM '.$this->table_mots_cles.' '.
327
										 'WHERE id_mot_cle = '.Cel::db()->proteger($id_mot_cle);
328
		$chemin = Cel::db()->requeter($selection_chemin.' -- '.__FILE__.':'.__LINE__);
329
		$chemin = $chemin[0]['chemin'];
330
 
331
		$requete = "DELETE FROM ".$this->table_mots_cles." WHERE chemin LIKE ".
332
					Cel::db()->proteger($chemin.'%')." ".
333
		           	"AND id_utilisateur =".Cel::db()->proteger($id_utilisateur);
334
 
335
		return Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
336
 
2025 aurelien 337
	}
338
 
2042 aurelien 339
	public function obtenirIdElementsLiesPourChemins($chemins) {
340
		foreach($chemins as &$chemin) {
341
			$chemin = Cel::db()->proteger(self::harmoniserChemin($chemin));
342
		}
343
 
344
		$requete = 'SELECT id_element_lie FROM '.$this->table_liaison.' cl '.
345
		            'INNER JOIN '.$this->table_mots_cles.' cm '.
346
		            'ON cm.id_mot_cle = cl.id_mot_cle AND chemin IN ('.implode(',', $chemin).')';
347
 
348
		$ids_pour_chemin = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
349
 
350
		return $ids_pour_chemin;
351
	}
352
 
353
	public function obtenirIdElementsLiesPourIds($ids_mots_cles) {
354
 
355
		foreach($ids_mots_cles as $id_mot_cle) {
356
			$id_mot_cle = Cel::db()->proteger($id_mot_cle);
357
		}
358
 
359
		$requete = 'SELECT id_element_lie FROM '.$this->table_liaison.' '.
360
			            'WHERE id_mot_cle IN ('.implode(',', $ids_mots_cles).')';
361
 
362
		$ids_elements_lies = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
363
 
364
		return $ids_elements_lies;
365
	}
366
 
367
	public static function obtenirTemplateRequeteMotsClesTexte($mode) {
368
 
369
		if($mode == 'obs') {
370
			$table_liaison = 'cel_mots_cles_obs_liaison';
371
			$table_mots_cles = 'cel_arbre_mots_cles_obs';
372
		} else {
373
			$table_liaison = 'cel_mots_cles_images_liaison';
374
			$table_mots_cles = 'cel_arbre_mots_cles_images';
375
		}
376
 
377
		// renvoie un template de requete pour selectionner la concatenation
378
		// de mots clé pour un element donné (utilisable avec sprintf)
379
		return 'SELECT GROUP_CONCAT(mot_cle) '.
380
					'FROM '.$table_mots_cles.' cm '.
381
					'INNER JOIN '.$table_liaison.' cml '.
382
					'ON cml.id_mot_cle = cm.id_mot_cle '.
383
					'AND cml.id_element_lie = %s ';
384
	}
385
 
2025 aurelien 386
	// Fonctions utilitaires
387
	static public function comparerProfNoeuds($a, $b) {
388
 
389
		$nb_slashs_a = substr_count($a['chemin'], '/');
390
		$nb_slashs_b = substr_count($a['chemin'], '/');
391
		$cmp = 0;
392
 
393
		if($nb_slashs_a == $nb_slashs_b) {
394
			$cmp = strcmp($a['chemin'], $b['chemin']);
395
		} else {
396
			$cmp = ($a['chemin'] > $b['chemin']) ? +1 : -1;
397
		}
398
 
399
		return $cmp;
400
	}
401
 
2026 aurelien 402
	static public function getCheminHarmonise($chemin_parent, $mot_cle) {
403
		return self::harmoniserChemin($chemin_parent.'/'.self::simplifier($mot_cle).'/');
404
	}
405
 
406
	static public function harmoniserChemin($chemin) {
407
		$chemin = self::startsWith($chemin,'/') ? $chemin : '/'.$chemin;
408
		$chemin = self::endsWith($chemin,'/') ? $chemin : $chemin.'/';
409
		return str_replace('//', '/', $chemin);
410
	}
411
 
2025 aurelien 412
	// fonction de slugification du mot clé
413
	// http://stackoverflow.com/questions/2955251/php-function-to-make-slug-url-string
414
	static public function simplifier($text)
415
	{
2026 aurelien 416
		return trim(str_replace(array('\\','/'), '', $text));
2025 aurelien 417
		// replace non letter or digits by -
418
		$text = preg_replace('~[^\\pL\d]+~u', '-', $text);
419
 
420
		// trim
421
		$text = trim($text, '-');
422
 
423
		// transliterate
424
		$text = iconv('utf-8', 'us-ascii//TRANSLIT', $text);
425
 
426
		// lowercase
427
		$text = strtolower($text);
428
 
429
		// remove unwanted characters
430
		$text = preg_replace('~[^-\w]+~', '', $text);
431
 
432
		if (empty($text))
433
		{
434
			return 'n-a';
435
		}
436
 
437
		return $text;
438
	}
2026 aurelien 439
 
440
	static public function startsWith($haystack, $needle) {
441
		return $needle === "" || strpos($haystack, $needle) === 0;
442
	}
443
 
444
	static public function endsWith($haystack, $needle) {
445
		return $needle === "" || substr($haystack, -strlen($needle)) === $needle;
446
	}
2025 aurelien 447
}
448
?>