Subversion Repositories eFlore/Applications.cel

<?php
// declare(encoding='UTF-8');
/**
 * Classe de recherche d'images à partir de divers critères.
 *
 * @internal   Mininum PHP version : 5.2
 * @category   CEL
 * @package    Services
 * @subpackage Bibliothèques
 * @version    0.1
 * @author     Mathias CHOUET <mathias@tela-botanica.org>
 * @author     Jean-Pascal MILCENT <jpm@tela-botanica.org>
 * @author     Aurelien PERONNET <aurelien@tela-botanica.org>
 * @license    GPL v3 <http://www.gnu.org/licenses/gpl.txt>
 * @license    CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>
 * @copyright  1999-2014 Tela Botanica <accueil@tela-botanica.org>
 */
class RechercheImage extends Cel {
        
        public static $tris_possibles = array(
                        'ordre',
                        'taxon',
                        'transmission',
                        'zone_geo',
                        'date_prise_de_vue',
                        'appareil_fabriquant',
                        'note_qualite',
                        'nom_original'
        );

        function rechercherImagesEtObservationAssociees($id_utilisateur = null, $criteres = array(), $debut = 0, $limite = 50) {
                $images_trouvees = $this->rechercherImages($id_utilisateur, $criteres, $debut, $limite);

                $retour = array();
                foreach($images_trouvees as $image) {
                        $image['id_observation'] = $this->obtenirInformationsObservationsAssociees($image['ce_utilisateur'],$image['id_image']);
                        $retour[] = $image ;
                }
                return $retour;
        }

        public function rechercherImages($id_utilisateur = null, $criteres = array(), $debut = 0 , $limite = 50) {
                $ordre = (isset($criteres['tri']) && $criteres['tri']) ? $criteres['tri'] : 'ci.ordre';
                unset($criteres['tri']);
                $direction = (isset($criteres['dir']) && $criteres['dir']) ? $criteres['dir'] : 'ASC';
                unset($criteres['dir']);

                $debut = ($debut < 0) ? 0 : $debut;
                $requete_recherche_images = 'SELECT ci.* ';

                if ($this->doitJoindreTableObs($criteres, $ordre)) {
                        $requete_recherche_images .= $this->fabriquerRequeteJointureObs();
                        $requete_recherche_images .= ($id_utilisateur != null) ? 'AND ci.ce_utilisateur = '.Cel::db()->proteger($id_utilisateur) : '';
                } else {
                        $requete_recherche_images .= 'FROM cel_images ci ';
                        $requete_recherche_images .= ($id_utilisateur != null) ? 'WHERE ci.ce_utilisateur = '.Cel::db()->proteger($id_utilisateur) : '';
                }

                $sous_requete_recherche = $this->fabriquerSousRequeteRecherche($id_utilisateur, $criteres);
                $requete_recherche_images .= $sous_requete_recherche;

                $requete_recherche_images .= ' ORDER BY '.$ordre.' '.$direction.' LIMIT '.$debut.','.$limite ;

                $resultats_images = array();
                $resultats_images = Cel::db()->requeter($requete_recherche_images);

                return $resultats_images;
        }

        public function compterImages($id_utilisateur = null, $criteres = array()) {
                $ordre = (isset($criteres['tri']) && $criteres['tri']) ? $criteres['tri'] : 'ci.ordre';
                unset($criteres['tri']);
                $direction = (isset($criteres['dir']) && $criteres['dir']) ? $criteres['dir'] : 'ASC';
                unset($criteres['dir']);

                $requete_recherche_images = 'SELECT COUNT(*) AS nb_images ';

                if ($this->doitJoindreTableObs($criteres)) {
                        $requete_recherche_images .= $this->fabriquerRequeteJointureObs();
                        $requete_recherche_images .= ($id_utilisateur != null) ? 'AND ci.ce_utilisateur = '.Cel::db()->proteger($id_utilisateur) : '';
                } else {
                        $requete_recherche_images .= 'FROM cel_images ci ';
                        $requete_recherche_images .= ($id_utilisateur != null) ? 'WHERE ci.ce_utilisateur = '.Cel::db()->proteger($id_utilisateur) : '';
                }
                $sous_requete_recherche = $this->fabriquerSousRequeteRecherche($id_utilisateur, $criteres);

                $requete_recherche_images .= $sous_requete_recherche;
                $nb_images = 0;

                $resultat_requete_nombre_images = Cel::db()->requeter($requete_recherche_images);

                if ($resultat_requete_nombre_images && is_array($resultat_requete_nombre_images) && count($resultat_requete_nombre_images) > 0) {
                        $nb_images = $resultat_requete_nombre_images[0]['nb_images'];
                }
                return $nb_images;
        }

