Subversion Repositories eFlore/Applications.cel

Rev

Rev 2042 | Go to most recent revision | Blame | Last modification | View Log | RSS feed

<?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 construireRequeteOr($mots_cles) {
                return $this->construireRequete($mots_cles, 'OR');
        }
        
        public function construireRequeteCheminOr($mots_cles) {
                return $this->construireRequeteChemin($mots_cles, 'OR');
        }
        
        public function construireRequeteAnd($mots_cles) {
                return $this->construireRequete($mots_cles, 'AND');
        }
        
        public function construireRequeteCheminAnd($mots_cles) {
                return $this->construireRequeteChemin($mots_cles, 'AND');
        }
        
        public function construireRequete($mots_cles, $operateur = 'AND') {
                $criteres = array();
                $premier = array_pop($mots_cles);
                $requete = "SELECT * FROM ".$this->table_liaison." lmc ".
                           "INNER JOIN ".$this->table_mots_cles." mc ".
                           "ON mc.tag = ".Cel::db()->proteger($premier)." AND lmc.id_mot_cle = mc.id_mot_cle ";
                foreach ($mots_cles as $mot_cle) {
                        $requete .= " ".$operateur." id_element_lie IN (SELECT id_element_lie FROM ".$this->table_liaison." lmc ".
                                                        "INNER JOIN ".$this->table_mots_cles." mc ".
                                                "ON mc.tag = ".Cel::db()->proteger($mot_cle)." AND lmc.id_mot_cle = mc.id_mot_cle ".
                                                ") ";
                }

                $images = Cel::db()->requeter($requete);
                return $images;
        }
        
        private function construireRequeteChemin($mots_cles, $operateur = 'AND') {      
                $criteres = array();
                $premier = array_pop($mots_cles);
                $requete = "SELECT * FROM ".$this->table_liaison." lmc ".
                           "INNER JOIN ".$this->table_mots_cles." mc ".
                           "ON mc.chemin LIKE ".Cel::db()->proteger('%'.$premier.'%')." AND lmc.id_mot_cle = mc.id_mot_cle ";
                foreach ($mots_cles as $mot_cle) {
                        $requete .= " ".$operateur." id_element_lie IN (SELECT id_element_lie FROM ".$this->table_liaison." lmc ".
                                                        "INNER JOIN ".$this->table_mots_cles." mc ".
                                                "ON mc.chemin LIKE ".Cel::db()->proteger('%'.$mot_cle.'%')." AND lmc.id_mot_cle = mc.id_mot_cle ".
                                                ") ";
                }
                
                $images = Cel::db()->requeter($requete);
                return $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 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);
                
                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;
                if(!empty($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) {
                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).')';
                
                $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;
        }
}
?>