WebSVN – eFlore/Applications.cel – Diff – /trunk/jrest/bibliotheque/GestionMotsClesChemin.php


<?php
/**
* @package   jrest
* @author    Aurélien Peronnet <aurelien@tela-botania.org>
* @copyright 2010, 2013 Tela-Botanica
* @license   http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL
*
* Librairie de liaison d'images et d'observation à des mots clés en utilisant la méthode
* path enumeration
*/
 
class GestionMotsClesChemin {
	
	private $config;
	private $mode;
	
	private $table_liaison;
	private $table_mots_cles;
	
	//TODO: trigger pour les tables liaisons
	
	public function GestionMotsClesChemin($config, $mode = 'obs') {
		$this->config = $config;
		//TODO: switch suivant mode
		$this->mode = $mode;
		
		if($mode == 'obs') {
			$this->table_liaison = 'cel_mots_cles_obs_liaison';
			$this->table_mots_cles = 'cel_arbre_mots_cles_obs';
		} else {
			$this->table_liaison = 'cel_mots_cles_images_liaison';
			$this->table_mots_cles = 'cel_arbre_mots_cles_images';
		}
	}
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
	
	public function obtenirArbre($id_utilisateur, $chemin = "/") {
		$requete = "SELECT * FROM ".$this->table_mots_cles." ".
		"WHERE id_utilisateur = ".Cel::db()->proteger($id_utilisateur)." AND ".
		"chemin LIKE ".Cel::db()->proteger($chemin."%")." ".
		"ORDER BY chemin";
		
		$arbre = Cel::db()->requeter($requete.' -- '.__FILE__.':'.__LINE__);	
		usort($arbre, array('GestionMotsClesChemin', 'comparerProfNoeuds'));
		
		return $arbre;
	}
	
	public function obtenirIdsMotsClesParIdParent($id_utilisateur, $id_mot_cle) {
		$requete = "SELECT id_mot_cle FROM ".$this->table_mots_cles." ".
		            "WHERE chemin LIKE CONCAT(".
		            	"(SELECT chemin FROM ".$this->table_mots_cles." ".
		            	"WHERE id_mot_cle = ".Cel::db()->proteger($id_mot_cle)."), ".
		            "'%')";  
		    
		$ids_enfants = Cel::db()->executerRequete($requete.' -- '.__FILE__.':'.__LINE__);
 
		return $ids_enfants;
	}
	
	public function insererParChemin($mot_cle, $chemin_parent, $id_utilisateur) {		
		$chemin_mot_cle = self::getCheminHarmonise($chemin_parent, $mot_cle);
		
		$requete = "INSERT IGNORE INTO ".$this->table_mots_cles." (chemin, id_utilisateur, tag) ".
		           "VALUES (".
		           		Cel::db()->proteger($chemin_mot_cle).", ".
						Cel::db()->proteger($id_utilisateur).", ".
						Cel::db()->proteger($mot_cle)." ".
		           ")";
 
		$insertion = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
		$resultat = false;
		if($insertion !== false) {
			$resultat = Cel::db()->obtenirDernierId();
		}
		
		return $resultat;
	}
	
	public function insererParIdParent($mot_cle, $id_parent, $id_utilisateur) {	
		$mot_cle_simp = self::simplifier($mot_cle);
		
		if($id_parent != "") {
			$sous_requete_chemin = "(SELECT chemin FROM ".$this->table_mots_cles." ctp ".
			                       "WHERE ctp.id_mot_cle = ".Cel::db()->proteger($id_parent).")";
		} else {
			$sous_requete_chemin = Cel::db()->proteger("/");
		}
		
		$requete = "INSERT INTO ".$this->table_mots_cles."(chemin, id_utilisateur, mot_cle) ".
		           "VALUES (".
						"CONCAT(".$sous_requete_chemin.",".Cel::db()->proteger($mot_cle_simp).",'/'), ".
						Cel::db()->proteger($id_utilisateur).", ".
						Cel::db()->proteger($mot_cle)." ".
		           ")";
 
		$insertion = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
		
		if($insertion !== false) {
			$resultat = Cel::db()->obtenirDernierId();
		}
		
		return $resultat;
	}
	