        private function doitJoindreTableObs($criteres = array(), $tri = "") {
                $tris_obs = array('nom_sel','transmission','zone_geo');
                $criteres_obs = array('zone_geo','ce_zone_geo','taxon','transmission','recherche');
                return count(array_intersect(array_keys($criteres),$criteres_obs)) > 0 ||
                                (!empty($tri) && in_array($tri, $tris_obs));
        }

        private function fabriquerRequeteJointureObs() {
                $requete = 'FROM cel_images ci '.
                        'LEFT JOIN cel_obs co '.
                                'ON ci.ce_observation = co.id_observation '.
                        'WHERE 1 ';
                return $requete;
        }

        public function obtenirInformationsObservationsAssociees($id_utilisateur, $id_image) {
                $requete = 'SELECT ce_observation FROM cel_images WHERE id_image = '.$id_image;
                $resultats = Cel::db()->requeter($requete);

                $idsObsListe = array();
                foreach ($resultats as $liaison) {
                        $idsObsListe[] = $liaison['ce_observation'];
                }
                $ids_obs = implode(',', $idsObsListe);

                $infos_obs = '';
                if (trim($ids_obs) != '') {
                        $requete = 'SELECT * FROM cel_obs WHERE id_observation IN ('.$ids_obs.') AND ce_utilisateur = "'.$id_utilisateur.'"';
                        $resultats = Cel::db()->requeter($requete);

                        foreach ($resultats as $obs_liee) {
                                $infos_obs .= $obs_liee['ordre'].'#'.$obs_liee['nom_sel'].'#'.$obs_liee['transmission'].';;' ;
                        }
                }
                return $infos_obs;
        }

