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', // On désactive ordre qui est le tri par défaut, car ça pédale trop si l'user à trop d'obs

        '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'] : '';

        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.*, co.pseudo_utilisateur ';

        $requete_recherche_images .= $this->fabriquerRequeteJointureObs();

        $requete_recherche_images .= ($id_utilisateur != null) ? 'AND co.ce_utilisateur = '.Cel::db()->proteger($id_utilisateur) : '';

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

        $requete_recherche_images .= $sous_requete_recherche;

        if (!empty($ordre)) {

            $requete_recherche_images .= ' ORDER BY '.$ordre.' '.$direction;

        }

        $requete_recherche_images .= ' 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()) {

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

        $requete_recherche_images .= $this->fabriquerRequeteJointureObs();

        $requete_recherche_images .= ($id_utilisateur != null) ? 'AND co.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_export ci '.

            'LEFT JOIN cel_export_total 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_export 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_export_total 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 .= '(co.ce_utilisateur LIKE '.Cel::db()->proteger($valeur.'%').' OR '.

                        'co.courriel_utilisateur LIKE '.Cel::db()->proteger($valeur.'%').' OR '.

                        'co.pseudo_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 '.

        'co.ce_utilisateur LIKE '.Cel::db()->proteger($chaine_recherche.'%').' OR '.

        'co.courriel_utilisateur LIKE '.Cel::db()->proteger($chaine_recherche.'%').' OR '.

        'co.pseudo_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_export '.

            "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 photo_tag_id '.

            'FROM photo_tag_photo '.

            "WHERE photo_id = $id_image ".

            ' -- '.__FILE__.':'.__LINE__;

        return Cel::db()->requeter($requete);

    }

}