Subversion Repositories eFlore/Applications.cel

Rev

Rev 1755 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
862 aurelien 1 
<?php
906 aurelien 2 
/**
1581 jpm 3 
 * Librairie de recherche d'observations à partir de divers critères.
4 
 * Encodage en entrée : utf8
5 
 * Encodage en sortie : utf8
6 
 *
7 
 * @category  php 5.2
8 
 * @package   cel
9 
 * @author    Aurélien Peronnet <aurelien@tela-botania.org>
10 
 * @copyright 2010 Tela-Botanica
11 
 * @license   http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL
12 
 * @version   SVN: <svn_id>
13 
 * @link      /doc/jrest/
14 
 */
862 aurelien 15 
class RechercheObservation extends Cel {
1581 jpm 16 
 
1631 raphael 17 
	public $requete_selection_observations;
18 
 
930 aurelien 19 
	public function obtenirIdObservationsPourOrdre($id_utilisateur, $ordre) {
20 
		$requete_selection_id = 'SELECT id_observation FROM cel_obs WHERE ordre ';
1581 jpm 21 
 
22 
		if (is_array($ordre)) {
1765 raphael 23 
			$ordre = array_map(array(Cel::db(),'proteger'), $ordre);
930 aurelien 24 
			$requete_selection_id .= ' IN ('.implode(',',$ordre).') ';
25 
		} else {
1765 raphael 26 
			$requete_selection_id .= ' = '.Cel::db()->proteger($ordre).' ';
930 aurelien 27 
		}
1581 jpm 28 
 
1765 raphael 29 
		$requete_selection_id .= ' AND ce_utilisateur = '.Cel::db()->proteger($id_utilisateur).
1581 jpm 30 
			' ORDER BY id_observation';
31 
 
1765 raphael 32 
		$resultat_ids = Cel::db()->executerRequete($requete_selection_id);
1581 jpm 33 
 
930 aurelien 34 
		$ids = array();
1581 jpm 35 
		if (is_array($resultat_ids)) {
36 
			foreach ($resultat_ids as $resultat) {
930 aurelien 37 
				$ids[] = $resultat['id_observation'];
38 
			}
39 
		}
1581 jpm 40 
 
930 aurelien 41 
		return $ids;
42 
	}
1581 jpm 43 
 
1644 aurelien 44 
	public function rechercherObservations($id_utilisateur = null, $criteres = array(), $debut = 0, $limite = 50, $autoriser_sql_brut = FALSE) {
1581 jpm 45 
		$requete_selection_observations = 'SELECT * FROM cel_obs ';
46 
 
47 
		if ($id_utilisateur != null) {
1765 raphael 48 
			$requete_selection_observations .= 'WHERE ce_utilisateur = '.Cel::db()->proteger($id_utilisateur).' AND ';
1581 jpm 49 
		} else if(count($criteres) > 0) {
50 
			$requete_selection_observations .= 'WHERE ';
51 
		}
52 
 
1634 raphael 53 
		// très mauvaise solution, mais qui permet au moins d'effectuer des requêtes complexes, sans modifier l'API
54 
		// et sans pour autant introduire de problème de sécurité majeur dans toutes les fonctions appelantes qui
55 
		// effectue $criteres = $_GET sans nettoyage préalable.
1644 aurelien 56 
		if(isset($criteres['sql_brut']) && !$autoriser_sql_brut) unset($criteres['sql_brut']);
1581 jpm 57 
		$sous_requete_recherche = $this->fabriquerSousRequeteRecherche($id_utilisateur, $criteres);
58 
 
59 
		$requete_selection_observations .= $sous_requete_recherche;
60 
		$requete_selection_observations = rtrim($requete_selection_observations, 'AND ');
1398 aurelien 61 
		$requete_selection_observations .= $id_utilisateur == null ? ' ORDER BY id_observation, ordre ' : ' ORDER BY ordre ';
62 
		$requete_selection_observations .= ($debut == 0 && $limite == 0) ? '' : ' LIMIT '.$debut.','.$limite ;
1581 jpm 63 
 
1631 raphael 64 
		$this->requete_selection_observations = $requete_selection_observations;
65 
		return $this;
66 
	}
1332 aurelien 67 
 
1631 raphael 68 
	public function get() {
69 
		if(!$this->requete_selection_observations) return FALSE;
1765 raphael 70 
		return Cel::db()->executerRequete($this->requete_selection_observations);
862 aurelien 71 
	}
1581 jpm 72 
 
906 aurelien 73 
	public function compterObservations($id_utilisateur = null, $criteres = array()) {
74 
 		$requete_selection_observations = 'SELECT COUNT(*) as nb_obs FROM cel_obs ';
1581 jpm 75 
 
76 
		if ($id_utilisateur != null) {
1765 raphael 77 
			$requete_selection_observations .= 'WHERE ce_utilisateur = '.Cel::db()->proteger($id_utilisateur).' AND ';
1581 jpm 78 
		} else if(count($criteres) > 0) {
79 
			$requete_selection_observations .= 'WHERE ';
80 
		}
81 
 
82 
		$sous_requete_recherche = $this->fabriquerSousRequeteRecherche($id_utilisateur, $criteres);
83 
 
84 
		$requete_selection_observations .= $sous_requete_recherche;
85 
		$requete_selection_observations = rtrim($requete_selection_observations, 'AND ');
86 
 
959 aurelien 87 
		$nb_obs = '0';
1765 raphael 88 
		$resultat_requete_nombre_observations = Cel::db()->executerRequete($requete_selection_observations);
1581 jpm 89 
 
862 aurelien 90 
		if($resultat_requete_nombre_observations && is_array($resultat_requete_nombre_observations) && count($resultat_requete_nombre_observations) > 0) {
91 
			$nb_obs = $resultat_requete_nombre_observations[0]['nb_obs'];
1581 jpm 92 
		}
93 
 
862 aurelien 94 
		return $nb_obs;
95 
	}
1581 jpm 96 
 
1598 raphael 97 
	public function formaterPourEnvoiCel(&$tableau_observations) {
1527 aurelien 98 
		$ids = array();
1581 jpm 99 
		foreach ($tableau_observations as &$observation) {
961 aurelien 100 
			$observation['ce_zone_geo'] = $this->convertirCodeZoneGeoVersCodeInsee($observation['ce_zone_geo']);
959 aurelien 101 
			$ids_mots_cles = $this->getIdsMotsClesObservation($observation['id_observation']);
1581 jpm 102 
 
1527 aurelien 103 
			$ids[] = $observation['id_observation'];
959 aurelien 104 
			$mots_cles_chaine = '';
1581 jpm 105 
			foreach ($ids_mots_cles as $id_mot_cle) {
1162 aurelien 106 
				$mots_cles_chaine .= $id_mot_cle['id_mot_cle_obs'].';';
959 aurelien 107 
			}
108 
			$mots_cles_chaine = rtrim($mots_cles_chaine,';');
109 
			$observation['mots_cles'] = $mots_cles_chaine;
1581 jpm 110 
 
111 
			foreach ($observation as $champ => $valeur) {
112 
				if ($valeur == 'NULL') {
113 
					$observation[$champ] = '';
1332 aurelien 114 
				}
115 
			}
959 aurelien 116 
		}
1581 jpm 117 
 
1527 aurelien 118 
		$gestion_champs_etendus = new GestionChampsEtendus($this->config, 'obs');
1570 aurelien 119 
		$champs_supp = $gestion_champs_etendus->consulterParLots($ids);
1581 jpm 120 
 
1527 aurelien 121 
		foreach($tableau_observations as &$obs) {
122 
			if(isset($champs_supp[$obs['id_observation']])) {
123 
				$obs['obs_etendue'] = $champs_supp[$obs['id_observation']];
124 
			}
125 
		}
1581 jpm 126 
 
959 aurelien 127 
		return $tableau_observations;
128 
	}
1581 jpm 129 
 
1491 aurelien 130 
	public function obtenirCourrielUtilisateurPourIdObs($id_obs) {
1765 raphael 131 
		$id_obs = Cel::db()->proteger($id_obs);
1581 jpm 132 
		$requete = "SELECT courriel_utilisateur FROM cel_obs WHERE id_observation = $id_obs";
133 
 
1765 raphael 134 
		$utilisateur_courriel = Cel::db()->executerRequete($requete . ' -- ' . __FILE__ . ':' . __LINE__);
1581 jpm 135 
 
1491 aurelien 136 
		$retour = false;
1581 jpm 137 
		if (!empty($utilisateur_courriel) && isset($utilisateur_courriel[0]['courriel_utilisateur'])) {
1491 aurelien 138 
			$retour = $utilisateur_courriel[0]['courriel_utilisateur'];
139 
		}
140 
		return $retour;
141 
	}
1581 jpm 142 
 
959 aurelien 143 
	private function getIdsMotsClesObservation($id_observation) {
1162 aurelien 144 
		$requete_selection_mots_cles = 'SELECT DISTINCT id_mot_cle_obs '.
1581 jpm 145 
			'FROM cel_obs_mots_cles '.
146 
			"WHERE id_observation = $id_observation ";
1765 raphael 147 
		return Cel::db()->executerRequete($requete_selection_mots_cles);
959 aurelien 148 
	}
1581 jpm 149 
 
862 aurelien 150 
	// TODO: fonction temporaire
151 
	public function parserRequeteCriteres($chaine_criteres) {
152 
		$criteres_parses = array();
1581 jpm 153 
		$criteres = explode('&', $chaine_criteres) ;
154 
		foreach ($criteres as &$critere) {
155 
			$nom_valeur = explode('=', $critere) ;
156 
			if (count($nom_valeur) >= 2) {
959 aurelien 157 
				$criteres_parses[$nom_valeur[0]] = $nom_valeur[1];
158 
			}
862 aurelien 159 
		}
160 
		return $criteres_parses;
161 
	}
1581 jpm 162 
 
862 aurelien 163 
	private function fabriquerSousRequeteRecherche($id_utilisateur, $criteres) {
995 aurelien 164 
		$sous_requete = '';
1581 jpm 165 
		foreach ($criteres as $nom => $valeur) {
166 
			if ($valeur == null || trim($nom) == '' || trim($valeur) == '') {
167 
				continue;
862 aurelien 168 
			}
1581 jpm 169 
 
959 aurelien 170 
			switch ($nom) {
1311 aurelien 171 
				case "mots_cles";
1386 aurelien 172 
					$sous_requete .= $this->creerSousRequeteMotsCles($valeur);
1388 aurelien 173 
					$sous_requete .= ' AND ';
1581 jpm 174 
					break;
862 aurelien 175 
				case 'annee':
1581 jpm 176 
					if ($valeur == "NULL") {
1390 aurelien 177 
						$sous_requete .= "(date_observation IS NULL OR year(date_observation) = 0000)" ;
1332 aurelien 178 
					} else {
1765 raphael 179 
						$sous_requete .= "(year(date_observation) = ".Cel::db()->proteger($valeur).")" ;
1332 aurelien 180 
					}
862 aurelien 181 
					$sous_requete .= ' AND ' ;
1581 jpm 182 
					break;
862 aurelien 183 
				case 'mois':
1581 jpm 184 
					if ($valeur == "NULL") {
1332 aurelien 185 
						$sous_requete .= "date_observation IS NULL OR month(date_observation) = 00" ;
186 
					} else {
1765 raphael 187 
						$sous_requete .= "month(date_observation) = ".Cel::db()->proteger($valeur) ;
1332 aurelien 188 
					}
862 aurelien 189 
					$sous_requete .= ' AND ' ;
1581 jpm 190 
					break;
862 aurelien 191 
				case 'jour':
1581 jpm 192 
					if ($valeur == "NULL") {
1332 aurelien 193 
						$sous_requete .= "date_observation IS NULL OR day(date_observation) = 00" ;
194 
					} else {
1765 raphael 195 
						$sous_requete .= "day(date_observation) = ".Cel::db()->proteger($valeur) ;
1332 aurelien 196 
					}
862 aurelien 197 
					$sous_requete .= ' AND ' ;
1581 jpm 198 
					break;
959 aurelien 199 
				case 'departement':
1581 jpm 200 
					if ($valeur == "NULL") {
1332 aurelien 201 
						$sous_requete .= "(ce_zone_geo IS NULL OR ce_zone_geo = '')";
202 
					} else {
1581 jpm 203 
						if (strpos($valeur,',') !== false) {
1378 aurelien 204 
							$dpts = explode(',',$valeur);
205 
							$sous_requete .= '(';
206 
							foreach($dpts as $dpt) {
1765 raphael 207 
								$sous_requete .= "ce_zone_geo LIKE ".Cel::db()->proteger('INSEE-C:'.$dpt.'___').' OR ';
1378 aurelien 208 
							}
209 
							$sous_requete = rtrim($sous_requete,' OR ').') ';
210 
						} else {
1765 raphael 211 
							$sous_requete .= "(ce_zone_geo LIKE ".Cel::db()->proteger('INSEE-C:'.$valeur.'___').')';
1378 aurelien 212 
						}
1332 aurelien 213 
					}
959 aurelien 214 
					$sous_requete .= ' AND ' ;
1581 jpm 215 
					break;
959 aurelien 216 
				case 'commune':
1581 jpm 217 
					if ($valeur == "NULL") {
1332 aurelien 218 
						$sous_requete .= "(zone_geo IS NULL OR zone_geo = '')";
219 
					} else {
1765 raphael 220 
						$sous_requete .= "(zone_geo = ".Cel::db()->proteger($valeur).')';
1332 aurelien 221 
					}
959 aurelien 222 
					$sous_requete .= ' AND ' ;
1581 jpm 223 
					break;
224 
				case 'id_mots_cles':
225 
					$liste_mc = '"'.str_replace(';','","',$valeur).'"';
226 
					$sous_requete .= '' ;
227 
					$sous_requete .= 'id_observation IN (SELECT id_observation FROM cel_obs_mots_cles WHERE id_mot_cle_obs IN ('.$liste_mc.'))';
228 
					$sous_requete .= ' AND ' ;
229 
					break;
230 
				case 'recherche':
231 
					$sous_requete .= $this->fabriquerSousRequeteRechercheGenerale($id_utilisateur, $valeur);
232 
					$sous_requete .= ' AND ';
233 
					break;
234 
				case 'date_debut':
1765 raphael 235 
					$sous_requete .= 'date_observation >= '.Cel::db()->proteger($this->formaterEnDateMysql($valeur));
1581 jpm 236 
					$sous_requete .= ' AND ';
237 
					break;
238 
				case 'date_fin':
1765 raphael 239 
					$sous_requete .= 'date_observation <= '.Cel::db()->proteger($this->formaterEnDateMysql($valeur));
1581 jpm 240 
					$sous_requete .= ' AND ';
241 
					break;
242 
				case 'taxon':
1765 raphael 243 
					$valeur_protegee = Cel::db()->proteger($valeur."%");
1581 jpm 244 
					$sous_requete .= "( nom_sel LIKE ".$valeur_protegee." OR".
245 
								" nom_ret LIKE ".$valeur_protegee." OR".
246 
								" famille LIKE ".$valeur_protegee.
247 
								" ) AND ";
248 
					break;
1644 aurelien 249 
				case 'sql_brut':
1634 raphael 250 
					$sous_requete .= $valeur;
251 
					$sous_requete .= ' AND ';
252 
					break;
862 aurelien 253 
				default:
1581 jpm 254 
					if (trim($nom) != '') {
1765 raphael 255 
						$sous_requete .= $nom." = ".Cel::db()->proteger($valeur) ;
1581 jpm 256 
						$sous_requete .= ' AND ';
862 aurelien 257 
					}
1581 jpm 258 
					if (trim($nom) == 'NULL') {
259 
						$sous_requete .= "($nom IS NULL OR $nom = '')";
260 
						$sous_requete .= ' AND ';
261 
					}
262 
					break;
862 aurelien 263 
			}
264 
		}
265 
		$sous_requete = rtrim($sous_requete,' AND ');
266 
		return $sous_requete;
267 
	}
1581 jpm 268 
 
1378 aurelien 269 
	private function formaterEnDateMysql($date) {
270 
		$annee = substr($date, 6, 4);
271 
		$mois = substr($date, 3, 2);
272 
		$jour = substr($date, 0, 2);
273 
		$date = $annee . '-' . $mois . '-' . $jour;
274 
		return $date;
275 
	}
1581 jpm 276 
 
1311 aurelien 277 
	private function fabriquerSousRequeteRechercheGenerale($id_utilisateur, $valeur) {
278 
		$valeur = str_replace("*","%",$valeur);
1765 raphael 279 
		$valeur = Cel::db()->proteger('%'.$valeur.'%');
1311 aurelien 280 
		$sous_requete = "(nom_sel LIKE ".$valeur.
281 
			" OR courriel_utilisateur LIKE ".$valeur.
282 
			" OR prenom_utilisateur LIKE ".$valeur.
283 
			" OR nom_utilisateur LIKE ".$valeur.
284 
			" OR nom_sel LIKE ".$valeur.
285 
			" OR nom_sel_nn LIKE ".$valeur.
286 
			" OR nom_ret LIKE ".$valeur.
287 
			" OR nom_ret_nn LIKE ".$valeur.
288 
			" OR nt LIKE ".$valeur.
289 
			" OR famille LIKE ".$valeur.
290 
			" OR zone_geo LIKE ".$valeur.
291 
			" OR ce_zone_geo LIKE ".$valeur.
292 
			" OR date_observation LIKE ".$valeur.
293 
			" OR lieudit LIKE ".$valeur.
294 
			" OR station LIKE ".$valeur.
295 
			" OR milieu LIKE ".$valeur.
296 
			" OR commentaire LIKE ".$valeur.
297 
			" OR transmission LIKE ".$valeur.
298 
			" OR latitude LIKE ".$valeur.
299 
			" OR longitude LIKE ".$valeur.
300 
			" OR mots_cles_texte LIKE ".$valeur.
301 
			")";
302 
		return $sous_requete;
1386 aurelien 303 
	}
304 
 
305 
	private function creerSousRequeteMotsCles($mot_cle) {
306 
		$requete = '';
307 
		if (preg_match('/.*OU.*/', $mot_cle)) {
308 
			$mots_cles_tab = explode('OU',$mot_cle);
309 
			foreach($mots_cles_tab as $mot_cle_item) {
1765 raphael 310 
				$requete .= '(mots_cles_texte LIKE '.Cel::db()->proteger('%'.$mot_cle_item.'%').') OR ';
1386 aurelien 311 
			}
312 
			$requete = '('.rtrim($requete,'OR ').')';
313 
		} else if (preg_match('/.*ET.*/', $mot_cle)) {
314 
			$mots_cles_tab = explode('ET',$mot_cle);
315 
			foreach($mots_cles_tab as $mot_cle_item) {
1765 raphael 316 
				$requete .= '(mots_cles_texte LIKE '.Cel::db()->proteger('%'.$mot_cle_item.'%').') AND ';
1386 aurelien 317 
			}
318 
			$requete = '('.rtrim($requete, 'AND ').') ';
319 
		} else {
1765 raphael 320 
			$requete = "(mots_cles_texte LIKE ".Cel::db()->proteger('%'.$mot_cle.'%').') ';
1386 aurelien 321 
		}
322 
		return $requete;
323 
	}
1581 jpm 324 
 
987 aurelien 325 
	private function estUnvaleurZeroNulle($valeur) {
1581 jpm 326 
		return $valeur == '000null';
987 aurelien 327 
	}
1581 jpm 328 
 
987 aurelien 329 
	private function traiterRequeteValeurZeroNulle($valeur) {
330 
		$champs = array('annee' => 'date_observation',
1581 jpm 331 
			'mois' => 'date_observation',
332 
			'jour' => 'date_observation',
333 
			'departement' => 'ce_zone_geo',
334 
			'commune' => 'zone_geo');
1765 raphael 335 
		return $sous_requete .= $champs[$valeur]." = ".Cel::db()->proteger("");
1581 jpm 336 
	}
862 aurelien 337 
}
338 
?>