Subversion Repositories eFlore/Applications.cel

Rev

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

Rev Author Line No. Line
862 aurelien 1
<?php
2459 jpm 2
// declare(encoding='UTF-8');
906 aurelien 3
/**
2462 jpm 4
 * Classe de recherche d'observations à partir de divers critères.
1581 jpm 5
 *
2459 jpm 6
 * @internal   Mininum PHP version : 5.2
7
 * @category   CEL
8
 * @package    Services
9
 * @subpackage Bibliothèques
10
 * @version    0.1
11
 * @author     Mathias CHOUET <mathias@tela-botanica.org>
12
 * @author     Jean-Pascal MILCENT <jpm@tela-botanica.org>
13
 * @author     Aurelien PERONNET <aurelien@tela-botanica.org>
14
 * @license    GPL v3 <http://www.gnu.org/licenses/gpl.txt>
15
 * @license    CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>
16
 * @copyright  1999-2014 Tela Botanica <accueil@tela-botanica.org>
1581 jpm 17
 */
862 aurelien 18
class RechercheObservation extends Cel {
1581 jpm 19
 
1631 raphael 20
	public $requete_selection_observations;
2039 aurelien 21
	public static $tris_possibles = array(
2459 jpm 22
		'nom_referentiel',
23
		'nom_sel',
24
		'certitude',
25
		'nom_ret',
26
		'famille',
27
		'abondance',
28
		'phenologie',
29
		'transmission',
30
		'ce_zone_geo',
31
		'altitude',
32
		'date_observation',
3113 killian 33
		// 'ordre' // On désactive ordre qui est le tri par défaut, car ça pédale trop si l'user à trop d'obs
2039 aurelien 34
	);
1631 raphael 35
 
930 aurelien 36
	public function obtenirIdObservationsPourOrdre($id_utilisateur, $ordre) {
1581 jpm 37
		if (is_array($ordre)) {
2459 jpm 38
			$ordre = array_map(array(Cel::db(), 'proteger'), $ordre);
39
			$portionOrdre = ' IN ('.implode(',', $ordre).') ';
930 aurelien 40
		} else {
2459 jpm 41
			$portionOrdre .= ' = '.Cel::db()->proteger($ordre).' ';
930 aurelien 42
		}
2459 jpm 43
		$idUtilisateurP = Cel::db()->proteger($id_utilisateur);
44
		$requete = 'SELECT id_observation '.
45
			'FROM cel_obs '.
46
			"WHERE ordre $portionOrdre ".
47
			"AND ce_utilisateur = $idUtilisateurP ".
48
			'ORDER BY id_observation '.
49
			' -- '.__FILE__.':'.__LINE__;
50
		$resultats = Cel::db()->requeter($requete);
1581 jpm 51
 
930 aurelien 52
		$ids = array();
2459 jpm 53
		if (is_array($resultats)) {
54
			foreach ($resultats as $resultat) {
930 aurelien 55
				$ids[] = $resultat['id_observation'];
56
			}
57
		}
58
		return $ids;
59
	}
1581 jpm 60
 
1644 aurelien 61
	public function rechercherObservations($id_utilisateur = null, $criteres = array(), $debut = 0, $limite = 50, $autoriser_sql_brut = FALSE) {
1581 jpm 62
		$requete_selection_observations = 'SELECT * FROM cel_obs ';
63
 
64
		if ($id_utilisateur != null) {
1765 raphael 65
			$requete_selection_observations .= 'WHERE ce_utilisateur = '.Cel::db()->proteger($id_utilisateur).' AND ';
1581 jpm 66
		} else if(count($criteres) > 0) {
67
			$requete_selection_observations .= 'WHERE ';
68
		}
69
 
3100 killian 70
		// construction du tri
71
		$order_by_clause = '';
72
		if (isset($criteres['tri']) && in_array($criteres['tri'], self::$tris_possibles)) {
73
			$order_by_clause =  ' ORDER BY ' . $criteres['tri'];
74
 
75
			if (isset($criteres['tri_dir']) && in_array($criteres['tri_dir'], array('ASC', 'DESC'))) {
3101 killian 76
				$order_by_clause .= ' ' . $criteres['tri_dir'];
3100 killian 77
			}
78
		}
2035 aurelien 79
		unset($criteres['tri']);
80
		unset($criteres['tri_dir']);
2143 jpm 81
 
1634 raphael 82
		// très mauvaise solution, mais qui permet au moins d'effectuer des requêtes complexes, sans modifier l'API
83
		// et sans pour autant introduire de problème de sécurité majeur dans toutes les fonctions appelantes qui
84
		// effectue $criteres = $_GET sans nettoyage préalable.
1644 aurelien 85
		if(isset($criteres['sql_brut']) && !$autoriser_sql_brut) unset($criteres['sql_brut']);
1581 jpm 86
		$sous_requete_recherche = $this->fabriquerSousRequeteRecherche($id_utilisateur, $criteres);
2143 jpm 87
 
1581 jpm 88
		$requete_selection_observations .= $sous_requete_recherche;
89
		$requete_selection_observations = rtrim($requete_selection_observations, 'AND ');
3100 killian 90
		$requete_selection_observations .= $id_utilisateur == null ? ' ORDER BY id_observation, ordre ' : $order_by_clause;
1398 aurelien 91
		$requete_selection_observations .= ($debut == 0 && $limite == 0) ? '' : ' LIMIT '.$debut.','.$limite ;
1581 jpm 92
 
1631 raphael 93
		$this->requete_selection_observations = $requete_selection_observations;
94
		return $this;
95
	}
1332 aurelien 96
 
1631 raphael 97
	public function get() {
2459 jpm 98
		if (!$this->requete_selection_observations) {
99
			return false;
100
		}
2143 jpm 101
		return Cel::db()->requeter($this->requete_selection_observations);
862 aurelien 102
	}
1581 jpm 103
 
906 aurelien 104
	public function compterObservations($id_utilisateur = null, $criteres = array()) {
2459 jpm 105
 		$requete = 'SELECT COUNT(*) AS nb_obs FROM cel_obs ';
1581 jpm 106
		if ($id_utilisateur != null) {
2459 jpm 107
			$requete .= 'WHERE ce_utilisateur = '.Cel::db()->proteger($id_utilisateur).' AND ';
1581 jpm 108
		} else if(count($criteres) > 0) {
2459 jpm 109
			$requete .= 'WHERE ';
1581 jpm 110
		}
2459 jpm 111
		$requete .= $this->fabriquerSousRequeteRecherche($id_utilisateur, $criteres);
112
		$requete = rtrim($requete, 'AND ');
113
		$resultat = Cel::db()->requeter($requete);
114
		$nb_obs = ($resultat && is_array($resultat) && count($resultat) > 0) ? $resultat[0]['nb_obs'] : '0';
862 aurelien 115
		return $nb_obs;
116
	}
1581 jpm 117
 
1598 raphael 118
	public function formaterPourEnvoiCel(&$tableau_observations) {
1527 aurelien 119
		$ids = array();
1581 jpm 120
		foreach ($tableau_observations as &$observation) {
961 aurelien 121
			$observation['ce_zone_geo'] = $this->convertirCodeZoneGeoVersCodeInsee($observation['ce_zone_geo']);
959 aurelien 122
			$ids_mots_cles = $this->getIdsMotsClesObservation($observation['id_observation']);
1581 jpm 123
 
1527 aurelien 124
			$ids[] = $observation['id_observation'];
959 aurelien 125
			$mots_cles_chaine = '';
1581 jpm 126
			foreach ($ids_mots_cles as $id_mot_cle) {
2043 aurelien 127
				$mots_cles_chaine .= $id_mot_cle['id_mot_cle'].';';
959 aurelien 128
			}
129
			$mots_cles_chaine = rtrim($mots_cles_chaine,';');
130
			$observation['mots_cles'] = $mots_cles_chaine;
1581 jpm 131
 
132
			foreach ($observation as $champ => $valeur) {
133
				if ($valeur == 'NULL') {
134
					$observation[$champ] = '';
1332 aurelien 135
				}
136
			}
959 aurelien 137
		}
1581 jpm 138
 
1527 aurelien 139
		$gestion_champs_etendus = new GestionChampsEtendus($this->config, 'obs');
1570 aurelien 140
		$champs_supp = $gestion_champs_etendus->consulterParLots($ids);
1581 jpm 141
 
2459 jpm 142
		foreach ($tableau_observations as &$obs) {
143
			if (isset($champs_supp[$obs['id_observation']])) {
1527 aurelien 144
				$obs['obs_etendue'] = $champs_supp[$obs['id_observation']];
145
			}
146
		}
959 aurelien 147
		return $tableau_observations;
148
	}
2459 jpm 149
 
150
	public function obtenirIdUtilisateurPourIdObs($id_obs) {
151
		$idObsP = Cel::db()->proteger($id_obs);
152
		$requete = 'SELECT ce_utilisateur '.
153
			'FROM cel_obs '.
154
			"WHERE id_observation = $idObsP ".
155
			' -- '.__FILE__.':'.__LINE__;
156
		$utilisateur_id = Cel::db()->requeter($requete);
157
 
158
		$retour = false;
159
		if (!empty($utilisateur_id) && isset($utilisateur_id[0]['ce_utilisateur'])) {
160
			$retour = $utilisateur_id[0]['ce_utilisateur'];
161
		}
162
		return $retour;
2206 aurelien 163
	}
1581 jpm 164
 
1491 aurelien 165
	public function obtenirCourrielUtilisateurPourIdObs($id_obs) {
1765 raphael 166
		$id_obs = Cel::db()->proteger($id_obs);
1581 jpm 167
		$requete = "SELECT courriel_utilisateur FROM cel_obs WHERE id_observation = $id_obs";
168
 
2143 jpm 169
		$utilisateur_courriel = Cel::db()->requeter($requete . ' -- ' . __FILE__ . ':' . __LINE__);
1581 jpm 170
 
1491 aurelien 171
		$retour = false;
1581 jpm 172
		if (!empty($utilisateur_courriel) && isset($utilisateur_courriel[0]['courriel_utilisateur'])) {
1491 aurelien 173
			$retour = $utilisateur_courriel[0]['courriel_utilisateur'];
174
		}
175
		return $retour;
176
	}
1581 jpm 177
 
959 aurelien 178
	private function getIdsMotsClesObservation($id_observation) {
2043 aurelien 179
		$requete_selection_mots_cles = 'SELECT DISTINCT id_mot_cle '.
180
			'FROM cel_mots_cles_obs_liaison '.
181
			"WHERE id_element_lie = $id_observation ";
2143 jpm 182
		return Cel::db()->requeter($requete_selection_mots_cles);
959 aurelien 183
	}
1581 jpm 184
 
862 aurelien 185
	// TODO: fonction temporaire
186
	public function parserRequeteCriteres($chaine_criteres) {
187
		$criteres_parses = array();
1581 jpm 188
		$criteres = explode('&', $chaine_criteres) ;
189
		foreach ($criteres as &$critere) {
190
			$nom_valeur = explode('=', $critere) ;
191
			if (count($nom_valeur) >= 2) {
959 aurelien 192
				$criteres_parses[$nom_valeur[0]] = $nom_valeur[1];
193
			}
862 aurelien 194
		}
195
		return $criteres_parses;
196
	}
1581 jpm 197
 
862 aurelien 198
	private function fabriquerSousRequeteRecherche($id_utilisateur, $criteres) {
995 aurelien 199
		$sous_requete = '';
1581 jpm 200
		foreach ($criteres as $nom => $valeur) {
201
			if ($valeur == null || trim($nom) == '' || trim($valeur) == '') {
202
				continue;
862 aurelien 203
			}
1581 jpm 204
 
959 aurelien 205
			switch ($nom) {
1311 aurelien 206
				case "mots_cles";
1386 aurelien 207
					$sous_requete .= $this->creerSousRequeteMotsCles($valeur);
1388 aurelien 208
					$sous_requete .= ' AND ';
1581 jpm 209
					break;
862 aurelien 210
				case 'annee':
1581 jpm 211
					if ($valeur == "NULL") {
1390 aurelien 212
						$sous_requete .= "(date_observation IS NULL OR year(date_observation) = 0000)" ;
1332 aurelien 213
					} else {
1765 raphael 214
						$sous_requete .= "(year(date_observation) = ".Cel::db()->proteger($valeur).")" ;
1332 aurelien 215
					}
862 aurelien 216
					$sous_requete .= ' AND ' ;
1581 jpm 217
					break;
862 aurelien 218
				case 'mois':
1581 jpm 219
					if ($valeur == "NULL") {
1332 aurelien 220
						$sous_requete .= "date_observation IS NULL OR month(date_observation) = 00" ;
221
					} else {
1765 raphael 222
						$sous_requete .= "month(date_observation) = ".Cel::db()->proteger($valeur) ;
1332 aurelien 223
					}
862 aurelien 224
					$sous_requete .= ' AND ' ;
1581 jpm 225
					break;
862 aurelien 226
				case 'jour':
1581 jpm 227
					if ($valeur == "NULL") {
1332 aurelien 228
						$sous_requete .= "date_observation IS NULL OR day(date_observation) = 00" ;
229
					} else {
1765 raphael 230
						$sous_requete .= "day(date_observation) = ".Cel::db()->proteger($valeur) ;
1332 aurelien 231
					}
862 aurelien 232
					$sous_requete .= ' AND ' ;
1581 jpm 233
					break;
3100 killian 234
				case 'pays':
235
					if ($valeur == "NULL") {
236
						$sous_requete .= "(pays IS NULL OR pays = '')";
2538 aurelien 237
					} else {
238
							$pays_t = explode(',', $valeur);
239
							foreach($pays_t as &$pays) {
240
								$pays = Cel::db()->proteger($pays);
3100 killian 241
							}
242
							$sous_requete .= '(pays IN ('.implode(',', $pays_t).')) ';
243
					}
244
					$sous_requete .= ' AND ' ;
2538 aurelien 245
					break;
959 aurelien 246
				case 'departement':
1581 jpm 247
					if ($valeur == "NULL") {
1332 aurelien 248
						$sous_requete .= "(ce_zone_geo IS NULL OR ce_zone_geo = '')";
249
					} else {
1581 jpm 250
						if (strpos($valeur,',') !== false) {
1378 aurelien 251
							$dpts = explode(',',$valeur);
252
							$sous_requete .= '(';
253
							foreach($dpts as $dpt) {
1765 raphael 254
								$sous_requete .= "ce_zone_geo LIKE ".Cel::db()->proteger('INSEE-C:'.$dpt.'___').' OR ';
1378 aurelien 255
							}
256
							$sous_requete = rtrim($sous_requete,' OR ').') ';
257
						} else {
1765 raphael 258
							$sous_requete .= "(ce_zone_geo LIKE ".Cel::db()->proteger('INSEE-C:'.$valeur.'___').')';
1378 aurelien 259
						}
1332 aurelien 260
					}
959 aurelien 261
					$sous_requete .= ' AND ' ;
1581 jpm 262
					break;
2570 aurelien 263
				case 'localite':
959 aurelien 264
				case 'commune':
1581 jpm 265
					if ($valeur == "NULL") {
1332 aurelien 266
						$sous_requete .= "(zone_geo IS NULL OR zone_geo = '')";
267
					} else {
1765 raphael 268
						$sous_requete .= "(zone_geo = ".Cel::db()->proteger($valeur).')';
1332 aurelien 269
					}
959 aurelien 270
					$sous_requete .= ' AND ' ;
1581 jpm 271
					break;
272
				case 'id_mots_cles':
273
					$liste_mc = '"'.str_replace(';','","',$valeur).'"';
2060 aurelien 274
					$tpl_sous_requete = GestionMotsClesChemin::obtenirTemplateRequeteMotsClesIds('obs');
2059 aurelien 275
					$sous_requete .= 'id_observation IN ('.sprintf($tpl_sous_requete, $liste_mc).')';
1581 jpm 276
					$sous_requete .= ' AND ' ;
277
					break;
278
				case 'recherche':
279
					$sous_requete .= $this->fabriquerSousRequeteRechercheGenerale($id_utilisateur, $valeur);
280
					$sous_requete .= ' AND ';
281
					break;
282
				case 'date_debut':
1765 raphael 283
					$sous_requete .= 'date_observation >= '.Cel::db()->proteger($this->formaterEnDateMysql($valeur));
1581 jpm 284
					$sous_requete .= ' AND ';
285
					break;
286
				case 'date_fin':
1765 raphael 287
					$sous_requete .= 'date_observation <= '.Cel::db()->proteger($this->formaterEnDateMysql($valeur));
1581 jpm 288
					$sous_requete .= ' AND ';
289
					break;
290
				case 'taxon':
1765 raphael 291
					$valeur_protegee = Cel::db()->proteger($valeur."%");
1581 jpm 292
					$sous_requete .= "( nom_sel LIKE ".$valeur_protegee." OR".
293
								" nom_ret LIKE ".$valeur_protegee." OR".
294
								" famille LIKE ".$valeur_protegee.
295
								" ) AND ";
296
					break;
1644 aurelien 297
				case 'sql_brut':
1634 raphael 298
					$sous_requete .= $valeur;
299
					$sous_requete .= ' AND ';
300
					break;
862 aurelien 301
				default:
1838 raphael 302
					if(!preg_match('/^[a-zA-Z0-9_-]+$/', $nom)) break;
303
					$valeur = rtrim($valeur);
304
					// TODO: pour de nombreux champs, et lorsque les webservices d'update/insert
305
					// trim() + NULLify'ront les données vides, alors nous pourrons omettre ce pénible
306
					// double-test pour la plupart des champs
307
					if ($valeur && $valeur != 'NULL') {
1765 raphael 308
						$sous_requete .= $nom." = ".Cel::db()->proteger($valeur) ;
1581 jpm 309
						$sous_requete .= ' AND ';
862 aurelien 310
					}
1838 raphael 311
					else {
1581 jpm 312
						$sous_requete .= "($nom IS NULL OR $nom = '')";
313
						$sous_requete .= ' AND ';
314
					}
315
					break;
862 aurelien 316
			}
317
		}
318
		$sous_requete = rtrim($sous_requete,' AND ');
319
		return $sous_requete;
320
	}
1581 jpm 321
 
1378 aurelien 322
	private function formaterEnDateMysql($date) {
323
		$annee = substr($date, 6, 4);
324
		$mois = substr($date, 3, 2);
325
		$jour = substr($date, 0, 2);
326
		$date = $annee . '-' . $mois . '-' . $jour;
327
		return $date;
328
	}
1581 jpm 329
 
1311 aurelien 330
	private function fabriquerSousRequeteRechercheGenerale($id_utilisateur, $valeur) {
2459 jpm 331
		$valeur = str_replace('*', '%', $valeur);
332
		$valeur = Cel::db()->proteger("%$valeur%");
333
		$sous_requete = "(nom_sel LIKE $valeur ".
334
			"OR courriel_utilisateur LIKE $valeur ".
335
			"OR prenom_utilisateur LIKE $valeur ".
336
			"OR nom_utilisateur LIKE $valeur ".
337
			"OR nom_sel LIKE $valeur ".
338
			"OR nom_sel_nn LIKE $valeur ".
339
			"OR nom_ret LIKE $valeur ".
340
			"OR nom_ret_nn LIKE $valeur ".
341
			"OR nt LIKE $valeur ".
342
			"OR famille LIKE $valeur ".
343
			"OR zone_geo LIKE $valeur ".
344
			"OR ce_zone_geo LIKE $valeur ".
345
			"OR date_observation LIKE $valeur ".
346
			"OR lieudit LIKE $valeur ".
347
			"OR station LIKE $valeur ".
348
			"OR milieu LIKE $valeur ".
349
			"OR commentaire LIKE $valeur ".
350
			"OR transmission LIKE $valeur ".
351
			"OR latitude LIKE $valeur ".
352
			"OR longitude LIKE $valeur ".
353
			"OR mots_cles_texte LIKE $valeur ".
1311 aurelien 354
			")";
355
		return $sous_requete;
1386 aurelien 356
	}
357
 
358
	private function creerSousRequeteMotsCles($mot_cle) {
2059 aurelien 359
		//TODO: une requête plus efficace serait possible en utilisant
360
		// les vraies tables de mots clés et en faisant disparaitre ce champ maudit
1386 aurelien 361
		$requete = '';
362
		if (preg_match('/.*OU.*/', $mot_cle)) {
363
			$mots_cles_tab = explode('OU',$mot_cle);
364
			foreach($mots_cles_tab as $mot_cle_item) {
1765 raphael 365
				$requete .= '(mots_cles_texte LIKE '.Cel::db()->proteger('%'.$mot_cle_item.'%').') OR ';
1386 aurelien 366
			}
367
			$requete = '('.rtrim($requete,'OR ').')';
368
		} else if (preg_match('/.*ET.*/', $mot_cle)) {
369
			$mots_cles_tab = explode('ET',$mot_cle);
370
			foreach($mots_cles_tab as $mot_cle_item) {
1765 raphael 371
				$requete .= '(mots_cles_texte LIKE '.Cel::db()->proteger('%'.$mot_cle_item.'%').') AND ';
1386 aurelien 372
			}
373
			$requete = '('.rtrim($requete, 'AND ').') ';
374
		} else {
1765 raphael 375
			$requete = "(mots_cles_texte LIKE ".Cel::db()->proteger('%'.$mot_cle.'%').') ';
1386 aurelien 376
		}
377
		return $requete;
378
	}
1581 jpm 379
 
987 aurelien 380
	private function estUnvaleurZeroNulle($valeur) {
1581 jpm 381
		return $valeur == '000null';
987 aurelien 382
	}
1581 jpm 383
 
987 aurelien 384
	private function traiterRequeteValeurZeroNulle($valeur) {
385
		$champs = array('annee' => 'date_observation',
1581 jpm 386
			'mois' => 'date_observation',
387
			'jour' => 'date_observation',
388
			'departement' => 'ce_zone_geo',
389
			'commune' => 'zone_geo');
1765 raphael 390
		return $sous_requete .= $champs[$valeur]." = ".Cel::db()->proteger("");
1581 jpm 391
	}
3100 killian 392
}