        private function fabriquerSousRequeteRecherche($id_utilisateur, $criteres) {
                $sous_requete = ' AND ';
                foreach ($criteres as $nom => $valeur) {
                        if ($valeur == null || trim($nom) == "" || trim($valeur) == "") {
                                continue;
                        }

                        switch ($nom) {
                                case "id_image";
                                        $sous_requete .= 'ci.id_image = '.Cel::db()->proteger($valeur) ;
                                        $sous_requete .= ' AND ';
                                        break;
                                case "mots_cles";
                                        $sous_requete .= $this->creerSousRequeteMotsCles($valeur);
                                        break;
                                case "id_mots_cles";
                                        $liste_mc = '"'.str_replace(';','","',$valeur).'"';
                                        $tpl_sous_requete = GestionMotsClesChemin::obtenirTemplateRequeteMotsClesIds('images');
                                        $sous_requete .= 'id_image IN ('.sprintf($tpl_sous_requete, $liste_mc).')';
                                        $sous_requete .= ' AND ' ;
                                        break;
                                case "commentaire":
                                        $mots_comment_liste = explode(" " , $valeur) ;

                                        foreach($mots_comment_liste as $mot_comment) {
                                                $mot_comment = trim($mot_comment) ;
                                                $sous_requete .= 'ci.'.$nom.' LIKE '.Cel::db()->proteger('%'.$mot_comment.'%') ;
                                                $sous_requete .= ' AND ' ;
                                        }
                                        break;
                                case "annee":
                                case "mois":
                                case "jour":
                                        $sous_requete .= $this->fabriquerSousRequeteRechercheDate($nom, $valeur) ;
                                        $sous_requete .= ' AND ' ;
                                        break;
                                case "tampon":
                                        $ids_tampon = rtrim($valeur, ',') ;
                                        $sous_requete .= 'ci.id_images IN ( '.Cel::db()->proteger($ids_tampon).')' ;
                                        break;
                                case "recherche":
                                        $sous_requete .= $this->fabriquerSousRequeteRechercheGenerale($id_utilisateur, $valeur);
                                        $sous_requete .= ' AND ';
                                        break;
                                case "transmission":
                                        $sous_requete .= 'co.transmission = '.Cel::db()->proteger($valeur) ;
                                        $sous_requete .= ' AND ';
                                        break;
                                case "taxon":
                                        $valeur = str_replace('indetermine','null',$valeur);
                                        $sous_requete .= ' (';
                                        $sous_requete .= 'co.nom_ret LIKE '.Cel::db()->proteger($valeur.'%') ;
                                        $sous_requete .= ' OR ' ;
                                        $sous_requete .= 'co.nom_sel LIKE '.Cel::db()->proteger($valeur.'%') ;
                                        $sous_requete .= ') AND ' ;
                                        break;
                                case "auteur":
                                        $sous_requete .= '(ci.ce_utilisateur LIKE '.Cel::db()->proteger($valeur.'%').' OR '.
                                                                'ci.courriel_utilisateur LIKE '.Cel::db()->proteger($valeur.'%').' OR '.
                                                                'ci.nom_utilisateur LIKE '.Cel::db()->proteger($valeur.'%').' OR '.
                                                                'ci.prenom_utilisateur LIKE '.Cel::db()->proteger($valeur.'%').
                                                                ') AND ';
                                        break;
                                case "ce_zone_geo":
                                        if($valeur == "NULL") {
                                                $sous_requete .= "(co.ce_zone_geo IS NULL OR co.ce_zone_geo = '')";
                                        } else {
                                                $sous_requete .= '(co.ce_zone_geo LIKE '.(is_numeric($valeur) ? Cel::db()->proteger('INSEE-C:'.$valeur.'%') : Cel::db()->proteger($valeur)).') ';
                                        }
                                        break;
                                case "zone_geo":
                                        if($valeur == "NULL") {
                                                $sous_requete .= "(co.zone_geo IS NULL OR co.zone_geo = '')";
                                        } else {
                                                $sous_requete .= '(co.zone_geo = '.Cel::db()->proteger($valeur).') ';
                                        }
                                        break;
                                case "famille":
                                        $sous_requete .= 'co.famille = '.Cel::db()->proteger($valeur) ;
                                        $sous_requete .= ' AND ' ;
                                        break;
                                default:
                                        $sous_requete .= 'ci.'.$nom.' = '.Cel::db()->proteger($valeur) ;
                                        $sous_requete .= ' AND ' ;
                                        break;
                        }
                }
                $sous_requete = rtrim($sous_requete,' AND ');
                return $sous_requete;
        }

        private function fabriquerSousRequeteRechercheGenerale($id_utilisateur, $chaine_recherche) {
                if (trim($chaine_recherche) == '') {
                        return '';
                }
                $chaine_recherche = strtolower($chaine_recherche);
                $chaine_recherche = str_replace(' ','_',$chaine_recherche);
                $requete = ' ('.
                        'ci.nom_original LIKE '.Cel::db()->proteger($chaine_recherche.'%').' OR '.
                        'co.nom_ret LIKE '.Cel::db()->proteger($chaine_recherche.'%').' OR '.
                        'co.nom_sel LIKE '.Cel::db()->proteger($chaine_recherche.'%').' OR '.
                        'co.zone_geo LIKE '.Cel::db()->proteger($chaine_recherche.'%').' OR '.
                        'co.ce_zone_geo LIKE '.Cel::db()->proteger('%'.$chaine_recherche.'%').' OR '.
                        //TODO: recherche multicriteres sur mots clés texte ne fonctionne pas à cause de la jointure
                        //'ci.mots_cles_texte LIKE '.Cel::db()->proteger('%'.$chaine_recherche.'%').' OR '.
                        'ci.ce_utilisateur LIKE '.Cel::db()->proteger($chaine_recherche.'%').' OR '.
                        'ci.courriel_utilisateur LIKE '.Cel::db()->proteger($chaine_recherche.'%').' OR '.
                        'ci.nom_utilisateur LIKE '.Cel::db()->proteger($chaine_recherche.'%').' OR '.
                        'ci.prenom_utilisateur LIKE '.Cel::db()->proteger($chaine_recherche.'%').' '.
                ') ';
                return $requete;
        }

