Subversion Repositories eFlore/Applications.cel

Rev

Go to most recent revision | Details | 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
 
2035 aurelien 53
		$tri = (isset($criteres['tri'])) ? $criteres['tri'] : 'ordre';
54
		unset($criteres['tri']);
55
		$tri_dir = (isset($criteres['tri_dir'])) ? $criteres['tri_dir'] : 'ASC';
56
		unset($criteres['tri_dir']);
57
 
1634 raphael 58
		// très mauvaise solution, mais qui permet au moins d'effectuer des requêtes complexes, sans modifier l'API
59
		// et sans pour autant introduire de problème de sécurité majeur dans toutes les fonctions appelantes qui
60
		// effectue $criteres = $_GET sans nettoyage préalable.
1644 aurelien 61
		if(isset($criteres['sql_brut']) && !$autoriser_sql_brut) unset($criteres['sql_brut']);
1581 jpm 62
		$sous_requete_recherche = $this->fabriquerSousRequeteRecherche($id_utilisateur, $criteres);
2035 aurelien 63
 
1581 jpm 64
		$requete_selection_observations .= $sous_requete_recherche;
65
		$requete_selection_observations = rtrim($requete_selection_observations, 'AND ');
2035 aurelien 66
		$requete_selection_observations .= $id_utilisateur == null ? ' ORDER BY id_observation, ordre ' : ' ORDER BY '.$tri.' '.$tri_dir;
1398 aurelien 67
		$requete_selection_observations .= ($debut == 0 && $limite == 0) ? '' : ' LIMIT '.$debut.','.$limite ;
1581 jpm 68
 
1631 raphael 69
		$this->requete_selection_observations = $requete_selection_observations;
70
		return $this;
71
	}
1332 aurelien 72
 
1631 raphael 73
	public function get() {
74
		if(!$this->requete_selection_observations) return FALSE;
1765 raphael 75
		return Cel::db()->executerRequete($this->requete_selection_observations);
862 aurelien 76
	}
1581 jpm 77
 
906 aurelien 78
	public function compterObservations($id_utilisateur = null, $criteres = array()) {
79
 		$requete_selection_observations = 'SELECT COUNT(*) as nb_obs FROM cel_obs ';
1581 jpm 80
 
81
		if ($id_utilisateur != null) {
1765 raphael 82
			$requete_selection_observations .= 'WHERE ce_utilisateur = '.Cel::db()->proteger($id_utilisateur).' AND ';
1581 jpm 83
		} else if(count($criteres) > 0) {
84
			$requete_selection_observations .= 'WHERE ';
85
		}
86
 
87
		$sous_requete_recherche = $this->fabriquerSousRequeteRecherche($id_utilisateur, $criteres);
88
 
89
		$requete_selection_observations .= $sous_requete_recherche;
90
		$requete_selection_observations = rtrim($requete_selection_observations, 'AND ');
91
 
959 aurelien 92
		$nb_obs = '0';
1765 raphael 93
		$resultat_requete_nombre_observations = Cel::db()->executerRequete($requete_selection_observations);
1581 jpm 94
 
862 aurelien 95
		if($resultat_requete_nombre_observations && is_array($resultat_requete_nombre_observations) && count($resultat_requete_nombre_observations) > 0) {
96
			$nb_obs = $resultat_requete_nombre_observations[0]['nb_obs'];
1581 jpm 97
		}
98
 
862 aurelien 99
		return $nb_obs;
100
	}
1581 jpm 101
 
1598 raphael 102
	public function formaterPourEnvoiCel(&$tableau_observations) {
1527 aurelien 103
		$ids = array();
1581 jpm 104
		foreach ($tableau_observations as &$observation) {
961 aurelien 105
			$observation['ce_zone_geo'] = $this->convertirCodeZoneGeoVersCodeInsee($observation['ce_zone_geo']);
959 aurelien 106
			$ids_mots_cles = $this->getIdsMotsClesObservation($observation['id_observation']);
1581 jpm 107
 
1527 aurelien 108
			$ids[] = $observation['id_observation'];
959 aurelien 109
			$mots_cles_chaine = '';
1581 jpm 110
			foreach ($ids_mots_cles as $id_mot_cle) {
1162 aurelien 111
				$mots_cles_chaine .= $id_mot_cle['id_mot_cle_obs'].';';
959 aurelien 112
			}
113
			$mots_cles_chaine = rtrim($mots_cles_chaine,';');
114
			$observation['mots_cles'] = $mots_cles_chaine;
1581 jpm 115
 
116
			foreach ($observation as $champ => $valeur) {
117
				if ($valeur == 'NULL') {
118
					$observation[$champ] = '';
1332 aurelien 119
				}
120
			}
959 aurelien 121
		}
1581 jpm 122
 
1527 aurelien 123
		$gestion_champs_etendus = new GestionChampsEtendus($this->config, 'obs');
1570 aurelien 124
		$champs_supp = $gestion_champs_etendus->consulterParLots($ids);
1581 jpm 125
 
1527 aurelien 126
		foreach($tableau_observations as &$obs) {
127
			if(isset($champs_supp[$obs['id_observation']])) {
128
				$obs['obs_etendue'] = $champs_supp[$obs['id_observation']];
129
			}
130
		}
1581 jpm 131
 
959 aurelien 132
		return $tableau_observations;
133
	}