	public function lierParId($id_mot_cle, $id_element_lie) {
				
		$requete = "INSERT INTO ".$this->table_liaison." (id_element_lie, id_mot_cle) ".
					"VALUES (".
				   		Cel::db()->proteger($id_element_lie).", ".
				   		Cel::db()->proteger($id_mot_cle)." ".
				   	") ".
					"ON DUPLICATE KEY UPDATE id_element_lie = id_element_lie ";
		
		$liaison = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
		
		return $liaison;
	}
	
	public function lierParChemin($chemin, $id_element_lie, $id_utilisateur) {
 
		$sous_requete_chemin = '(SELECT id_mot_cle FROM '.$this->table_mots_cles.' '.
								'WHERE chemin = '.Cel::db()->proteger(self::harmoniserChemin($chemin)).' '.
								'AND id_utilisateur = '.Cel::db()->proteger($id_utilisateur).' '.
								')';
		
		$requete = "INSERT INTO ".$this->table_liaison." (id_element_lie, id_mot_cle) ".
					"VALUES (".
						Cel::db()->proteger($id_element_lie).", ".
						$sous_requete_chemin." ".
				   	") ".
					"ON DUPLICATE KEY UPDATE id_element_lie = id_element_lie ";
		
		$liaison = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
		
		return $liaison;
	}
	
	public function lierParTableaux($ids_mots_cles, $ids_elements_lies, $id_utilisateur) {
				
		foreach($ids_mots_cles as $id_mot_cle) {
			foreach($ids_elements_lies as $id_element_lie) {
				$combinaisons[] = '('.
				                  	Cel::db()->proteger($id_element_lie).', '.
									Cel::db()->proteger($id_mot_cle).	
									')';
			}
		} 
		
		$requete = "INSERT INTO ".$this->table_liaison." (id_element_lie, id_mot_cle) ".
						"VALUES ".
							implode(',', $combinaisons).' '.
						"ON DUPLICATE KEY UPDATE id_element_lie = id_element_lie ";
		$liaison = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
	
		return $liaison;
	}
	
	public function supprimerLiaisonsMotsCles($ids_mots_cles, $ids_elements_lies, $id_utilisateur) {
		
		$requete = 'DELETE FROM '.$this->table_liaison.' WHERE ';
		$combinaisons = array();
		foreach($ids_mots_cles as $id_mot_cle) {
			foreach($ids_elements_lies as $id_element_lie) {
				$combinaisons[] = '('.
				                  	'id_element_lie = '.Cel::db()->proteger($id_element_lie).' AND '.
									'id_mot_cle = '.Cel::db()->proteger($id_mot_cle).	
									')';
			}
		} 
		$requete .= implode(' OR ', $combinaisons);
		$suppression = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
		
		return $suppression;
	}
	
	public function supprimerToutesLiaisonsPourIdsElementsLies($ids_elements_lies, $id_utilisateur) {
		foreach($ids_elements_lies as &$id_element_lie) {
			$id_element_lie = Cel::db()->proteger($id_element_lie);
		}
		$requete = 'DELETE FROM '.$this->table_liaison.' '.
		           'WHERE id_element_lie IN ('.implode(',', $ids_elements_lies).')';
		
		$suppression = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
		$suppression = ($suppression !== false);
		return $suppression;
	}
	
	public function supprimerToutesLiaisonsIdsMotsCles($ids_mots_cles, $id_utilisateur) {
		
		if(!empty($ids_mots_cles)) {
			$ids_mots_cles_p = array();
			foreach($ids_mots_cles as $id_mot_cle) {
				$id_mot_cle = Cel::db()->proteger($id_mot_cle);
			}
			$requete = 'DELETE FROM '.$this->table_liaison.' '.
					           'WHERE id_mot_cle IN ('.implode(',', $ids_mots_cles).') ';
			
			$suppression = Cel::db()->executerRequeteSimple($requete.' -- '.__FILE__.':'.__LINE__);
			$suppression = ($suppression !== false);
		} else {
			$suppression = true;
		}
		return $suppression;
	}
	