        private function fabriquerSousRequeteRechercheDate($intervalle, $valeur) {
                $correspondance_champ = array('annee' => 'YEAR','mois' => 'MONTH','jour' => 'DAY');
                $requete_recherche_date = '';

                if (is_numeric($valeur) && $valeur != "00") {
                        $requete_recherche_date = '('.$correspondance_champ[$intervalle].'(ci.date_prise_de_vue) = '.Cel::db()->proteger($valeur).') ';
                } else {
                        $requete_recherche_date = '(ci.date_prise_de_vue IS NULL OR ci.date_prise_de_vue = "0000-00-00")';
                }

                return $requete_recherche_date;
        }

        private function creerSousRequeteMotsCles($mot_cle) {
                //TODO: une requête plus efficace serait possible en utilisant
                // les vraies tables de mots clés et en faisant disparaitre ce champ maudit
                $requete = '';
                if (preg_match('/.*OU.*/', $mot_cle)) {
                        $mots_cles_tab = explode('OU',$mot_cle);
                        foreach ($mots_cles_tab as $mot_cle_item) {
                                $requete .= '(ci.mots_cles_texte LIKE '.Cel::db()->proteger('%'.$mot_cle_item.'%').') OR ';
                        }
                        $requete = '('.rtrim($requete,'OR ').')';
                } else if (preg_match('/.*ET.*/', $mot_cle)) {
                        $mots_cles_tab = explode('ET',$mot_cle);
                        foreach ($mots_cles_tab as $mot_cle_item) {
                                $requete .= '(ci.mots_cles_texte LIKE '.Cel::db()->proteger('%'.$mot_cle_item.'%').') AND ';
                        }
                        $requete = '('.rtrim($requete, 'AND ').') ';
                } else {
                        $requete = "(ci.mots_cles_texte LIKE ".Cel::db()->proteger('%'.$mot_cle.'%').') ';
                }
                $requete .= ' AND ';
                return $requete;
        }

        public function formaterPourEnvoiCel(&$tableau_images) {
                foreach ($tableau_images as &$image) {
                        $ids_mots_cles = $this->getIdsMotsClesImage($image['id_image']);
                        $mots_cles_chaine = '';
                        foreach ($ids_mots_cles as $id_mot_cle) {
                                $mots_cles_chaine .= $id_mot_cle['id_mot_cle'].',';
                        }
                        $mots_cles_chaine = rtrim($mots_cles_chaine,',');
                        $image['mots_cles'] = $mots_cles_chaine;
                }
                return $tableau_images;
        }

        public function obtenirCourrielUtilisateurPourIdImage($id_image) {
                $idImageP = Cel::db()->proteger($id_image);
                $requete = 'SELECT courriel_utilisateur '.
                        'FROM cel_images '.
                        "WHERE id_image = $idImageP ".
                        ' -- '.__FILE__.':'.__LINE__;
                $utilisateur_courriel = Cel::db()->requeter($requete);

                $retour = false;
                if (!empty($utilisateur_courriel) && isset($utilisateur_courriel[0]['courriel_utilisateur'])) {
                        $retour = $utilisateur_courriel[0]['courriel_utilisateur'];
                }
                return $retour;
        }

        private function getIdsMotsClesImage($id_image) {
                $requete = 'SELECT DISTINCT id_mot_cle '.
                        'FROM cel_mots_cles_images_liaison '.
                        "WHERE id_element_lie = $id_image ".
                        ' -- '.__FILE__.':'.__LINE__;
                return Cel::db()->requeter($requete);
        }
}