1581 jpm 134
 
1491 aurelien 135
	public function obtenirCourrielUtilisateurPourIdObs($id_obs) {
1765 raphael 136
		$id_obs = Cel::db()->proteger($id_obs);
1581 jpm 137
		$requete = "SELECT courriel_utilisateur FROM cel_obs WHERE id_observation = $id_obs";
138
 
1765 raphael 139
		$utilisateur_courriel = Cel::db()->executerRequete($requete . ' -- ' . __FILE__ . ':' . __LINE__);
1581 jpm 140
 
1491 aurelien 141
		$retour = false;
1581 jpm 142
		if (!empty($utilisateur_courriel) && isset($utilisateur_courriel[0]['courriel_utilisateur'])) {
1491 aurelien 143
			$retour = $utilisateur_courriel[0]['courriel_utilisateur'];
144
		}
145
		return $retour;
146
	}
1581 jpm 147
 
959 aurelien 148
	private function getIdsMotsClesObservation($id_observation) {
1162 aurelien 149
		$requete_selection_mots_cles = 'SELECT DISTINCT id_mot_cle_obs '.
1581 jpm 150
			'FROM cel_obs_mots_cles '.
151
			"WHERE id_observation = $id_observation ";
1765 raphael 152
		return Cel::db()->executerRequete($requete_selection_mots_cles);
959 aurelien 153
	}
1581 jpm 154
 
862 aurelien 155
	// TODO: fonction temporaire
156
	public function parserRequeteCriteres($chaine_criteres) {
157
		$criteres_parses = array();
1581 jpm 158
		$criteres = explode('&', $chaine_criteres) ;
159
		foreach ($criteres as &$critere) {
160
			$nom_valeur = explode('=', $critere) ;
161
			if (count($nom_valeur) >= 2) {
959 aurelien 162
				$criteres_parses[$nom_valeur[0]] = $nom_valeur[1];
163
			}
862 aurelien 164
		}
165
		return $criteres_parses;
166
	}
1581 jpm 167
 