	public function supprimerLiaisonPourMotCleEtIdElementLie($mot_cle, $id_element_lie, $id_utilisateur) {
		// supprime toutes les laisons pour un utilisateur et un mot clé (au sens textuel) donnés
		$requete = "DELETE FROM ".$this->table_liaison." ".
					"WHERE id_element_lie = ".Cel::db()->proteger($id_element_lie)." ".
					"AND id_mot_cle IN (".
						"SELECT id_mot_cle FROM ".$this->table_mots_cles." ".
						"WHERE mot_cle = ".Cel::db()->proteger($mot_cle)." ".
						"AND id_utilisateur = ".Cel::db()->proteger($id_utilisateur)." ".
					")"; 
 
		$suppression_liaison = Cel::db()->executerRequeteSimple($requete.' -- '.__FILE__.':'.__LINE__);
		$suppression_liaison = ($suppression_liaison !== false);
 
		return $suppression_liaison;
	}
	
	public function renommerMotCle($id_mot_cle, $nouveau_nom) {
		
		$requete_ancien_chemin = 'SELECT chemin, id_utilisateur FROM '.$this->table_mots_cles.' '.
								  'WHERE id_mot_cle = '.Cel::db()->proteger($id_mot_cle);
		$res_ancien_chemin = Cel::db()->requeter($requete_ancien_chemin.' -- '.__FILE__.':'.__LINE__);
		
		$ancien_chemin = $res_ancien_chemin[0]['chemin'];
		$id_utilisateur = $res_ancien_chemin[0]['id_utilisateur'];
		
		$tab_chemin = explode('/', $ancien_chemin);
		
		// le dernier élément du tableau est vide (à cause du / terminal)
		// c'est également le cas pour le premier (à cause du / qui commence le chemin)
		$tab_chemin[count($tab_chemin) - 2] = $nouveau_nom;
		$nouveau_chemin = implode('/', $tab_chemin);
		
		$requete = 'UPDATE '.$this->table_mots_cles.' '.
		            'SET mot_cle = '.Cel::db()->proteger($nouveau_nom).' '.
		            'WHERE id_mot_cle = '.Cel::db()->proteger($id_mot_cle).' ';
		
		$renommage = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
		
		$this->renommerChemin($ancien_chemin, $nouveau_chemin, $id_utilisateur);
		
		$ids_elements_lies = $this->obtenirIdElementsLiesPourIds(array($id_mot_cle));
		foreach($ids_elements_lies as $id_element_lie) {
			self::regenererIndexTexteMotCle($id_element_lie['id_element_lie'], $this->mode);
		}
		
		return $renommage;
	}
	
	public function deplacerMotCle($id_mot_cle, $id_pere, $id_utilisateur) {	
 
		$selection_chemin_pere = 'SELECT chemin FROM '.$this->table_mots_cles.' '.
								 'WHERE id_mot_cle = '.Cel::db()->proteger($id_pere);
		
		$chemin_pere = Cel::db()->requeter($selection_chemin_pere.' -- '.__FILE__.':'.__LINE__);
		$chemin_pere = $chemin_pere[0]['chemin'];
		
		$selection_infos_mot_cle = 'SELECT chemin, mot_cle FROM '.$this->table_mots_cles.' '.
										 'WHERE id_mot_cle = '.Cel::db()->proteger($id_mot_cle);
		
		$infos_mot_cle = Cel::db()->requeter($selection_infos_mot_cle.' -- '.__FILE__.':'.__LINE__);
		$ancien_chemin = $infos_mot_cle[0]['chemin'];
		
		$nouveau_chemin = $chemin_pere.'/'.$infos_mot_cle[0]['mot_cle'];
		
		return $this->renommerChemin($ancien_chemin, $nouveau_chemin, $id_utilisateur);
	}
	
