Subversion Repositories eFlore/Applications.cel

Rev

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