862 aurelien 168
	private function fabriquerSousRequeteRecherche($id_utilisateur, $criteres) {
995 aurelien 169
		$sous_requete = '';
1581 jpm 170
		foreach ($criteres as $nom => $valeur) {
171
			if ($valeur == null || trim($nom) == '' || trim($valeur) == '') {
172
				continue;
862 aurelien 173
			}
1581 jpm 174
 
959 aurelien 175
			switch ($nom) {
1311 aurelien 176
				case "mots_cles";
1386 aurelien 177
					$sous_requete .= $this->creerSousRequeteMotsCles($valeur);
1388 aurelien 178
					$sous_requete .= ' AND ';
1581 jpm 179
					break;
862 aurelien 180
				case 'annee':
1581 jpm 181
					if ($valeur == "NULL") {
1390 aurelien 182
						$sous_requete .= "(date_observation IS NULL OR year(date_observation) = 0000)" ;
1332 aurelien 183
					} else {
1765 raphael 184
						$sous_requete .= "(year(date_observation) = ".Cel::db()->proteger($valeur).")" ;
1332 aurelien 185
					}
862 aurelien 186
					$sous_requete .= ' AND ' ;
1581 jpm 187
					break;
862 aurelien 188
				case 'mois':
1581 jpm 189
					if ($valeur == "NULL") {
1332 aurelien 190
						$sous_requete .= "date_observation IS NULL OR month(date_observation) = 00" ;
191
					} else {
1765 raphael 192
						$sous_requete .= "month(date_observation) = ".Cel::db()->proteger($valeur) ;
1332 aurelien 193
					}
862 aurelien 194
					$sous_requete .= ' AND ' ;
1581 jpm 195
					break;
862 aurelien 196
				case 'jour':
1581 jpm 197
					if ($valeur == "NULL") {
1332 aurelien 198
						$sous_requete .= "date_observation IS NULL OR day(date_observation) = 00" ;
199
					} else {
1765 raphael 200
						$sous_requete .= "day(date_observation) = ".Cel::db()->proteger($valeur) ;
1332 aurelien 201
					}
862 aurelien 202
					$sous_requete .= ' AND ' ;
1581 jpm 203
					break;
959 aurelien 204
				case 'departement':
1581 jpm 205
					if ($valeur == "NULL") {
1332 aurelien 206
						$sous_requete .= "(ce_zone_geo IS NULL OR ce_zone_geo = '')";
207
					} else {
1581 jpm 208
						if (strpos($valeur,',') !== false) {
1378 aurelien 209
							$dpts = explode(',',$valeur);
210
							$sous_requete .= '(';
211
							foreach($dpts as $dpt) {
1765 raphael 212
								$sous_requete .= "ce_zone_geo LIKE ".Cel::db()->proteger('INSEE-C:'.$dpt.'___').' OR ';
1378 aurelien 213
							}
214
							$sous_requete = rtrim($sous_requete,' OR ').') ';
215
						} else {
1765 raphael 216
							$sous_requete .= "(ce_zone_geo LIKE ".Cel::db()->proteger('INSEE-C:'.$valeur.'___').')';
1378 aurelien 217
						}
1332 aurelien 218
					}
959 aurelien 219
					$sous_requete .= ' AND ' ;
1581 jpm 220
					break;
959 aurelien 221
				case 'commune':
1581 jpm 222
					if ($valeur == "NULL") {
1332 aurelien 223
						$sous_requete .= "(zone_geo IS NULL OR zone_geo = '')";
224
					} else {
1765 raphael 225
						$sous_requete .= "(zone_geo = ".Cel::db()->proteger($valeur).')';
1332 aurelien 226
					}
959 aurelien 227
					$sous_requete .= ' AND ' ;
1581 jpm 228
					break;
229
				case 'id_mots_cles':
230
					$liste_mc = '"'.str_replace(';','","',$valeur).'"';
231
					$sous_requete .= '' ;
232
					$sous_requete .= 'id_observation IN (SELECT id_observation FROM cel_obs_mots_cles WHERE id_mot_cle_obs IN ('.$liste_mc.'))';
233
					$sous_requete .= ' AND ' ;
234
					break;
235
				case 'recherche':
236
					$sous_requete .= $this->fabriquerSousRequeteRechercheGenerale($id_utilisateur, $valeur);
237
					$sous_requete .= ' AND ';
238
					break;
239
				case 'date_debut':
1765 raphael 240
					$sous_requete .= 'date_observation >= '.Cel::db()->proteger($this->formaterEnDateMysql($valeur));
1581 jpm 241
					$sous_requete .= ' AND ';
242
					break;
243
				case 'date_fin':
1765 raphael 244
					$sous_requete .= 'date_observation <= '.Cel::db()->proteger($this->formaterEnDateMysql($valeur));
1581 jpm 245
					$sous_requete .= ' AND ';
246
					break;
247
				case 'taxon':
1765 raphael 248
					$valeur_protegee = Cel::db()->proteger($valeur."%");
1581 jpm 249
					$sous_requete .= "( nom_sel LIKE ".$valeur_protegee." OR".
250
								" nom_ret LIKE ".$valeur_protegee." OR".
251
								" famille LIKE ".$valeur_protegee.
252
								" ) AND ";
253
					break;
1644 aurelien 254
				case 'sql_brut':
1634 raphael 255
					$sous_requete .= $valeur;
256
					$sous_requete .= ' AND ';
257
					break;
862 aurelien 258
				default:
1838 raphael 259
					if(!preg_match('/^[a-zA-Z0-9_-]+$/', $nom)) break;
260
					$valeur = rtrim($valeur);
261
					// TODO: pour de nombreux champs, et lorsque les webservices d'update/insert
262
					// trim() + NULLify'ront les données vides, alors nous pourrons omettre ce pénible
263
					// double-test pour la plupart des champs
264
					if ($valeur && $valeur != 'NULL') {
1765 raphael 265
						$sous_requete .= $nom." = ".Cel::db()->proteger($valeur) ;
1581 jpm 266
						$sous_requete .= ' AND ';
862 aurelien 267
					}
1838 raphael 268
					else {
1581 jpm 269
						$sous_requete .= "($nom IS NULL OR $nom = '')";
270
						$sous_requete .= ' AND ';
271
					}
272
					break;
862 aurelien 273
			}
274
		}
275
		$sous_requete = rtrim($sous_requete,' AND ');
276
		return $sous_requete;
277
	}