	public function renommerChemin($ancien_chemin, $nouveau_chemin, $id_utilisateur) {
		
		$ancien_chemin = self::harmoniserChemin($ancien_chemin);
		$nouveau_chemin = self::harmoniserChemin($nouveau_chemin);
		
		$ancien_chemin_p = Cel::db()->proteger($ancien_chemin);
		$nouveau_chemin_p = Cel::db()->proteger($nouveau_chemin);
		
		$condition_chemin = Cel::db()->proteger($ancien_chemin.'%');
		
		$requete = "UPDATE ".$this->table_mots_cles." ".
						       	   "SET chemin = REPLACE(chemin,".$ancien_chemin_p.", ".$nouveau_chemin_p.") ".                              
								   "WHERE chemin LIKE ".$condition_chemin." AND ".
						           "id_utilisateur = ".$id_utilisateur." "; 
		
		return Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
	}
	
	public function supprimerChemin($chemin, $id_utilisateur) {
		// TODO : triggers pour les tables liées ?
		$requete = "DELETE FROM ".$this->$table_mots_cles." ".
                   	"WHERE chemin LIKE ".Cel::db()->proteger($chemin."%")." AND ".
                   	"id_utilisateur = ".Cel::db()->proteger($id_utilisateur)." ";   
 
		return Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);			
	}
	
	public function supprimerMotCleParId($id_mot_cle, $id_utilisateur) {
		//TODO: simplifier cette fonction
		
		// suppression des associations du mots clé aux images ou obs, mais aussi des associations de ses enfants
		// (car ceux-ci seront supprimés aussi dans le processus)
		// même s'il n'a pas d'enfants, le tableau contient au moins l'id du mot clé lui même
		$ids_mot_cle_et_enfants = $this->obtenirIdsMotsClesParIdParent($id_utilisateur, $id_mot_cle);
		
		$print = array();
		
		// obtention des ids des éléments liés au mot clé ainsi qu'à ces enfants (afin de pouvoir
		// régénérer les index texte de mots clés sur les éléments liés
		$ids_a_delier = array();
		foreach($ids_mot_cle_et_enfants as $id) {
			$ids_a_delier[] = $id['id_mot_cle'];
		}
		
		$ids_elements_lies = $this->obtenirIdElementsLiesPourIds($ids_a_delier);
		$suppression_liaison = $this->supprimerToutesLiaisonsIdsMotsCles($ids_a_delier, $id_utilisateur);
 
		foreach($ids_elements_lies as $id_element_lie) {
			self::regenererIndexTexteMotCle($id_element_lie['id_element_lie'], $this->mode);
		}
		
		// suppression du mot clé proprement dit ainsi que de ses enfants
		$suppression = $this->supprimerMotCleEtEnfantsParId($id_mot_cle, $id_utilisateur);
		
		return $suppression && $suppression_liaison;
	}
	
	public function supprimerMotCleEtEnfantsParId($id_mot_cle, $id_utilisateur) {
		
		$selection_chemin = 'SELECT chemin FROM '.$this->table_mots_cles.' '.
										 'WHERE id_mot_cle = '.Cel::db()->proteger($id_mot_cle);
		$chemin = Cel::db()->requeter($selection_chemin.' -- '.__FILE__.':'.__LINE__);
		
		$suppression = true;
		// vérification pour empecher la suppression accidentelle de tout l'arbre, cas qui ne devrait arriver
		if(!empty($chemin) && $chemin != "/") {	
			$chemin = $chemin[0]['chemin'];		
			$requete = "DELETE FROM ".$this->table_mots_cles." WHERE chemin LIKE ".
						Cel::db()->proteger($chemin.'%')." ".
			           	"AND id_utilisateur =".Cel::db()->proteger($id_utilisateur);
			
			$suppression = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
		}
 
		return ($suppression !== false);
		
	}
	
	public function obtenirIdElementsLiesPourChemins($chemins, $id_utilisateur) {
		foreach($chemins as &$chemin) {
			$chemin = Cel::db()->proteger(self::harmoniserChemin($chemin));
		}
		
		$requete = 'SELECT id_element_lie FROM '.$this->table_liaison.' cl '.
		            'INNER JOIN '.$this->table_mots_cles.' cm '.
		            'ON cm.id_mot_cle = cl.id_mot_cle AND chemin IN ('.implode(',', $chemin).') '.
		            ' AND cm.id_utilisateur = '.Cel::db()->proteger($id_utilisateur);
		
		$ids_pour_chemin = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
		
		return $ids_pour_chemin;
	}
	
	public function obtenirIdElementsLiesPourIds($ids_mots_cles) {
		$ids_elements_lies = array();
		if(!empty($ids_mots_cles)) {
			foreach($ids_mots_cles as $id_mot_cle) {
				$id_mot_cle = Cel::db()->proteger($id_mot_cle);
			}
		
			$requete = 'SELECT id_element_lie FROM '.$this->table_liaison.' '.
				            'WHERE id_mot_cle IN ('.implode(',', $ids_mots_cles).')';
		
			$ids_elements_lies = Cel::db()->executerRequete($requete.' -- '.__FILE__.':'.__LINE__);
		}
 
		return $ids_elements_lies;
	}
	
	public static function regenererIndexTexteMotCle($id_element_lie, $mode) {
		$sous_requete_concat = '('.sprintf(GestionMotsClesChemin::obtenirTemplateRequeteMotsClesTexte($mode),
		Cel::db()->proteger($id_element_lie)).')';
		
		list($table, $champ_id) = self::getNomTablesEtChampsElementsLies($mode);
		$requete = 'UPDATE '.$table.' SET mots_cles_texte = '.$sous_requete_concat.' '.
				           'WHERE '.$champ_id.' = '.Cel::db()->proteger($id_element_lie).' ';
		
		return Cel::db()->executer($requete, __FILE__ , __LINE__);
	}
	
	private static function getNomTablesEtChampsElementsLies($mode) {
		$tables = array();
		if($mode == 'obs') {
			$tables = array('cel_obs','id_observation');
		} else {
			$tables = array('cel_images','id_image');
		}
		return $tables;
	}
	
	public static function obtenirTemplateRequeteMotsClesTexte($mode) {
		
		if($mode == 'obs') {
			$table_liaison = 'cel_mots_cles_obs_liaison';
			$table_mots_cles = 'cel_arbre_mots_cles_obs';
		} else {
			$table_liaison = 'cel_mots_cles_images_liaison';
			$table_mots_cles = 'cel_arbre_mots_cles_images';
		}
		
		// renvoie un template de requete pour selectionner la concatenation
		// de mots clé pour un element donné (utilisable avec sprintf)
		return 'SELECT GROUP_CONCAT(mot_cle) '.
					'FROM '.$table_mots_cles.' cm '.
					'INNER JOIN '.$table_liaison.' cml '.
					'ON cml.id_mot_cle = cm.id_mot_cle '.
					'AND cml.id_element_lie = %s ';
	}
	
	// Fonctions utilitaires	
	static public function comparerProfNoeuds($a, $b) {
		
		$nb_slashs_a = substr_count($a['chemin'], '/');
		$nb_slashs_b = substr_count($a['chemin'], '/');
		$cmp = 0;
		
		if($nb_slashs_a == $nb_slashs_b) {
			$cmp = strcmp($a['chemin'], $b['chemin']);
		} else {
			$cmp = ($a['chemin'] > $b['chemin']) ? +1 : -1;
		}
		
		return $cmp;
	}
	
	static public function getCheminHarmonise($chemin_parent, $mot_cle) {
		return self::harmoniserChemin($chemin_parent.'/'.self::simplifier($mot_cle).'/');
	}
	
	static public function harmoniserChemin($chemin) {
		$chemin = self::startsWith($chemin,'/') ? $chemin : '/'.$chemin;
		$chemin = self::endsWith($chemin,'/') ? $chemin : $chemin.'/';
		return str_replace('//', '/', $chemin);
	}
	
	// fonction de slugification du mot clé
	// http://stackoverflow.com/questions/2955251/php-function-to-make-slug-url-string
	static public function simplifier($text)
	{
		return trim(str_replace(array('\\','/'), '', $text));
		// replace non letter or digits by -
		$text = preg_replace('~[^\\pL\d]+~u', '-', $text);
	
		// trim
		$text = trim($text, '-');
	
		// transliterate
		$text = iconv('utf-8', 'us-ascii//TRANSLIT', $text);
	
		// lowercase
		$text = strtolower($text);
	
		// remove unwanted characters
		$text = preg_replace('~[^-\w]+~', '', $text);
	
		if (empty($text))
		{
			return 'n-a';
		}
	
		return $text;
	}
	
	static public function startsWith($haystack, $needle) {
		return $needle === "" || strpos($haystack, $needle) === 0;
	}
	
	static public function endsWith($haystack, $needle) {
		return $needle === "" || substr($haystack, -strlen($needle)) === $needle;
	}
}
?>

