Subversion Repositories eFlore/Applications.cel

Rev

Rev 416 | Rev 605 | 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
// CRUD ligne d'inventaire :
5
// In get : utf8
6
// In post : utf8
7
// out : utf8
8
 
9
Class Inventory extends DBAccessor {
10
 
11
 
12
	var $config;
13
 
14
	function Inventory($config) {
15
 
16
		$this->config=$config;
17
	}
18
 
19
 
20
	function getElement($uid){
21
 
22
		   // Controle detournement utilisateur
23
		    session_start();
24
		 	$this->controleUtilisateur($uid[0]);
25
 
26
			$value=array();
27
			$DB=$this->connectDB($this->config,'database_cel');
28
 
29
			if (isset($uid[1])) {
30
	           	$query="SELECT identifiant, ordre, nom_sel, num_nom_sel, nom_ret, num_nom_ret, num_taxon, famille, location, id_location, date_observation, lieudit, station, milieu, commentaire, coord_x, coord_y FROM cel_inventory WHERE identifiant='".$DB->escapeSimple($uid[0])."' AND ordre =".$uid[1]." ORDER BY ordre";
31
			}
32
			else {
33
				if (isset($uid[0])) {
34
		           	$query="SELECT identifiant, ordre, nom_sel, num_nom_sel, nom_ret, num_nom_ret, num_taxon, famille, location, id_location, date_observation, lieudit, station, milieu, commentaire, coord_x, coord_y FROM cel_inventory WHERE identifiant='".$DB->escapeSimple($uid[0])."' ORDER BY ordre";
35
				}
36
			}
37
 
38
		    $res =& $DB->query($query);
39
 
40
 
41
	        if (DB::isError($res)) {
42
	        	$this->logger("CEL_bugs","Erreur de listage des observations :".$res->getMessage()." ".$query);
43
        	}
44
	        while ($row =& $res->fetchrow(DB_FETCHMODE_ASSOC)) {
45
	        	if ($row['date_observation']!="0000-00-00 00:00:00") {
46
	                list($year,$month,$day)= split ('-',$row['date_observation']);
47
    	            list($day)= split (' ',$day);
48
	                $row['date_observation']=$day."/".$month."/".$year;
49
	        	}
50
 
51
		     	$value=array($row['nom_sel'],$row['num_nom_sel'],$row['nom_ret'],$row['num_nom_ret'],$row['num_taxon'],$row['famille'], $row['location'], $row['id_location'], $row['ordre'], $row['date_observation'],$row['lieudit'], $row['station'], $row['milieu'], $row['commentaire'], $row['coord_x'],$row['coord_y']);
52
    	    }
53
 
423 aurelien 54
			$output = json_encode($value);
416 aurelien 55
			print($output);
56
 
57
			return true;
58
 
59
 
60
	}
61
 
62
	function getRessource(){
63
 
64
 
65
	}
66
 
67
 
68
	function updateElement($uid,$pairs) {
69
 
70
		 // Controle detournement utilisateur
71
			    session_start();
72
			 	$this->controleUtilisateur($uid[0]);
73
 
74
				if ($pairs['num_nom_sel']!='') {
75
 
76
 
77
 
78
				// Utilisation d'un nom faisant parti du referentiel : recherche du nom valide correspondant
79
					$complement=$this->rechercherInformationsComplementaires($pairs['num_nom_sel']);
80
 
81
 
82
			        $pairs['nom_ret']=$complement['Nom_Retenu'];
83
			        $pairs['num_nom_ret']=$complement['Num_Nom_Retenu'];
84
			        $pairs['num_taxon']=$complement['Num_Taxon'];
85
			        $pairs['famille']=$complement['Famille'];
86
 
87
				}
88
 
89
 
90
 
91
 
92
				$DB=$this->connectDB($this->config,'database_cel');
93
 
94
                // Nullifiage ...
95
 
96
				foreach($pairs as $k=>$v) {
97
					if (trim($v)=="") {
98
						$pairs[$k]="null";
99
					}
100
 
101
				}
102
 
103
				// Pour apparaitre le premier dans les tris ...
104
                if ($pairs['location']=="null") $pairs['location']="000null";
105
 
106
 
107
				// Pour apparaitre le premier dans les tris ...
108
                if ($pairs['lieudit']=="null") $pairs['lieudit']="000null";
109
 
110
 
111
				// Pour apparaitre le premier dans les tris ...
112
                if ($pairs['id_location']=="null") $pairs['id_location']="000null";
113
 
114
                // Pour apparaitre le premier dans les tris ...
115
                if ($pairs['station']=="null") $pairs['station']="000null";
116
 
117
 
118
              	// Pour apparaitre le premier dans les tris ...
119
                if ($pairs['milieu']=="null") $pairs['milieu']="000null";
120
 
121
                // Pour supprimer les séparateurs de mots clés en trop
122
                if (isset($pairs['mot_cles'])) {
123
                	$pairs['mot_cles'] = str_replace(';;',';',$pairs['mot_cles']);
124
                }
125
 
126
                // TODO : decouper avec les /
127
 
128
                if ($pairs['date_observation']!="null") {
129
                	list($jour,$mois,$annee)=split("/",$pairs['date_observation']);
130
                	$pairs['date_observation']=$annee."-".$mois."-".$jour." 0:0:0";
131
                }
132
 
133
                if ($pairs['coord_x']=="null") {
134
					$pairs['coord_x'] = "000null";
135
                }
136
 
137
                if ($pairs['coord_y']=="null") {
138
					$pairs['coord_y'] = "000null";
139
                }
140
 
141
				$query="UPDATE cel_inventory SET nom_sel = '".$DB->escapeSimple($pairs['nom_sel'])."',".
142
				"num_nom_sel = '".$DB->escapeSimple($pairs['num_nom_sel'])."',".
143
				"nom_ret = '".$DB->escapeSimple($pairs['nom_ret'])."',".
144
				"num_nom_ret = '".$DB->escapeSimple($pairs['num_nom_ret'])."',".
145
				"num_taxon = '".$DB->escapeSimple($pairs['num_taxon'])."',".
146
				"famille = '".$DB->escapeSimple($pairs['famille'])."',".
147
				"location = '".$DB->escapeSimple($pairs['location'])."',".
148
				"id_location = '".$DB->escapeSimple($pairs['id_location'])."',".
149
				"date_observation = '".$DB->escapeSimple($pairs['date_observation'])."',".
150
				"lieudit = '".$DB->escapeSimple($pairs['lieudit'])."',".
151
				"station = '".$DB->escapeSimple($pairs['station'])."',".
152
				"milieu = '".$DB->escapeSimple($pairs['milieu'])."',".
153
				"commentaire = '".$DB->escapeSimple($pairs['commentaire'])."',".
154
				"date_modification = now() ,".
155
				"mots_cles = '".$DB->escapeSimple($pairs['mots_cles'])."',".
156
				"coord_x='".$DB->escapeSimple($pairs['coord_x'])."',".
157
				"coord_y='".$DB->escapeSimple($pairs['coord_y'])."' ".
158
				"WHERE ordre = '".$DB->escapeSimple($uid[1])."' AND identifiant='".$DB->escapeSimple($uid[0])."'";
159
 
160
		    	$res =& $DB->query($query);
161
                if (PEAR::isError($res)) {
162
                	$this->logger("CEL_bugs","Erreur de modification d'une observation :".$res->getMessage()." ".$query);
163
                }
164
                return	true;
165
 
166
	}
167
 
168
 
169
	function createElement($pairs){
170
 
171
 
172
			 // Controle detournement utilisateur
173
			    session_start();
174
			 	$this->controleUtilisateur($pairs['identifiant']);
175
 
176
				if ($pairs['num_nom_sel']!='') {
177
 
178
 
179
 
180
				// Utilisation d'un nom faisant parti du referentiel : recherche du nom valide correspondant
181
 
182
 
183
					$complement=$this->rechercherInformationsComplementaires($pairs['num_nom_sel']);
184
 
185
 
186
			        $pairs['nom_ret']=$complement['Nom_Retenu'];
187
			        $pairs['num_nom_ret']=$complement['Num_Nom_Retenu'];
188
			        $pairs['num_taxon']=$complement['Num_Taxon'];
189
			        $pairs['famille']=$complement['Famille'];
190
 
191
				}
192
 
193
 
194
 
195
				// Dernier numero d'ordre utilise :
196
 
197
                $DB=$this->connectDB($this->config,'database_cel');
198
	           	$query="SELECT max(ordre) AS ordre FROM cel_inventory WHERE identifiant='".$DB->escapeSimple($pairs['identifiant'])."' ";
199
 
200
			    $res =& $DB->query($query);
201
                if (DB::isError($res)) {
202
	    	        die($res->getMessage());
203
    	    	}
204
    	    	$row['ordre']=0;
205
	    	    while ($row =& $res->fetchrow(DB_FETCHMODE_ASSOC)) {
206
            	    $pairs['ordre']=$row['ordre']+1;
207
    	    	}
208
 
209
                // Nullifiage ...
210
 
211
				foreach($pairs as $k=>$v) {
212
					if (trim($v)=="") {
213
						$pairs[$k]="null";
214
					}
215
 
216
				}
217
 
218
				// Pour apparaitre le premier dans les tris ...
219
                if ($pairs['location']=="null") $pairs['location']="000null";
220
 
221
 
222
				// Pour apparaitre le premier dans les tris ...
223
                if ($pairs['lieudit']=="null") $pairs['lieudit']="000null";
224
 
225
 
226
				// Pour apparaitre le premier dans les tris ...
227
                if ($pairs['id_location']=="null") $pairs['id_location']="000null";
228
 
229
 
230
				// Pour apparaitre le premier dans les tris ...
231
                if ($pairs['station']=="null") $pairs['station']="000null";
232
 
233
 
234
				// Pour apparaitre le premier dans les tris ...
235
                if ($pairs['milieu']=="null") $pairs['milieu']="000null";
236
 
237
 
238
                // TODO : decouper avec les /
239
 
240
                if ($pairs['date_observation']!="null") {
241
 
242
                	list($jour,$mois,$annee)=split("/",$pairs['date_observation']);
243
                	$pairs['date_observation']=$annee."-".$mois."-".$jour." 0:0:0";
244
 
245
                }
246
 
247
                if ($pairs['coord_x']=="null") {
248
					$pairs['coord_x'] = "000null";
249
                }
250
 
251
                if ($pairs['coord_y']=="null") {
252
					$pairs['coord_y'] = "000null";
253
                }
254
 
255
                $query  = "INSERT INTO cel_inventory (identifiant,ordre,nom_sel,num_nom_sel,nom_ret,num_nom_ret,num_taxon,famille,location,id_location,date_observation,lieudit,station, milieu, commentaire, date_creation,date_modification,coord_x,coord_y) " .
256
                " VALUES('".$DB->escapeSimple($pairs['identifiant'])."','".
257
                $DB->escapeSimple($pairs['ordre'])."','".
258
                $DB->escapeSimple($pairs['nom_sel'])."','".
259
                $DB->escapeSimple($pairs['num_nom_sel'])."','".
260
                $DB->escapeSimple($pairs['nom_ret'])."','".
261
                $DB->escapeSimple($pairs['num_nom_ret'])."','".
262
                $DB->escapeSimple($pairs['num_taxon'])."','".
263
                $DB->escapeSimple($pairs['famille'])."','".
264
                $DB->escapeSimple($pairs['location'])."','".
265
                $DB->escapeSimple($pairs['id_location'])."','".
266
                $DB->escapeSimple($pairs['date_observation'])."','".
267
                $DB->escapeSimple($pairs['lieudit'])."','".
268
                $DB->escapeSimple($pairs['station'])."','".
269
                $DB->escapeSimple($pairs['milieu'])."','".
270
                $DB->escapeSimple($pairs['commentaire'])."',".
271
                "now() , now(),'".
272
				$DB->escapeSimple($pairs['coord_x'])."','".
273
				$DB->escapeSimple($pairs['coord_y'])."')";
274
		    	$res =& $DB->query($query);
275
 
276
                if (PEAR::isError($res)) {
277
                	$this->logger("CEL_bugs","Erreur de creation d'une observation :".$res->getMessage()." ".$query);
278
                	return false;
279
                	//die($res->getMessage());
280
                }
281
 
282
                return	true;
283
 
284
	}
285
 
286
 
287
	function deleteElement($uid){
288
 
289
	 // Controle detournement utilisateur
290
	    session_start();
291
     $this->controleUtilisateur($uid[0]);
292
 
293
		$value=array();
294
		$DB=$this->connectDB($this->config,'database_cel');
295
 
296
		if (isset($uid[1])) {
297
	           	$query="DELETE FROM cel_inventory WHERE identifiant='".$DB->escapeSimple($uid[0])."' AND ordre in (".$DB->escapeSimple($uid[1]) .")";
298
		}
299
 
300
    	$res =& $DB->query($query);
301
 
302
        if (PEAR::isError($res)) {
303
        	$this->logger("CEL_bugs","Erreur de suppression d'une observation :".$res->getMessage()." ".$query);
304
        	return false;
305
        }
306
        else {
307
        	echo "OK" ;
308
        	exit() ;
309
        }
310
 
311
        return true;
312
 
313
 
314
	}
315
 
316
 
317
	function rechercherInformationsComplementaires($numNom) {
318
 
319
		$DB=$this->connectDB($this->config);
320
 
321
		$query = "SELECT DISTINCT en_nom_genre, en_epithete_espece, en_nom_supra_generique, en_epithete_infra_generique,".
322
			     	       			"   auteur_bex.enaia_intitule_abrege AS abreviation_auteur_basio_ex ".
323
        	       			" , auteur_b.enaia_intitule_abrege AS abreviation_auteur_basio ".
324
        	       			" , auteur_mex.enaia_intitule_abrege AS abreviation_auteur_modif_ex ".
325
        	       			" , auteur_m.enaia_intitule_abrege AS abreviation_auteur_modif ".
326
			     " , en_epithete_espece, en_epithete_infra_specifique, enrg_abreviation_rang, b.esn_id_taxon, b.esn_id_nom" .
327
			     " FROM eflore_nom, eflore_nom_rang," .
328
			       			"  	  eflore_naturaliste_intitule_abreviation AS auteur_bex ".
329
        	       			"   , eflore_naturaliste_intitule_abreviation AS auteur_b ".
330
        	       			"   , eflore_naturaliste_intitule_abreviation AS auteur_mex ".
331
        	       			"   , eflore_naturaliste_intitule_abreviation AS auteur_m ".
332
			     " ,eflore_selection_nom a, eflore_selection_nom b".
333
			     " WHERE a.esn_id_nom= ".$numNom.
334
			     " AND a.esn_id_version_projet_taxon = 25 ".
335
			     " AND a.esn_id_taxon=b.esn_id_taxon ".
336
			     " AND b.esn_ce_statut=3 ".
337
			     " AND a.esn_id_version_projet_taxon=b.esn_id_version_projet_taxon" .
338
			     " AND en_ce_rang = enrg_id_rang" .
339
			     " AND en_id_nom = b.esn_id_nom" .
340
			     " AND en_ce_auteur_basio_ex = auteur_bex.enaia_id_intitule_naturaliste_abrege ".
341
       			 " AND en_ce_auteur_basio = auteur_b.enaia_id_intitule_naturaliste_abrege  ".
342
       			 " AND en_ce_auteur_modif_ex = auteur_mex.enaia_id_intitule_naturaliste_abrege ".
343
        	     " AND en_ce_auteur_modif = auteur_m.enaia_id_intitule_naturaliste_abrege ".
344
			     " AND a.esn_id_version_projet_taxon=en_id_version_projet_nom ";
345
 
346
 
347
	   $res =& $DB->query($query);
348
 
349
 
350
        if (DB::isError($res)) {
351
	        die($res->getMessage());
352
    	}
353
 
354
    		// Nom retenu, Num Nomen nom retenu, Num Taxon,
355
										// Famille
356
 
357
		$value=array('Nom_Retenu'=>"",'Num_Nom_Retenu'=>"0",'Num_Taxon'=>"0",'Famille'=>"");
358
 
359
	        while ($row =& $res->fetchrow(DB_FETCHMODE_ASSOC)) {
360
	        	$fam=$this->rechercherFamille($row['esn_id_taxon'],$DB);
361
        	while (($fam['en_ce_rang']!='fin') && ($fam['en_ce_rang'] !=120)) {
362
	        	$fam=$this->rechercherFamille($fam['etr_id_taxon_2'],$DB);
363
        	}
364
        	if ($fam['en_ce_rang']==120) {
365
        		$famille=$fam['en_nom_supra_generique'];
366
        	}
367
        	else {
368
        		$famille="Famille inconnue";
369
        	}
370
        	$value=array('Nom_Retenu'=>$this->formaterNom($row),'Num_Nom_Retenu'=>$row['esn_id_nom'],'Num_Taxon'=>$row['esn_id_taxon'],'Famille'=>$famille);
371
 
372
 
373
	    }
374
 
375
	    return $value;
376
 
377
 
378
 
379
	}
380
 
381
 
382
function formaterNom($rawnom) {
383
 
384
 
385
                // Constitution du nom:
386
                $nom = '';
387
 
388
                if ($rawnom['en_nom_supra_generique'] != '') {
389
                    $nom .= $rawnom['en_nom_supra_generique'];
390
                } else if ($rawnom['en_epithete_infra_generique'] != '') {
391
                    $nom .= $rawnom['en_epithete_infra_generique'];
392
                } else {
393
                        if ($rawnom['en_nom_genre'] != '') {
394
                            $nom .=  $rawnom['en_nom_genre'];
395
                        }
396
                        if ($rawnom['en_epithete_espece']!= '') {
397
                            $nom .= ' '.$rawnom['en_epithete_espece'];
398
                        }
399
                        if ($rawnom['en_epithete_infra_specifique'] != '') {
400
                                if (!empty($rawnom['enrg_abreviation_rang'])) {
401
                                        $nom .= ' '.$rawnom['enrg_abreviation_rang'].'';
402
                                }
403
                                $nom .= ' '.$rawnom['en_epithete_infra_specifique'];
404
                        }
405
 
406
                }
407
 
408
                return $nom .$this->retournerAuteur($rawnom) ;
409
 
410
 }
411
 
412
 
413
function rechercherFamille($taxon,&$DB) {
414
 
415
	$row=array();
416
 
417
	$query="SELECT DISTINCT en_ce_rang, etr_id_taxon_2, en_id_nom, en_nom_supra_generique ".
418
	" FROM eflore_taxon_relation, eflore_selection_nom, eflore_nom ".
419
	" WHERE etr_id_taxon_1 = ".$taxon.
420
	" AND etr_id_version_projet_taxon_1 = 25 ".
421
	" AND etr_id_categorie_taxon = 3 ".
422
	" AND etr_id_valeur_taxon = 3 ".
423
	" AND esn_id_taxon =  etr_id_taxon_2 ".
424
	" AND esn_ce_statut = 3 ".
425
	" AND esn_id_version_projet_taxon = etr_id_version_projet_taxon_1 ".
426
	" AND en_id_nom = esn_id_nom ".
427
	" AND esn_id_version_projet_taxon=en_id_version_projet_nom  ";
428
	$res =& $DB->query($query);
429
 
430
	if (DB::isError($res)) {
431
         die($res->getMessage());
432
   	}
433
 
434
	if ($row =& $res->fetchrow(DB_FETCHMODE_ASSOC)) {
435
		return $row;
436
    }
437
    else {
438
    	$row['en_ce_rang']='fin';
439
    	return $row;
440
    }
441
 
442
}
443
 
444
 
445
 
446
function retournerAuteur($rawnom) {
447
		$auteurs = '';
448
		$auteur_basio = '';
449
		$auteur_modif = '';
450
		if (!empty($rawnom['abreviation_auteur_basio_ex']) && $rawnom['abreviation_auteur_basio_ex']!='-' )  {
451
		    $auteur_basio .= $rawnom['abreviation_auteur_basio_ex'];
452
		    if (!empty($rawnom['abreviation_auteur_basio']) && $rawnom['abreviation_auteur_basio']!='-') {
453
		        $auteur_basio .= ' ex '.$rawnom['abreviation_auteur_basio'];
454
		    }
455
		} else if (!empty($rawnom['abreviation_auteur_basio']) && $rawnom['abreviation_auteur_basio']!='-') {
456
		    $auteur_basio .= $rawnom['abreviation_auteur_basio'];
457
		}
458
 
459
		if (!empty($rawnom['abreviation_auteur_modif_ex']) && $rawnom['abreviation_auteur_modif_ex']!='-') {
460
		    $auteur_modif .= $rawnom['abreviation_auteur_modif_ex'];
461
		    if (!empty($rawnom['abreviation_auteur_modif']) && $rawnom['abreviation_auteur_modif']!='-') {
462
		        $auteur_modif .= ' ex '.$rawnom['abreviation_auteur_modif'];
463
		    }
464
		} else if (!empty($rawnom['abreviation_auteur_modif']) && $rawnom['abreviation_auteur_modif']!='-')  {
465
		    $auteur_modif .= $rawnom['abreviation_auteur_modif'];
466
		}
467
 
468
		if (!empty($auteur_modif)) {
469
		    $auteurs = ' ('.$auteur_basio.') '.$auteur_modif;
470
		} elseif (!empty($auteur_basio)) {
471
		    $auteurs = ' '.$auteur_basio;
472
		}
473
 
474
		return $auteurs ;
475
	}
476
 
477
 
478
 
479
}
480
 
481
/* +--Fin du code ---------------------------------------------------------------------------------------+
482
* $Log$
483
* Revision 1.11  2008-11-13 11:29:12  ddelon
484
* Reecriture gwt-ext
485
*
486
* Revision 1.10  2008-01-30 08:57:28  ddelon
487
* fin mise en place mygwt
488
*
489
* Revision 1.9  2007-05-22 12:54:09  ddelon
490
* Securisation acces utilisateur
491
*
492
*
493
*
494
*/
495
 
496
?>