1581 jpm 278
 
1378 aurelien 279
	private function formaterEnDateMysql($date) {
280
		$annee = substr($date, 6, 4);
281
		$mois = substr($date, 3, 2);
282
		$jour = substr($date, 0, 2);
283
		$date = $annee . '-' . $mois . '-' . $jour;
284
		return $date;
285
	}
1581 jpm 286
 
1311 aurelien 287
	private function fabriquerSousRequeteRechercheGenerale($id_utilisateur, $valeur) {
288
		$valeur = str_replace("*","%",$valeur);
1765 raphael 289
		$valeur = Cel::db()->proteger('%'.$valeur.'%');
1311 aurelien 290
		$sous_requete = "(nom_sel LIKE ".$valeur.
291
			" OR courriel_utilisateur LIKE ".$valeur.
292
			" OR prenom_utilisateur LIKE ".$valeur.
293
			" OR nom_utilisateur LIKE ".$valeur.
294
			" OR nom_sel LIKE ".$valeur.
295
			" OR nom_sel_nn LIKE ".$valeur.
296
			" OR nom_ret LIKE ".$valeur.
297
			" OR nom_ret_nn LIKE ".$valeur.
298
			" OR nt LIKE ".$valeur.
299
			" OR famille LIKE ".$valeur.
300
			" OR zone_geo LIKE ".$valeur.
301
			" OR ce_zone_geo LIKE ".$valeur.
302
			" OR date_observation LIKE ".$valeur.
303
			" OR lieudit LIKE ".$valeur.
304
			" OR station LIKE ".$valeur.
305
			" OR milieu LIKE ".$valeur.
306
			" OR commentaire LIKE ".$valeur.
307
			" OR transmission LIKE ".$valeur.
308
			" OR latitude LIKE ".$valeur.
309
			" OR longitude LIKE ".$valeur.
310
			" OR mots_cles_texte LIKE ".$valeur.
311
			")";
312
		return $sous_requete;
1386 aurelien 313
	}
314
 
315
	private function creerSousRequeteMotsCles($mot_cle) {
316
		$requete = '';
317
		if (preg_match('/.*OU.*/', $mot_cle)) {
318
			$mots_cles_tab = explode('OU',$mot_cle);
319
			foreach($mots_cles_tab as $mot_cle_item) {
1765 raphael 320
				$requete .= '(mots_cles_texte LIKE '.Cel::db()->proteger('%'.$mot_cle_item.'%').') OR ';
1386 aurelien 321
			}
322
			$requete = '('.rtrim($requete,'OR ').')';
323
		} else if (preg_match('/.*ET.*/', $mot_cle)) {
324
			$mots_cles_tab = explode('ET',$mot_cle);
325
			foreach($mots_cles_tab as $mot_cle_item) {
1765 raphael 326
				$requete .= '(mots_cles_texte LIKE '.Cel::db()->proteger('%'.$mot_cle_item.'%').') AND ';
1386 aurelien 327
			}
328
			$requete = '('.rtrim($requete, 'AND ').') ';
329
		} else {
1765 raphael 330
			$requete = "(mots_cles_texte LIKE ".Cel::db()->proteger('%'.$mot_cle.'%').') ';
1386 aurelien 331
		}
332
		return $requete;
333
	}
1581 jpm 334
 
987 aurelien 335
	private function estUnvaleurZeroNulle($valeur) {
1581 jpm 336
		return $valeur == '000null';
987 aurelien 337
	}
1581 jpm 338
 
987 aurelien 339
	private function traiterRequeteValeurZeroNulle($valeur) {
340
		$champs = array('annee' => 'date_observation',
1581 jpm 341
			'mois' => 'date_observation',
342
			'jour' => 'date_observation',
343
			'departement' => 'ce_zone_geo',
344
			'commune' => 'zone_geo');
1765 raphael 345
		return $sous_requete .= $champs[$valeur]." = ".Cel::db()->proteger("");
1581 jpm 346
	}
862 aurelien 347
}
348
?>