Subversion Repositories eFlore/Applications.cel

(root)/trunk/jrest/bibliotheque/GestionMotsClesChemin.php @ 2959 – Rev 2045 → 2046

Rev 2045		Rev 2046
1	`<?php`	1	`<?php`
2	`/**`	2	`/**`
3	`* @package jrest`	3	`* @package jrest`
4	`* @author Aurélien Peronnet <aurelien@tela-botania.org>`	4	`* @author Aurélien Peronnet <aurelien@tela-botania.org>`
5	`* @copyright 2010, 2013 Tela-Botanica`	5	`* @copyright 2010, 2013 Tela-Botanica`
6	`* @license http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL`	6	`* @license http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL`
7	`*`	7	`*`
8	`* Librairie de liaison d'images et d'observation à des mots clés en utilisant la méthode`	8	`* Librairie de liaison d'images et d'observation à des mots clés en utilisant la méthode`
9	`* path enumeration`	9	`* path enumeration`
10	`*/`	10	`*/`
11		11
12	`class GestionMotsClesChemin {`	12	`class GestionMotsClesChemin {`
13		13
14	`private $config;`	14	`private $config;`
15	`private $mode;`	15	`private $mode;`
16		16
17	`private $table_liaison;`	17	`private $table_liaison;`
18	`private $table_mots_cles;`	18	`private $table_mots_cles;`
19		19
20	`//TODO: trigger pour les tables liaisons`	20	`//TODO: trigger pour les tables liaisons`
21		21
22	`public function GestionMotsClesChemin($config, $mode = 'obs') {`	22	`public function GestionMotsClesChemin($config, $mode = 'obs') {`
23	`$this->config = $config;`	23	`$this->config = $config;`
24	`//TODO: switch suivant mode`	24	`//TODO: switch suivant mode`
25	`$this->mode = $mode;`	25	`$this->mode = $mode;`
26		26
27	`if($mode == 'obs') {`	27	`if($mode == 'obs') {`
28	`$this->table_liaison = 'cel_mots_cles_obs_liaison';`	28	`$this->table_liaison = 'cel_mots_cles_obs_liaison';`
29	`$this->table_mots_cles = 'cel_arbre_mots_cles_obs';`	29	`$this->table_mots_cles = 'cel_arbre_mots_cles_obs';`
30	`} else {`	30	`} else {`
31	`$this->table_liaison = 'cel_mots_cles_images_liaison';`	31	`$this->table_liaison = 'cel_mots_cles_images_liaison';`
32	`$this->table_mots_cles = 'cel_arbre_mots_cles_images';`	32	`$this->table_mots_cles = 'cel_arbre_mots_cles_images';`
33	`}`	33	`}`
34	`}`	34	`}`
35		-
36	`public function construireRequeteOr($mots_cles) {`	-
37	`return $this->construireRequete($mots_cles, 'OR');`	-
38	`}`	-
39		-
40	`public function construireRequeteCheminOr($mots_cles) {`	-