Subversion Repositories eFlore/Applications.cel

Rev

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

Rev Author Line No. Line
416 aurelien 1
<?php
2
 
3
 
4
/**
5
 
6
David Delon Cecill / GPL 2008
7
 
8
  */
9
 
10
 
11
// in : utf8
12
// out : utf8
13
/*
14
 * InventoryObservationList.php
15
 *
16
 * Cas d'utilisation :
17
 * Service recherche d'Observations a partir de divers crit�res
18
 *
19
 * 2: Le service recherche l'Observation correspondant au crit�res demand�
20
 * 3: Le service renvoie l'adresse de base de l'Observation qui permet de la localiser sous ses diff�rents formats (X, M ou L)
21
 */
22
 
23
 
24
 Class InventoryObservationList extends DBAccessor {
25
 
26
	var $config;
27
 
28
	function InventoryObservationList($config) {
29
 
30
		$this->config=$config;
31
	}
32
 
33
 
34
	// renvoie l'enregistrement correspond a une Observation
35
	function getElement($uid)
36
	{
37
		// uid[0] : utilisateur obligatoire
38
		// uid[1] : criteres de filtrage de la forme critere1:valeur1;critere2:valeur2
39
 
40
		// Controle detournement utilisateur
41
		session_start();
42
	    $this->controleUtilisateur($uid[0]);
43
 
44
		$DB=$this->connectDB($this->config,'database_cel');
45
 
46
		$criteres = array() ;
47
 
48
		if(isset($uid[1]))
49
		{
50
			$criteres = explode("&", $uid[1]) ;
51
		}
52
	//$query="SELECT identifiant, ordre, nom_sel, num_nom_sel, nom_ret, num_nom_ret, num_taxon, famille, location, date_observation," .
53
	    //" lieudit, station, milieu, commentaire, transmission  FROM cel_inventory WHERE identifiant='".$DB->escapeSimple($uid[0])."' AND "  ;
54
 
55
 		$query="SELECT nom_sel, num_nom_sel, nom_ret, num_nom_ret, num_taxon, famille, location, ordre, date_observation, lieudit," .
56
 				"station, milieu, commentaire, transmission, id_location, coord_x, coord_y, mots_cles FROM cel_inventory WHERE identifiant='".$DB->escapeSimple($uid[0])."' AND "  ;
57
 
58
 
59
 
60
 
61
		$numero_page = 0 ;
62
		$limite = 30 ; // limite par defaut
63
 
64
		foreach($criteres as $pair)	{
65
 
66
				$nom_valeur = explode("=",$pair) ;
67
 
68
 
69
				if(sizeof($nom_valeur) != 0) {
70
 
71
					if($nom_valeur[0] == 'limite')
72
					{
73
						$limite = $DB->escapeSimple($nom_valeur[1]) ;
74
					}
75
					elseif($nom_valeur[0] == 'numero_page') {
76
						$numero_page = $DB->escapeSimple($nom_valeur[1]) ;
77
					}
78
					elseif($nom_valeur[0] == 'annee') {
79
						$query .= "year(date_observation) = '".$DB->escapeSimple($nom_valeur[1])."'" ;
80
						$query .= ' AND ' ;
81
					}
82
					elseif($nom_valeur[0] == 'mois') {
83
						$query .= "month(date_observation) = '".$DB->escapeSimple($nom_valeur[1])."'" ;
84
						$query .= ' AND ' ;
85
					}
86
					elseif($nom_valeur[0] == 'jour') {
87
						$query .= "day(date_observation) = '".$DB->escapeSimple($nom_valeur[1])."'" ;
88
						$query .= ' AND ' ;
89
					}
90
                    elseif($nom_valeur[0] == 'mots_cles') {
91
                        $liste_mc = explode(";",$nom_valeur[1]);
92
                        $query .= '(' ;
93
                        foreach($liste_mc as $mot) {
94
                                if(trim($mot) != '')
95
                                {
96
                                  $query .= "mots_cles LIKE '%".$DB->escapeSimple($mot)."%' OR " ;
97
                                }
98
                        }
99
                        $query = rtrim($query,' OR ');
100
                        $query .= ') AND ' ;
101
                    }
102
                    elseif ($nom_valeur[0] == 'nom_taxon') {
103
                    	$nom_valeur[1] = str_replace("*","%",$nom_valeur[1]);
104
                    	$query .= "(nom_sel LIKE '%".$DB->escapeSimple($nom_valeur[1]).
105
									"%' OR identifiant LIKE '%".$DB->escapeSimple($nom_valeur[1]).
106
									"%' OR ordre LIKE '%".$DB->escapeSimple($nom_valeur[1]).
107
									"%' OR nom_sel LIKE '%".$DB->escapeSimple($nom_valeur[1]).
108
									"%' OR num_nom_sel LIKE '%".$DB->escapeSimple($nom_valeur[1]).
109
									"%' OR nom_ret LIKE '%".$DB->escapeSimple($nom_valeur[1]).
110
									"%' OR num_nom_ret LIKE '%".$DB->escapeSimple($nom_valeur[1]).
111
									"%' OR num_taxon LIKE '%".$DB->escapeSimple($nom_valeur[1]).
112
									"%' OR location LIKE '%".$DB->escapeSimple($nom_valeur[1]).
113
									"%' OR id_location LIKE '%".$DB->escapeSimple($nom_valeur[1]).
114
									"%' OR date_observation LIKE '%".$DB->escapeSimple($nom_valeur[1]).
115
									"%' OR lieudit LIKE '%".$DB->escapeSimple($nom_valeur[1]).
116
									"%' OR station LIKE '%".$DB->escapeSimple($nom_valeur[1]).
117
									"%' OR milieu LIKE '%".$DB->escapeSimple($nom_valeur[1]).
118
									"%' OR commentaire LIKE '%".$DB->escapeSimple($nom_valeur[1]).
119
									"%' OR transmission LIKE '%".$DB->escapeSimple($nom_valeur[1]).
120
									"%' OR coord_x LIKE '%".$DB->escapeSimple($nom_valeur[1]).
121
									"%' OR coord_y LIKE '%".$DB->escapeSimple($nom_valeur[1]).
122
									"%')";
123
 
124
									//"%' OR famille LIKE '%".$DB->escapeSimple($nom_valeur[1]).
125
                    }
126
					else {
127
						if(trim($nom_valeur[0]) != '')
128
						{
129
						$query .= $nom_valeur[0]." = '".$DB->escapeSimple($nom_valeur[1])."'" ;
130
						$query .= ' AND ' ;
131
						}
132
					}
133
			}
134
		}
135
 
136
		$query = rtrim($query,' AND ') ;
137
		$query .= ' ORDER BY ordre LIMIT '.$limite*$numero_page.','.$limite ;
138
 
139
 
140
		$res =& $DB->query($query);
141
		    /*   $fp = fopen('dump.txt','w+') ;
142
            fwrite($fp,print_r($query,true)) ;
143
            fclose($fp) ;*/
144
        if (PEAR::isError($res)) {
145
			$this->logger("CEL_bugs","Erreur de récupération d'une liste d'observation :".$res->getMessage()." ".$query);
146
            die($res->getMessage());
147
        }
148
 
149
		$result = array() ;
150
 
151
		while($observation = $res->fetchrow(DB_FETCHMODE_ORDERED)) 		{
152
 
153
				$result[] = $observation;
154
		}
155
 
156
		$res = json_encode($result) ;
157
 
665 aurelien 158
		header("Content-type: application/json");
416 aurelien 159
		print($res);
160
		exit() ;
161
 
162
 
163
 
164
	}
165
 
166
	// met à jour les métadonnées d'une Observation
167
	function updateElement($uid,$pairs) {
168
 
169
		 // Controle detournement utilisateur
170
			    session_start();
171
			 	$this->controleUtilisateur($uid[0]);
172
 
173
				if ($pairs['num_nom_sel']!='') {
174
				// Utilisation d'un nom faisant parti du referentiel : recherche du nom valide correspondant
175
					$complement=$this->rechercherInformationsComplementaires($pairs['num_nom_sel']);
176
					$pairs['nom_ret']=$complement['Nom_Retenu'];
177
			        $pairs['num_nom_ret']=$complement['Num_Nom_Retenu'];
178
			        $pairs['num_taxon']=$complement['Num_Taxon'];
179
			        $pairs['famille']=$complement['Famille'];
180
				}
181
 
182
				$DB=$this->connectDB($this->config,'database_cel');
183
 
184
                // Nullifiage ...
185
 
186
				foreach($pairs as $k=>$v) {
187
					if (trim($v)=="") {
188
						$pairs[$k]="null";
189
					}
190
 
191
				}
192
 
193
				// Pour apparaitre le premier dans les tris ...
194
                if ($pairs['location']=="null") $pairs['location']="000null";
195
 
196
 
197
				// Pour apparaitre le premier dans les tris ...
198
                if ($pairs['lieudit']=="null") $pairs['lieudit']="000null";
199
 
200
 
201
				// Pour apparaitre le premier dans les tris ...
605 aurelien 202
                if ($pairs['id_location']=="null") {
203
                	$pairs['id_location']="000null";
204
                } else {
205
                	// Pour empecher que des numéros de département de 1 à 9 soient saisis sans 0
206
                	if (strlen($pairs['id_location']) == 1) {
207
                		$pairs['id_location'] = '0'.$pairs['id_location'];
208
                	}
209
                }
416 aurelien 210
 
211
                // Pour apparaitre le premier dans les tris ...
212
                if ($pairs['station']=="null") $pairs['station']="000null";
213
 
214
 
215
              	// Pour apparaitre le premier dans les tris ...
216
                if ($pairs['milieu']=="null") $pairs['milieu']="000null";
217
 
218
				// Vérification sur les ordre donnés en paramètres
219
				if(strrpos($uid[1],",") == strlen($uid[1]) -1) {
220
					$uid[1] = rtrim($uid[1],",");
221
				}
222
 
223
                // TODO : decouper avec les /
224
 
225
                if (isset($pairs['date_observation']) && $pairs['date_observation']!="null") {
226
                	list($jour,$mois,$annee)=split("/",$pairs['date_observation']);
227
                	$pairs['date_observation']=$annee."-".$mois."-".$jour." 0:0:0";
228
                }
229
 
230
                if ($pairs['coord_x']=="null") {
231
					$pairs['coord_x'] = "000null";
232
                }
233
 
234
                if ($pairs['coord_y']=="null") {
235
					$pairs['coord_y'] = "000null";
236
                }
237
 
238
                $query="UPDATE cel_inventory SET " ;
239
 
240
                foreach($pairs as $critere => $valeur) {
241
 
242
                	$query .= $critere." = '".$DB->escapeSimple($valeur)."',";
243
                }
244
 
245
				$query .= "date_modification = now() WHERE ordre IN (".$DB->escapeSimple($uid[1]).") AND identifiant = '".$DB->escapeSimple($uid[0])."'";
246
 
247
		    	$res =& $DB->query($query);
248
                if (PEAR::isError($res)) {
249
                	$this->logger("CEL_bugs","Erreur de mise à jour d'une liste d'observations :".$res->getMessage()." ".$query);
250
                	die($res->getMessage());
251
                }
252
 
253
                return	true;
254
 
255
	}
256
 
257
	function deleteElement($uid)
258
	{
259
 
260
		// uid[0] : utilisateur obligatoire
261
	// uid[1] : identifiant(s) Observation(s) obligatoire(s)
262
 
263
	 // Controle detournement utilisateur
264
	   $this->controleUtilisateur($uid[0]);
265
 
266
		$DB=$this->connectDB($this->config,'database_cel');
267
 
268
		$id = rtrim($uid[1],",") ;
269
 
270
		if (isset($id)) {
271
	           	$query_supp='DELETE FROM cel_inventory WHERE identifiant = "'.$DB->escapeSimple($uid[0]).'" AND ordre in ('.$DB->escapeSimple($id) .')';
272
		}
273
 
274
		$res =& $DB->query($query_supp);
275
 
276
 
277
		if (PEAR::isError($res)) {
278
			$this->logger("CEL_bugs","Erreur de suppression d'une liste d'observations :".$res->getMessage()." ".$query_supp);
279
			die($res->getMessage());
280
		}
281
		else
282
		{
283
 
284
            $query_supp_lien = 'DELETE FROM cel_obs_images WHERE coi_ce_utilisateur = "'.$DB->escapeSimple($uid[0]).'" AND coi_ce_observation in ('.$DB->escapeSimple($id).')';
285
 
286
 
287
          /*  $fp = fopen('dump.txt','w+') ;
288
            fwrite($fp,print_r($query_supp_lien,true)) ;
289
            fclose($fp) ;
290
            */
291
            $res =& $DB->query($query_supp_lien);
292
 
293
            if (PEAR::isError($res)) {
294
            	$this->logger("CEL_bugs","Erreur de suppression d'une liste de liaison entre observations et images :".$res->getMessage()." ".$query_supp_lien);
295
                die($res->getMessage());
296
            }
297
            else
298
            {
299
    			echo "OK" ;
300
    			exit() ;
301
    		}
302
        }
303
	}
304
 
305
		function rechercherInformationsComplementaires($numNom) {
306
 
307
		$DB=$this->connectDB($this->config);
308
 
309
		$query = "SELECT DISTINCT en_nom_genre, en_epithete_espece, en_nom_supra_generique, en_epithete_infra_generique,".
310
			     	       			"   auteur_bex.enaia_intitule_abrege AS abreviation_auteur_basio_ex ".
311
        	       			" , auteur_b.enaia_intitule_abrege AS abreviation_auteur_basio ".
312
        	       			" , auteur_mex.enaia_intitule_abrege AS abreviation_auteur_modif_ex ".
313
        	       			" , auteur_m.enaia_intitule_abrege AS abreviation_auteur_modif ".
314
			     " , en_epithete_espece, en_epithete_infra_specifique, enrg_abreviation_rang, b.esn_id_taxon, b.esn_id_nom" .
315
			     " FROM eflore_nom, eflore_nom_rang," .
316
			       			"  	  eflore_naturaliste_intitule_abreviation AS auteur_bex ".
317
        	       			"   , eflore_naturaliste_intitule_abreviation AS auteur_b ".
318
        	       			"   , eflore_naturaliste_intitule_abreviation AS auteur_mex ".
319
        	       			"   , eflore_naturaliste_intitule_abreviation AS auteur_m ".
320
			     " ,eflore_selection_nom a, eflore_selection_nom b".
321
			     " WHERE a.esn_id_nom= ".$numNom.
322
			     " AND a.esn_id_version_projet_taxon = 25 ".
323
			     " AND a.esn_id_taxon=b.esn_id_taxon ".
324
			     " AND b.esn_ce_statut=3 ".
325
			     " AND a.esn_id_version_projet_taxon=b.esn_id_version_projet_taxon" .
326
			     " AND en_ce_rang = enrg_id_rang" .
327
			     " AND en_id_nom = b.esn_id_nom" .
328
			     " AND en_ce_auteur_basio_ex = auteur_bex.enaia_id_intitule_naturaliste_abrege ".
329
       			 " AND en_ce_auteur_basio = auteur_b.enaia_id_intitule_naturaliste_abrege  ".
330
       			 " AND en_ce_auteur_modif_ex = auteur_mex.enaia_id_intitule_naturaliste_abrege ".
331
        	     " AND en_ce_auteur_modif = auteur_m.enaia_id_intitule_naturaliste_abrege ".
332
			     " AND a.esn_id_version_projet_taxon=en_id_version_projet_nom ";
333
 
334
 
335
	   $res =& $DB->query($query);
336
 
337
 
338
        if (DB::isError($res)) {
339
	        die($res->getMessage());
340
    	}
341
 
342
    		// Nom retenu, Num Nomen nom retenu, Num Taxon,
343
										// Famille
344
 
345
		$value=array('Nom_Retenu'=>"",'Num_Nom_Retenu'=>"0",'Num_Taxon'=>"0",'Famille'=>"");
346
 
347
	        while ($row =& $res->fetchrow(DB_FETCHMODE_ASSOC)) {
348
	        	$fam=$this->rechercherFamille($row['esn_id_taxon'],$DB);
349
        	while (($fam['en_ce_rang']!='fin') && ($fam['en_ce_rang'] !=120)) {
350
	        	$fam=$this->rechercherFamille($fam['etr_id_taxon_2'],$DB);
351
        	}
352
        	if ($fam['en_ce_rang']==120) {
353
        		$famille=$fam['en_nom_supra_generique'];
354
        	}
355
        	else {
356
        		$famille="Famille inconnue";
357
        	}
358
        	$value=array('Nom_Retenu'=>$this->formaterNom($row),'Num_Nom_Retenu'=>$row['esn_id_nom'],'Num_Taxon'=>$row['esn_id_taxon'],'Famille'=>$famille);
359
 
360
 
361
	    }
362
 
363
	    return $value;
364
 
365
 
366
 
367
	}
368
 
369
 
370
function formaterNom($rawnom) {
371
 
372
 
373
                // Constitution du nom:
374
                $nom = '';
375
 
376
                if ($rawnom['en_nom_supra_generique'] != '') {
377
                    $nom .= $rawnom['en_nom_supra_generique'];
378
                } else if ($rawnom['en_epithete_infra_generique'] != '') {
379
                    $nom .= $rawnom['en_epithete_infra_generique'];
380
                } else {
381
                        if ($rawnom['en_nom_genre'] != '') {
382
                            $nom .=  $rawnom['en_nom_genre'];
383
                        }
384
                        if ($rawnom['en_epithete_espece']!= '') {
385
                            $nom .= ' '.$rawnom['en_epithete_espece'];
386
                        }
387
                        if ($rawnom['en_epithete_infra_specifique'] != '') {
388
                                if (!empty($rawnom['enrg_abreviation_rang'])) {
389
                                        $nom .= ' '.$rawnom['enrg_abreviation_rang'].'';
390
                                }
391
                                $nom .= ' '.$rawnom['en_epithete_infra_specifique'];
392
                        }
393
 
394
                }
395
 
396
                return $nom .$this->retournerAuteur($rawnom) ;
397
 
398
 }
399
 
400
 
401
function rechercherFamille($taxon,&$DB) {
402
 
403
	$row=array();
404
 
405
	$query="SELECT DISTINCT en_ce_rang, etr_id_taxon_2, en_id_nom, en_nom_supra_generique ".
406
	" FROM eflore_taxon_relation, eflore_selection_nom, eflore_nom ".
407
	" WHERE etr_id_taxon_1 = ".$taxon.
408
	" AND etr_id_version_projet_taxon_1 = 25 ".
409
	" AND etr_id_categorie_taxon = 3 ".
410
	" AND etr_id_valeur_taxon = 3 ".
411
	" AND esn_id_taxon =  etr_id_taxon_2 ".
412
	" AND esn_ce_statut = 3 ".
413
	" AND esn_id_version_projet_taxon = etr_id_version_projet_taxon_1 ".
414
	" AND en_id_nom = esn_id_nom ".
415
	" AND esn_id_version_projet_taxon=en_id_version_projet_nom  ";
416
	$res =& $DB->query($query);
417
 
418
	if (DB::isError($res)) {
419
         die($res->getMessage());
420
   	}
421
 
422
	if ($row =& $res->fetchrow(DB_FETCHMODE_ASSOC)) {
423
		return $row;
424
    }
425
    else {
426
    	$row['en_ce_rang']='fin';
427
    	return $row;
428
    }
429
 
430
}
431
 
432
 
433
 
434
function retournerAuteur($rawnom) {
435
		$auteurs = '';
436
		$auteur_basio = '';
437
		$auteur_modif = '';
438
		if (!empty($rawnom['abreviation_auteur_basio_ex']) && $rawnom['abreviation_auteur_basio_ex']!='-' )  {
439
		    $auteur_basio .= $rawnom['abreviation_auteur_basio_ex'];
440
		    if (!empty($rawnom['abreviation_auteur_basio']) && $rawnom['abreviation_auteur_basio']!='-') {
441
		        $auteur_basio .= ' ex '.$rawnom['abreviation_auteur_basio'];
442
		    }
443
		} else if (!empty($rawnom['abreviation_auteur_basio']) && $rawnom['abreviation_auteur_basio']!='-') {
444
		    $auteur_basio .= $rawnom['abreviation_auteur_basio'];
445
		}
446
 
447
		if (!empty($rawnom['abreviation_auteur_modif_ex']) && $rawnom['abreviation_auteur_modif_ex']!='-') {
448
		    $auteur_modif .= $rawnom['abreviation_auteur_modif_ex'];
449
		    if (!empty($rawnom['abreviation_auteur_modif']) && $rawnom['abreviation_auteur_modif']!='-') {
450
		        $auteur_modif .= ' ex '.$rawnom['abreviation_auteur_modif'];
451
		    }
452
		} else if (!empty($rawnom['abreviation_auteur_modif']) && $rawnom['abreviation_auteur_modif']!='-')  {
453
		    $auteur_modif .= $rawnom['abreviation_auteur_modif'];
454
		}
455
 
456
		if (!empty($auteur_modif)) {
457
		    $auteurs = ' ('.$auteur_basio.') '.$auteur_modif;
458
		} elseif (!empty($auteur_basio)) {
459
		    $auteurs = ' '.$auteur_basio;
460
		}
461
 
462
		return $auteurs ;
463
	}
464
 
465
 
466
 
467
 
468
}
469
?>