Rev 3101 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
<?php// declare(encoding='UTF-8');/*** Classe de recherche d'observations à 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 RechercheObservation extends Cel {public $requete_selection_observations;public static $tris_possibles = array('nom_referentiel','nom_sel','certitude','nom_ret','famille','abondance','phenologie','transmission','ce_zone_geo','altitude','date_observation',// 'ordre' // On désactive ordre qui est le tri par défaut, car ça pédale trop si l'user à trop d'obs);public function obtenirIdObservationsPourOrdre($id_utilisateur, $ordre) {if (is_array($ordre)) {$ordre = array_map(array(Cel::db(), 'proteger'), $ordre);$portionOrdre = ' IN ('.implode(',', $ordre).') ';} else {$portionOrdre .= ' = '.Cel::db()->proteger($ordre).' ';}$idUtilisateurP = Cel::db()->proteger($id_utilisateur);$requete = 'SELECT id_observation '.'FROM cel_obs '."WHERE ordre $portionOrdre "."AND ce_utilisateur = $idUtilisateurP ".'ORDER BY id_observation '.' -- '.__FILE__.':'.__LINE__;$resultats = Cel::db()->requeter($requete);$ids = array();if (is_array($resultats)) {foreach ($resultats as $resultat) {$ids[] = $resultat['id_observation'];}}return $ids;}public function rechercherObservations($id_utilisateur = null, $criteres = array(), $debut = 0, $limite = 50, $autoriser_sql_brut = FALSE) {$requete_selection_observations = 'SELECT * FROM cel_obs ';if ($id_utilisateur != null) {$requete_selection_observations .= 'WHERE ce_utilisateur = '.Cel::db()->proteger($id_utilisateur).' AND ';} else if(count($criteres) > 0) {$requete_selection_observations .= 'WHERE ';}// construction du tri$order_by_clause = '';if (isset($criteres['tri']) && in_array($criteres['tri'], self::$tris_possibles)) {$order_by_clause = ' ORDER BY ' . $criteres['tri'];if (isset($criteres['tri_dir']) && in_array($criteres['tri_dir'], array('ASC', 'DESC'))) {$order_by_clause .= ' ' . $criteres['tri_dir'];}}unset($criteres['tri']);unset($criteres['tri_dir']);// très mauvaise solution, mais qui permet au moins d'effectuer des requêtes complexes, sans modifier l'API// et sans pour autant introduire de problème de sécurité majeur dans toutes les fonctions appelantes qui// effectue $criteres = $_GET sans nettoyage préalable.if(isset($criteres['sql_brut']) && !$autoriser_sql_brut) unset($criteres['sql_brut']);$sous_requete_recherche = $this->fabriquerSousRequeteRecherche($id_utilisateur, $criteres);$requete_selection_observations .= $sous_requete_recherche;$requete_selection_observations = rtrim($requete_selection_observations, 'AND ');$requete_selection_observations .= $id_utilisateur == null ? ' ORDER BY id_observation, ordre ' : $order_by_clause;$requete_selection_observations .= ($debut == 0 && $limite == 0) ? '' : ' LIMIT '.$debut.','.$limite ;$this->requete_selection_observations = $requete_selection_observations;return $this;}public function get() {if (!$this->requete_selection_observations) {return false;}return Cel::db()->requeter($this->requete_selection_observations);}public function compterObservations($id_utilisateur = null, $criteres = array()) {$requete = 'SELECT COUNT(*) AS nb_obs FROM cel_obs ';if ($id_utilisateur != null) {$requete .= 'WHERE ce_utilisateur = '.Cel::db()->proteger($id_utilisateur).' AND ';} else if(count($criteres) > 0) {$requete .= 'WHERE ';}$requete .= $this->fabriquerSousRequeteRecherche($id_utilisateur, $criteres);$requete = rtrim($requete, 'AND ');$resultat = Cel::db()->requeter($requete);$nb_obs = ($resultat && is_array($resultat) && count($resultat) > 0) ? $resultat[0]['nb_obs'] : '0';return $nb_obs;}public function formaterPourEnvoiCel(&$tableau_observations) {$ids = array();foreach ($tableau_observations as &$observation) {$observation['ce_zone_geo'] = $this->convertirCodeZoneGeoVersCodeInsee($observation['ce_zone_geo']);$ids_mots_cles = $this->getIdsMotsClesObservation($observation['id_observation']);$ids[] = $observation['id_observation'];$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,';');$observation['mots_cles'] = $mots_cles_chaine;foreach ($observation as $champ => $valeur) {if ($valeur == 'NULL') {$observation[$champ] = '';}}}$gestion_champs_etendus = new GestionChampsEtendus($this->config, 'obs');$champs_supp = $gestion_champs_etendus->consulterParLots($ids);foreach ($tableau_observations as &$obs) {if (isset($champs_supp[$obs['id_observation']])) {$obs['obs_etendue'] = $champs_supp[$obs['id_observation']];}}return $tableau_observations;}public function obtenirIdUtilisateurPourIdObs($id_obs) {$idObsP = Cel::db()->proteger($id_obs);$requete = 'SELECT ce_utilisateur '.'FROM cel_obs '."WHERE id_observation = $idObsP ".' -- '.__FILE__.':'.__LINE__;$utilisateur_id = Cel::db()->requeter($requete);$retour = false;if (!empty($utilisateur_id) && isset($utilisateur_id[0]['ce_utilisateur'])) {$retour = $utilisateur_id[0]['ce_utilisateur'];}return $retour;}public function obtenirCourrielUtilisateurPourIdObs($id_obs) {$id_obs = Cel::db()->proteger($id_obs);$requete = "SELECT courriel_utilisateur FROM cel_obs WHERE id_observation = $id_obs";$utilisateur_courriel = Cel::db()->requeter($requete . ' -- ' . __FILE__ . ':' . __LINE__);$retour = false;if (!empty($utilisateur_courriel) && isset($utilisateur_courriel[0]['courriel_utilisateur'])) {$retour = $utilisateur_courriel[0]['courriel_utilisateur'];}return $retour;}private function getIdsMotsClesObservation($id_observation) {$requete_selection_mots_cles = 'SELECT DISTINCT id_mot_cle '.'FROM cel_mots_cles_obs_liaison '."WHERE id_element_lie = $id_observation ";return Cel::db()->requeter($requete_selection_mots_cles);}// TODO: fonction temporairepublic function parserRequeteCriteres($chaine_criteres) {$criteres_parses = array();$criteres = explode('&', $chaine_criteres) ;foreach ($criteres as &$critere) {$nom_valeur = explode('=', $critere) ;if (count($nom_valeur) >= 2) {$criteres_parses[$nom_valeur[0]] = $nom_valeur[1];}}return $criteres_parses;}private function fabriquerSousRequeteRecherche($id_utilisateur, $criteres) {$sous_requete = '';foreach ($criteres as $nom => $valeur) {if ($valeur == null || trim($nom) == '' || trim($valeur) == '') {continue;}switch ($nom) {case "mots_cles";$sous_requete .= $this->creerSousRequeteMotsCles($valeur);$sous_requete .= ' AND ';break;case 'annee':if ($valeur == "NULL") {$sous_requete .= "(date_observation IS NULL OR year(date_observation) = 0000)" ;} else {$sous_requete .= "(year(date_observation) = ".Cel::db()->proteger($valeur).")" ;}$sous_requete .= ' AND ' ;break;case 'mois':if ($valeur == "NULL") {$sous_requete .= "date_observation IS NULL OR month(date_observation) = 00" ;} else {$sous_requete .= "month(date_observation) = ".Cel::db()->proteger($valeur) ;}$sous_requete .= ' AND ' ;break;case 'jour':if ($valeur == "NULL") {$sous_requete .= "date_observation IS NULL OR day(date_observation) = 00" ;} else {$sous_requete .= "day(date_observation) = ".Cel::db()->proteger($valeur) ;}$sous_requete .= ' AND ' ;break;case 'pays':if ($valeur == "NULL") {$sous_requete .= "(pays IS NULL OR pays = '')";} else {$pays_t = explode(',', $valeur);foreach($pays_t as &$pays) {$pays = Cel::db()->proteger($pays);}$sous_requete .= '(pays IN ('.implode(',', $pays_t).')) ';}$sous_requete .= ' AND ' ;break;case 'departement':if ($valeur == "NULL") {$sous_requete .= "(ce_zone_geo IS NULL OR ce_zone_geo = '')";} else {if (strpos($valeur,',') !== false) {$dpts = explode(',',$valeur);$sous_requete .= '(';foreach($dpts as $dpt) {$sous_requete .= "ce_zone_geo LIKE ".Cel::db()->proteger('INSEE-C:'.$dpt.'___').' OR ';}$sous_requete = rtrim($sous_requete,' OR ').') ';} else {$sous_requete .= "(ce_zone_geo LIKE ".Cel::db()->proteger('INSEE-C:'.$valeur.'___').')';}}$sous_requete .= ' AND ' ;break;case 'localite':case 'commune':if ($valeur == "NULL") {$sous_requete .= "(zone_geo IS NULL OR zone_geo = '')";} else {$sous_requete .= "(zone_geo = ".Cel::db()->proteger($valeur).')';}$sous_requete .= ' AND ' ;break;case 'id_mots_cles':$liste_mc = '"'.str_replace(';','","',$valeur).'"';$tpl_sous_requete = GestionMotsClesChemin::obtenirTemplateRequeteMotsClesIds('obs');$sous_requete .= 'id_observation IN ('.sprintf($tpl_sous_requete, $liste_mc).')';$sous_requete .= ' AND ' ;break;case 'recherche':$sous_requete .= $this->fabriquerSousRequeteRechercheGenerale($id_utilisateur, $valeur);$sous_requete .= ' AND ';break;case 'date_debut':$sous_requete .= 'date_observation >= '.Cel::db()->proteger($this->formaterEnDateMysql($valeur));$sous_requete .= ' AND ';break;case 'date_fin':$sous_requete .= 'date_observation <= '.Cel::db()->proteger($this->formaterEnDateMysql($valeur));$sous_requete .= ' AND ';break;case 'taxon':$valeur_protegee = Cel::db()->proteger($valeur."%");$sous_requete .= "( nom_sel LIKE ".$valeur_protegee." OR"." nom_ret LIKE ".$valeur_protegee." OR"." famille LIKE ".$valeur_protegee." ) AND ";break;case 'sql_brut':$sous_requete .= $valeur;$sous_requete .= ' AND ';break;default:if(!preg_match('/^[a-zA-Z0-9_-]+$/', $nom)) break;$valeur = rtrim($valeur);// TODO: pour de nombreux champs, et lorsque les webservices d'update/insert// trim() + NULLify'ront les données vides, alors nous pourrons omettre ce pénible// double-test pour la plupart des champsif ($valeur && $valeur != 'NULL') {$sous_requete .= $nom." = ".Cel::db()->proteger($valeur) ;$sous_requete .= ' AND ';}else {$sous_requete .= "($nom IS NULL OR $nom = '')";$sous_requete .= ' AND ';}break;}}$sous_requete = rtrim($sous_requete,' AND ');return $sous_requete;}private function formaterEnDateMysql($date) {$annee = substr($date, 6, 4);$mois = substr($date, 3, 2);$jour = substr($date, 0, 2);$date = $annee . '-' . $mois . '-' . $jour;return $date;}private function fabriquerSousRequeteRechercheGenerale($id_utilisateur, $valeur) {$valeur = str_replace('*', '%', $valeur);$valeur = Cel::db()->proteger("%$valeur%");$sous_requete = "(nom_sel LIKE $valeur "."OR courriel_utilisateur LIKE $valeur "."OR prenom_utilisateur LIKE $valeur "."OR nom_utilisateur LIKE $valeur "."OR nom_sel LIKE $valeur "."OR nom_sel_nn LIKE $valeur "."OR nom_ret LIKE $valeur "."OR nom_ret_nn LIKE $valeur "."OR nt LIKE $valeur "."OR famille LIKE $valeur "."OR zone_geo LIKE $valeur "."OR ce_zone_geo LIKE $valeur "."OR date_observation LIKE $valeur "."OR lieudit LIKE $valeur "."OR station LIKE $valeur "."OR milieu LIKE $valeur "."OR commentaire LIKE $valeur "."OR transmission LIKE $valeur "."OR latitude LIKE $valeur "."OR longitude LIKE $valeur "."OR mots_cles_texte LIKE $valeur ".")";return $sous_requete;}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 .= '(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 .= '(mots_cles_texte LIKE '.Cel::db()->proteger('%'.$mot_cle_item.'%').') AND ';}$requete = '('.rtrim($requete, 'AND ').') ';} else {$requete = "(mots_cles_texte LIKE ".Cel::db()->proteger('%'.$mot_cle.'%').') ';}return $requete;}private function estUnvaleurZeroNulle($valeur) {return $valeur == '000null';}private function traiterRequeteValeurZeroNulle($valeur) {$champs = array('annee' => 'date_observation','mois' => 'date_observation','jour' => 'date_observation','departement' => 'ce_zone_geo','commune' => 'zone_geo');return $sous_requete .= $champs[$valeur]." = ".Cel::db()->proteger("");}}