Subversion Repositories eFlore/Applications.cel

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
417 aurelien 1
<?php
2
 
3
// In : utf8
4
// Out : utf8
5
 
483 david 6
 
7
// TODO : traiter image multilignes
540 david 8
// TODO : doublons
483 david 9
 
480 david 10
/*
417 aurelien 11
 
480 david 12
Octobre 2010 David Delon.
13
Import d'observations dans le carnet en ligne à partir d'un fichier excel chargé par l'utilisateur
14
et liaison d'images déjà chargee aux observations ainsi crées.
417 aurelien 15
 
480 david 16
Nom des colonnes imposé, mais présence de toutes les colonnes non obligatoires, ordre non imposé
17
Aucune valeur dans les colonnes n'est obligatoire
18
Pour une ligne donnée, si tous les champs vides on ne fait rien, ou si seul le champ image est présent.
19
Si la seule différence entre deux lignes est la valeur de la colonne image, on considère que c'est la même observation à laquelle on associe plusieurs images.
20
Si au moins deux lignes (ou plus) sont complètement identiques on prend en compte une seule ligne (les doublons sont éliminés).
445 david 21
 
480 david 22
*/
445 david 23
 
480 david 24
 
25
// Nom des colonnes
26
 
445 david 27
define('COMMUNE','commune'); // soit un nom de commune, soit un code INSEE (5 chiffres), ou "nom de commune (numero departement)"
28
define('LIEUDIT','lieu-dit'); // Texte libre
29
define('STATION','station'); // Texte libre
30
define('MILIEU','milieu'); // Texte libre
31
define('LATITUDE','latitude'); // En decimal systeme WGS84
32
define('LONGITUDE','longitude'); // En decimal systeme WGS84
33
define('NOTES','notes'); // Texte libre
34
define('DATEOBS','date'); // date au format jj/mm/aaaa
35
define('ESPECE','espece'); // texte libre, nom latin, ou code nomenclatural (format BDNFFnn999999)
36
define('IMAGE','image'); //  nom des fichiers images préalablement uploadés sur le CEL séparés par des "/"
540 david 37
define('DEPARTEMENT','departement'); //  Texte libre
445 david 38
 
540 david 39
 
480 david 40
// Resultat de l'analyse d'une ligne
445 david 41
define('LIGNE_VIDE',1); //
42
define('LIGNE_NORMALE',2); //
43
define('LIGNE_IMAGE_SEULEMENT',3); //
44
 
540 david 45
// Parser de Nom
46
include('NameParser.php');
445 david 47
 
417 aurelien 48
Class InventoryImportExcel extends DBAccessor  {
49
 
445 david 50
// Element constituant une observation
417 aurelien 51
 
540 david 52
	var $format_observation=array(COMMUNE ,LIEUDIT ,STATION , DEPARTEMENT, MILIEU ,LATITUDE ,LONGITUDE ,NOTES ,DATEOBS ,ESPECE ,IMAGE );
480 david 53
 
54
// Fichier configuration
417 aurelien 55
	var $config;
480 david 56
 
57
// Encapsulation classe lecture fichier excel
417 aurelien 58
	var $extendExcelReader;
59
 
540 david 60
// Dernier numero d'ordre utilise
61
	var $dernier_ordre=1;
62
 
480 david 63
/**
64
 Constructeur
65
**/
417 aurelien 66
	function InventoryImportExcel($config) {
67
 
68
		$this->config=$config;
69
		// Pas d'heritage multiple en php :(
70
 
71
		$this->extendExcelReader = new ExcelReader();
72
		$this->extendExcelReader->initExcelReader();
540 david 73
 
74
/* Recherche dernier numero d'ordre utilise : pas de mise a jour concurente a priori */
75
 
76
 
417 aurelien 77
	}
78
 
480 david 79
/**
80
 Sur post
81
**/
445 david 82
	function createElement($pairs) {
417 aurelien 83
 
84
 
480 david 85
		$pairs['utilisateur']=$_POST['identifiant'];
417 aurelien 86
 
540 david 87
        session_start();
88
        $this->controleUtilisateur($pairs['utilisateur']);
480 david 89
 
417 aurelien 90
 
540 david 91
        foreach($_FILES as $file) { // C'est le plus simple
92
            $infos_fichier = $file ;
93
        }
417 aurelien 94
 
480 david 95
 
96
// Chargement tableau en memoire
445 david 97
 
98
		$data = new Spreadsheet_Excel_Reader($infos_fichier['tmp_name'], false); // false : pour menager la memoire.
480 david 99
		$arr = array();
445 david 100
 
101
		$rowcount=$data->rowcount(0);
102
		$colcount=$data->colcount(0);
103
 
104
		if ($rowcount<=1) { // TODO : retour erreur
105
			print "Tableau vide";
106
			exit;
107
		}
108
 
540 david 109
// Chargement tableau
110
        for($row=1;$row<=$rowcount;$row++)
111
            for($col=1;$col<=$colcount;$col++)
112
                $arr[$col][$row] = $data->val($row,$col,0); // Attention, inversion voulue
445 david 113
 
540 david 114
 
417 aurelien 115
 
540 david 116
// 1 : Traitement intitules
417 aurelien 117
 
445 david 118
		$line = array();
417 aurelien 119
 
445 david 120
/* Les colonnes ne sont pas forcemment dans l'ordre  : on les extrait pour traitement futur  */
121
 
540 david 122
        for($col=1;$col<=$colcount;$col++) {
123
            $colonne=strtolower($arr[$col][1]);
124
            $colonne=trim($colonne);
125
            $colonne=cp1252_to_utf8($colonne);
126
            $colonne=remove_accent($colonne);
127
            switch ($colonne) {  // On ne garde que les colonnes que l'on souhaite traiter
128
                case COMMUNE:
129
                case LIEUDIT:
130
                case STATION:
131
                case MILIEU:
132
                case DEPARTEMENT:
133
                case LATITUDE:
134
                case LONGITUDE:
135
                case NOTES:
136
                case DATEOBS:
137
                case ESPECE:
138
                case IMAGE:
139
                    $selection=array_values($arr[$col]);
140
                    array_shift($selection); // On ne garde pas la premiere ligne, qui contient les intitules
141
                    $line[$colonne]=$selection;
142
                    break;
445 david 143
 
540 david 144
            }
145
        }
445 david 146
 
147
 
540 david 148
//	print_r($line[COMMUNE]);
149
//		print_r($line[LIEUDIT]);
150
//		print_r($line[STATION]);
151
//		print_r($line[MILIEU]);
152
//		print_r($line[DEPARTEMENT]);
153
//		print_r($line[LATITUDE]);
154
//		print_r($line[LONGITUDE]);
155
//		print_r($line[NOTES]);
156
//		print_r($line[DATEOBS]);
157
//		print_r($line[ESPECE]);
158
//		print_r($line[IMAGE]);
159
 
160
 
445 david 161
// 1 : Traitement lignes
162
 
483 david 163
		$cpt_obs=0;
540 david 164
 
165
 
166
        /* Recherche dernier numero d'ordre utilise : pas de mise a jour concurente a priori */
167
 
168
 
169
        $DB=$this->connectDB($this->config,'database_cel');
170
        $query="SELECT MAX(ordre) AS ordre FROM cel_inventory WHERE identifiant='".$DB->escapeSimple($pairs['utilisateur'])."' ";
171
 
172
        $res =& $DB->query($query);
173
        if (DB::isError($res)) {
174
            die($res->getMessage());
175
        }
176
 
177
        while ($row =& $res->fetchrow(DB_FETCHMODE_ASSOC)) {
178
            $this->dernier_ordre=$row['ordre']; // 1  par defaut
179
        }
180
 
480 david 181
		for ($i=0;$i<=$rowcount-1;$i++) {
540 david 182
			// On saute les eventuelles lignes vides du debut et les lignes contenant des information sur image uniquement
480 david 183
			while ((in_array($retour_analyse=$this->analyserLigne($line,$i),array(LIGNE_IMAGE_SEULEMENT, LIGNE_VIDE))) && ($i<=$rowcount)) {
184
				if  ($retour_analyse==LIGNE_IMAGE_SEULEMENT) {
185
	//				print "image non rattachee a une observation";
186
				}
187
				else {
188
	//				print "vide";
189
				}
445 david 190
				$i++;
191
			}
480 david 192
			while (($this->analyserLigne($line,$i)==LIGNE_NORMALE) && ($i<=$rowcount)) {
540 david 193
				$ordre=$this->traiterLigne($line,$i,$pairs['utilisateur'],$DB);
483 david 194
				if ($ordre>0) {
195
					$cpt_obs++; // Compteur d'observations crees
196
				}
445 david 197
				$i++;
480 david 198
				// On saute les lignes vide ou on traite les lignes suivantes contenant des informations sur image seulement
199
				while ((in_array($retour_analyse=$this->analyserLigne($line,$i),array(LIGNE_IMAGE_SEULEMENT, LIGNE_VIDE))) && ($i<=$rowcount)) {
445 david 200
					if  ($retour_analyse==LIGNE_IMAGE_SEULEMENT) {
480 david 201
						$this->traiterLigneComplement($line,$i,$pairs['utilisateur'],$ordre); // images supplementaires
445 david 202
					}
203
					else {
480 david 204
	//					print "vide";
445 david 205
					}
206
					$i++;
207
				}
208
			}
209
 
210
 
211
		}
540 david 212
		//print $cpt_obs ." nouvelle(s) observation(s) !";
213
		print $cpt_obs ;
445 david 214
 
417 aurelien 215
	}
216
 
445 david 217
function analyserLigne($line,$i) {
218
	$ligne_vide=true;
219
	$ligne_image_seulement=true;
220
	$ligne_normale=true;
221
	foreach ($this->format_observation as $colonne) {
222
		if (isset ($line[$colonne][$i]) && $line[$colonne][$i]!='') {
223
			if ($colonne!=IMAGE) {
224
				$ligne_image_seulement=false;
225
				$ligne_vide=false;
226
				break;
227
			}
228
			$ligne_vide=false;
229
		}
230
	}
231
	if ($ligne_vide) {
232
		return LIGNE_VIDE;
233
	}
234
	else {
235
		if ($ligne_image_seulement) {
236
			return LIGNE_IMAGE_SEULEMENT;
237
		}
238
		else {
239
			return LIGNE_NORMALE;
240
		}
241
	}
242
 
417 aurelien 243
 
445 david 244
}
417 aurelien 245
 
540 david 246
function traiterLigne($line,$i,$utilisateur,$DB) { // Controle donnee et insertion
480 david 247
	$info_image=array();
445 david 248
	foreach ($this->format_observation as $colonne) {
249
		if (isset ($line[$colonne][$i]) && $line[$colonne][$i]!='') {
250
			switch ($colonne) {  // On ne garde que les colonnes que l'on souhaite traiter
251
				case COMMUNE:
252
					$info_commune=$this->traiterCommune($line[COMMUNE][$i]);
253
					break;
254
				case LIEUDIT:
480 david 255
					$info_lieudit=$this->traiterLieudit($line[LIEUDIT][$i]);
445 david 256
					break;
257
				case STATION:
480 david 258
					$info_station=$this->traiterStation($line[STATION][$i]);
445 david 259
					break;
260
				case MILIEU:
480 david 261
					$info_milieu=$this->traiterMilieu($line[MILIEU][$i]);
445 david 262
					break;
540 david 263
                case DEPARTEMENT:
264
					$info_commune['code']=$this->traiterDepartement($line[DEPARTEMENT][$i]);
265
					break;
445 david 266
				case LATITUDE:
480 david 267
					$info_latitude=$this->traiterLatitude($line[LATITUDE][$i]);
445 david 268
					break;
269
				case LONGITUDE:
480 david 270
					$info_longitude=$this->traiterLongitude($line[LONGITUDE][$i]);
445 david 271
					break;
272
				case NOTES:
480 david 273
					$info_notes=$this->traiterNotes($line[NOTES][$i]);
445 david 274
					break;
275
				case DATEOBS:
480 david 276
					$info_dateobs=$this->traiterDateObs($line[DATEOBS][$i]);
445 david 277
					break;
278
				case ESPECE:
480 david 279
					$info_espece=$this->traiterEspece($line[ESPECE][$i]);
540 david 280
                    if (isset($info_espece['en_id_nom']) && $info_espece['en_id_nom']!='') {
281
                        $complement=$this->rechercherInformationsComplementaires($info_espece['en_id_nom']);
282
                        $info_espece['nom_ret']=$complement['Nom_Retenu'];
283
                        $info_espece['num_nom_ret']=$complement['Num_Nom_Retenu'];
284
                        $info_espece['num_taxon']=$complement['Num_Taxon'];
285
                        $info_espece['famille']=$complement['Famille'];
286
                    }
287
                    break;
445 david 288
				case IMAGE:
480 david 289
					$info_image=$this->traiterImage($line[IMAGE][$i],$utilisateur); // Image separee par des / +  utilisateur
445 david 290
					break;
291
			}
292
		}
480 david 293
		else {
294
		 	switch($colonne) {
295
				case COMMUNE:
296
					$info_commune['name']="000null";
297
					$info_commune['code']="000null";
298
					break;
299
				case LIEUDIT:
300
					$info_lieudit="000null";
301
					break;
302
				case STATION:
303
					$info_station="000null";
304
					break;
305
				case MILIEU:
306
					$info_milieu="000null";
307
					break;
540 david 308
				case DEPARTEMENT:
309
					$info_commune['code']="000null";
310
					break;
480 david 311
				case LATITUDE:
312
					$info_latitude="000null";
313
					break;
314
				case LONGITUDE:
315
					$info_longitude="000null";
316
					break;
317
 
318
			}
319
 
320
		}
445 david 321
	}
322
 
540 david 323
                $this->dernier_ordre++;
480 david 324
 
325
                list($jour,$mois,$annee)=split("/",$info_dateobs);
326
                $info_dateobs=$annee."-".$mois."-".$jour." 0:0:0";
327
 
540 david 328
                $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) " .
329
                    " VALUES('".$DB->escapeSimple($utilisateur)."','".
330
                    $DB->escapeSimple($this->dernier_ordre)."','".
331
                    $DB->escapeSimple($info_espece['nom_sel'])."','".
332
                    $DB->escapeSimple($info_espece['en_id_nom'])."','".
333
                    $DB->escapeSimple($info_espece['nom_ret'])."','".
334
                    $DB->escapeSimple($info_espece['num_nom_ret'])."','".
335
                    $DB->escapeSimple($info_espece['num_taxon'])."','".
336
                    $DB->escapeSimple($info_espece['famille'])."','".
337
                    $DB->escapeSimple($info_commune['name'])."','".
338
                    $DB->escapeSimple($info_commune['code'])."','".
339
                    $DB->escapeSimple($info_dateobs)."','".
340
                    $DB->escapeSimple($info_lieudit)."','".
341
                    $DB->escapeSimple($info_station)."','".
342
                    $DB->escapeSimple($info_milieu)."','".
343
                    $DB->escapeSimple($info_notes)."',".
344
                    "now() , now(),'".
345
                    $DB->escapeSimple($info_latitude)."','".
346
                    $DB->escapeSimple($info_longitude)."')";
480 david 347
//		print "\n";
348
 
349
 
350
		   $res =& $DB->query($query);
351
 
352
                if (PEAR::isError($res)) {
353
                        return false;
354
                }
355
 
356
 
357
	// creation lien image
358
	foreach ($info_image as $pic) {
359
 
360
		$query = 'INSERT INTO cel_obs_images (coi_ce_image, coi_ce_utilisateur, coi_ce_observation) VALUES ("'.$DB->escapeSimple($pic['ci_id_image']).'","'.$DB->escapeSimple($utilisateur).'",    "'.$DB->escapeSimple($ordre).'") ON DUPLICATE KEY UPDATE coi_ce_image = coi_ce_image' ;
361
 
362
//print $query;
363
 
364
		$res =& $DB->query($query);
365
 
366
                if (PEAR::isError($res)) {
367
                        return false;
368
                }
369
 
370
 
371
	}
372
 
373
 
374
 
540 david 375
		return $this->dernier_ordre;
480 david 376
 
377
 
417 aurelien 378
}
379
 
480 david 380
function traiterLigneComplement($line,$i,$utilisateur) {
417 aurelien 381
 
480 david 382
// TODO
383
 
445 david 384
}
385
function traiterCommune($identifiant_commune) {  // Recherche correspondance sur nom, si pas unique, correspondance dep. sinon code insee
386
 
387
 
540 david 388
        $identifiant_commune=trim($identifiant_commune);
445 david 389
 
390
        $identifiant_commune=utf8_encode($identifiant_commune); // FIXME : devrait deja etre en utf8 a ce niveau
391
 
540 david 392
	preg_match('/(.*) \(([0-9][0-9]*)\)/',$identifiant_commune,$elements);
445 david 393
 
394
        $DB=$this->connectDB($this->config,'database_cel'); // FIXME regarder si opportun ici
395
 
540 david 396
	if ($elements[1]) { // commune + departement : montpellier (34)
445 david 397
		$nom_commune=$elements[1];
398
		$code_commune=$elements[2];
399
 
480 david 400
 	        $query="SELECT DISTINCT name, code  FROM locations WHERE name = '".$DB->escapeSimple($nom_commune)."' AND code ='".$DB->escapeSimple($code_commune)."'";
445 david 401
 
402
	}
540 david 403
	else { // Code insee seul
404
        preg_match('/([0-9][0-9]*)|(2A[0-9][0-9]*)|(2B[0-9][0-9]*)/',$identifiant_commune,$elements);
405
        if ($elements[1]) { // code insee  commune
406
            $code_insee_commune=$elements[1];
407
            $query="SELECT DISTINCT name, code  FROM locations WHERE insee_code ='".$DB->escapeSimple($code_insee_commune)."'";
408
        }
409
        else { // Commune seule (le departement sera recupere dans la colonne departement si elle est presente, on prend le risque ici de retourner une mauvaise
410
               // Commune
411
            preg_match('/(.*)/',$identifiant_commune,$elements);
412
            if ($elements[1]) { // commune
413
                $nom_commune=$elements[1];
414
                $query="SELECT DISTINCT name, code  FROM locations WHERE name = '".$DB->escapeSimple($nom_commune)."'";
415
            }
416
        }
445 david 417
	}
418
 
419
 
420
	$res =& $DB->query($query);
421
 
422
        if (DB::isError($res)) {
423
		 die($res->getMessage());
424
	}
425
 
426
	return $res->fetchrow(DB_FETCHMODE_ASSOC);
427
 
428
 
429
 
430
 
431
}
432
 
433
function traiterLieudit($lieudit) { // texte libre
434
 
480 david 435
	//echo "traitement lieudit";
436
 
540 david 437
	return utf8_encode(trim($lieudit));
445 david 438
}
439
 
440
function traiterStation($station) { // texte libre
480 david 441
//	echo "traitement station";
540 david 442
	return utf8_encode(trim($station));
445 david 443
}
444
 
445
function traiterMilieu($milieu) { // texte libre
480 david 446
//	echo "traitement milieu";
540 david 447
	return utf8_encode(trim($milieu));
445 david 448
}
449
 
540 david 450
function traiterDepartement($departement) { // texte libre
451
//	echo "traitement milieu";
452
	return utf8_encode(trim($departement));
453
}
454
 
445 david 455
function traiterLatitude($latitude) {	//  verifier formal decimal + limite france ? TODO
480 david 456
//	echo "traitement latitude";
540 david 457
	return trim($latitude);
445 david 458
}
459
 
460
function traiterLongitude($longitude) { // verifier format decimal + limite france ? TODO
480 david 461
//	echo "traitement longitude";
540 david 462
	return trim($longitude);
445 david 463
}
464
 
465
function traiterNotes($notes) { // texte libre
480 david 466
//	echo "traitement notes";
540 david 467
	return utf8_encode(trim($notes));
445 david 468
}
469
 
470
function traiterDateObs($dateobs) { // verifier jj/mm/aaaa sinon date vide TODO
480 david 471
//	echo "traitement dateobs";
540 david 472
	return trim($dateobs);
445 david 473
}
474
 
540 david 475
function traiterEspece($identifiant_espece) {  // texte libre, nom scientifique , ou code nomenclatural (format BDNFFnn999999) ou code taxonomique (format BDNFFnt999999)
449 david 476
 
480 david 477
//	echo "traitement  espece";
540 david 478
        $identifiant_espece=trim($identifiant_espece);
445 david 479
 
480
        $identifiant_espece=utf8_encode($identifiant_espece); // FIXME : devrait deja etre en utf8 a ce niveau
481
 
540 david 482
	    preg_match('/BDNFFnn([0-9][0-9]*)/',$identifiant_espece,$elements);
483
 
449 david 484
		if ($elements[1]) { // Numero nomenclatural
445 david 485
 
449 david 486
 
540 david 487
            // Recherche du nom associe
488
            $DB=$this->connectDB($this->config); // FIXME : gerer cache de connection
489
            $query = "SELECT DISTINCT en_nom_genre, en_epithete_espece, en_nom_supra_generique, en_epithete_infra_generique,".
490
                "   auteur_bex.enaia_intitule_abrege AS abreviation_auteur_basio_ex ".
491
                " , auteur_b.enaia_intitule_abrege AS abreviation_auteur_basio ".
492
                " , auteur_mex.enaia_intitule_abrege AS abreviation_auteur_modif_ex ".
493
                " , auteur_m.enaia_intitule_abrege AS abreviation_auteur_modif ".
494
                " , en_epithete_espece, en_epithete_infra_specifique, enrg_abreviation_rang, en_id_nom" .
495
                " FROM eflore_nom, eflore_nom_rang, eflore_selection_nom a,  " .
496
                " eflore_naturaliste_intitule_abreviation AS auteur_bex ".
497
                " , eflore_naturaliste_intitule_abreviation AS auteur_b ".
498
                " , eflore_naturaliste_intitule_abreviation AS auteur_mex ".
499
                " , eflore_naturaliste_intitule_abreviation AS auteur_m ".
500
                " WHERE a.esn_id_nom= '".$elements[1]. "'".
501
                " AND a.esn_id_version_projet_taxon = 25 ".
502
                " AND en_ce_rang = enrg_id_rang" .
503
                " AND en_id_nom = a.esn_id_nom" .
504
                " AND en_ce_auteur_basio_ex = auteur_bex.enaia_id_intitule_naturaliste_abrege ".
505
                " AND en_ce_auteur_basio = auteur_b.enaia_id_intitule_naturaliste_abrege  ".
506
                " AND en_ce_auteur_modif_ex = auteur_mex.enaia_id_intitule_naturaliste_abrege ".
507
                " AND en_ce_auteur_modif = auteur_m.enaia_id_intitule_naturaliste_abrege ".
508
                " AND a.esn_id_version_projet_taxon=en_id_version_projet_nom ";
480 david 509
 
540 david 510
            $res =& $DB->query($query);
480 david 511
 
512
 
540 david 513
            if (DB::isError($res)) {
514
                die($res->getMessage());
515
            }
480 david 516
 
540 david 517
            $row =& $res->fetchrow(DB_FETCHMODE_ASSOC);
518
            return array("nom_sel"=>$this->formaterNom($row),"en_id_nom"=>$elements[1]);
519
 
449 david 520
		}
521
 
540 david 522
		else { //  Numero taxonomique ou nom scientifique
523
	        preg_match('/BDNFFnt([0-9][0-9]*)/',$identifiant_espece,$elements);
449 david 524
 
540 david 525
		    if ($elements[1]) { // Numero taxonomique
526
 
527
                $DB=$this->connectDB($this->config);
449 david 528
 
540 david 529
                $query = "SELECT DISTINCT en_nom_genre, en_epithete_espece, en_nom_supra_generique, en_epithete_infra_generique,".
530
                    "   auteur_bex.enaia_intitule_abrege AS abreviation_auteur_basio_ex ".
531
                    " , auteur_b.enaia_intitule_abrege AS abreviation_auteur_basio ".
532
                    " , auteur_mex.enaia_intitule_abrege AS abreviation_auteur_modif_ex ".
533
                    " , auteur_m.enaia_intitule_abrege AS abreviation_auteur_modif ".
534
                    " , en_epithete_espece, en_epithete_infra_specifique, enrg_abreviation_rang, en_id_nom" .
535
                    " FROM eflore_nom, eflore_nom_rang," .
536
                    "     eflore_naturaliste_intitule_abreviation AS auteur_bex ".
537
                    "   , eflore_naturaliste_intitule_abreviation AS auteur_b ".
538
                    "   , eflore_naturaliste_intitule_abreviation AS auteur_mex ".
539
                    "   , eflore_naturaliste_intitule_abreviation AS auteur_m ".
540
                    " , eflore_selection_nom ".
541
                    " WHERE esn_id_taxon = '".$elements[1]. "'".
542
                    " AND esn_id_version_projet_taxon = 25 ".
543
                    " AND esn_ce_statut=3 ".
544
                    " AND en_id_nom = esn_id_nom" .
545
                    " AND en_ce_rang = enrg_id_rang" .
546
                    " AND en_ce_auteur_basio_ex = auteur_bex.enaia_id_intitule_naturaliste_abrege ".
547
                    " AND en_ce_auteur_basio = auteur_b.enaia_id_intitule_naturaliste_abrege  ".
548
                    " AND en_ce_auteur_modif_ex = auteur_mex.enaia_id_intitule_naturaliste_abrege ".
549
                    " AND en_ce_auteur_modif = auteur_m.enaia_id_intitule_naturaliste_abrege ".
550
                    " AND esn_id_version_projet_taxon=en_id_version_projet_nom ";
449 david 551
 
540 david 552
                $res =& $DB->query($query);
449 david 553
 
540 david 554
                if (DB::isError($res)) {
555
                    die($res->getMessage());
556
                }
449 david 557
 
540 david 558
                $row =& $res->fetchrow(DB_FETCHMODE_ASSOC);
559
                return array("nom_sel"=>$this->formaterNom($row),"en_id_nom"=>$row['en_id_nom']);
449 david 560
 
561
 
540 david 562
            }
480 david 563
 
540 david 564
            else { // Nom scientifique
565
                $nameparser=new NameParser();
566
                $nom_latin_decoupe=$nameparser->parse($identifiant_espece);
480 david 567
 
540 david 568
//print_r($nom_latin_decoupe);
569
                    $DB=$this->connectDB($this->config); // FIXME regarder si opportun ici
480 david 570
 
540 david 571
                        // requete sous espece (on privilegie les noms retenu cf tri par esn_ce_statut)
572
                        if (isset($nom_latin_decoupe['infra']) && $nom_latin_decoupe['infra']!="") {
573
                            $query="SELECT DISTINCT en_id_nom, esn_ce_statut" .
574
                                            " FROM eflore_nom, eflore_nom_rang, eflore_selection_nom " .
575
                                            " WHERE en_id_version_projet_nom = '25' AND en_nom_genre = '".$DB->escapeSimple($nom_latin_decoupe['genus'])."' " .
576
                                            " AND enrg_abreviation_rang = '".$DB->escapeSimple($nom_latin_decoupe['infra_type'])."' " .
577
                                            " AND en_epithete_infra_specifique = '".$DB->escapeSimple($nom_latin_decoupe['infra'])."' " .
578
                                            " AND esn_id_nom= en_id_nom ".
579
                                            " AND esn_id_version_projet_taxon=en_id_version_projet_nom " .
580
                                            " AND en_epithete_espece =  '".$DB->escapeSimple($nom_latin_decoupe['species'])."' AND en_ce_rang = enrg_id_rang " .
581
                                            " ORDER BY esn_ce_statut ".
582
                                            " LIMIT 1";
583
                        }
584
                        else { // espece  (on privilegie les noms retenu cf tri par esn_ce_statut)
585
                             $query="SELECT DISTINCT en_id_nom, esn_ce_statut" .
586
                                            " FROM eflore_nom, eflore_nom_rang, eflore_selection_nom " .
587
                                            " WHERE en_id_version_projet_nom = '25' AND en_nom_genre = '".$DB->escapeSimple($nom_latin_decoupe['genus'])."' " .
588
                                            " AND enrg_abreviation_rang = 'sp.' " .
589
                                            " AND esn_id_nom= en_id_nom ".
590
                                            " AND esn_id_version_projet_taxon=en_id_version_projet_nom " .
591
                                            " AND en_epithete_espece =  '".$DB->escapeSimple($nom_latin_decoupe['species'])."' AND en_ce_rang = enrg_id_rang " .
592
                                            " ORDER BY esn_ce_statut ".
593
                                            " LIMIT 1";
594
 
595
                        }
596
                $res =& $DB->query($query);
597
                if (DB::isError($res)) {
598
                     die($res->getMessage());
599
                }
480 david 600
 
540 david 601
                $id_nom=$res->fetchrow(DB_FETCHMODE_ASSOC);
480 david 602
 
540 david 603
                // Recherche du nom associe
604
                $DB=$this->connectDB($this->config); // FIXME : gerer cache de connection
605
                $query = "SELECT DISTINCT en_nom_genre, en_epithete_espece, en_nom_supra_generique, en_epithete_infra_generique,".
606
                    "   auteur_bex.enaia_intitule_abrege AS abreviation_auteur_basio_ex ".
607
                    " , auteur_b.enaia_intitule_abrege AS abreviation_auteur_basio ".
608
                    " , auteur_mex.enaia_intitule_abrege AS abreviation_auteur_modif_ex ".
609
                    " , auteur_m.enaia_intitule_abrege AS abreviation_auteur_modif ".
610
                    " , en_epithete_espece, en_epithete_infra_specifique, enrg_abreviation_rang, en_id_nom" .
611
                    " FROM eflore_nom, eflore_nom_rang, eflore_selection_nom a,  " .
612
                    "         eflore_naturaliste_intitule_abreviation AS auteur_bex ".
613
                    "   , eflore_naturaliste_intitule_abreviation AS auteur_b ".
614
                    "   , eflore_naturaliste_intitule_abreviation AS auteur_mex ".
615
                    "   , eflore_naturaliste_intitule_abreviation AS auteur_m ".
616
                    " WHERE a.esn_id_nom= '".$id_nom['en_id_nom']. "'".
617
                    " AND a.esn_id_version_projet_taxon = 25 ".
618
                    " AND en_ce_rang = enrg_id_rang" .
619
                    " AND en_id_nom = a.esn_id_nom" .
620
                    " AND en_ce_auteur_basio_ex = auteur_bex.enaia_id_intitule_naturaliste_abrege ".
621
                    " AND en_ce_auteur_basio = auteur_b.enaia_id_intitule_naturaliste_abrege  ".
622
                    " AND en_ce_auteur_modif_ex = auteur_mex.enaia_id_intitule_naturaliste_abrege ".
623
                    " AND en_ce_auteur_modif = auteur_m.enaia_id_intitule_naturaliste_abrege ".
624
                    " AND a.esn_id_version_projet_taxon=en_id_version_projet_nom ";
625
                $res =& $DB->query($query);
480 david 626
 
627
 
540 david 628
                if (DB::isError($res)) {
629
                    die($res->getMessage());
630
                }
445 david 631
 
540 david 632
                if ($res->numRows() > 0 ) {
633
                    $row =& $res->fetchrow(DB_FETCHMODE_ASSOC);
634
                    return array("nom_sel"=>$this->formaterNom($row),"en_id_nom"=>$id_nom['en_id_nom']);
635
                }
636
                else {
637
                    return array("nom_sel"=>$identifiant_espece);
638
                }
445 david 639
 
480 david 640
 
540 david 641
                }
642
            }
480 david 643
 
644
 
445 david 645
}
646
 
647
 
648
 
480 david 649
function traiterImage($images,$utilisateur) { // recherche id image de ce nom
650
 
651
	//echo "traitement  image";
652
        $DB=$this->connectDB($this->config,'cel_db');
653
 
654
	$liste_images = explode("/",$images) ;
655
 
656
	$row =array();
657
        foreach($liste_images as $image) {
658
 
659
		$query="SELECT * FROM cel_images WHERE ci_ce_utilisateur='".$DB->escapeSimple($utilisateur)."' AND ci_nom_original='".$DB->escapeSimple($image)."'";
660
 
661
	        $res  =& $DB->query($query);
662
		$row [] =& $res->fetchrow(DB_FETCHMODE_ASSOC);
663
 
664
	        if (DB::isError($res)) {
665
        	    die($res->getMessage());
666
	        }
667
 
668
	}
669
	return $row;
670
 
671
 
445 david 672
}
673
 
540 david 674
       function rechercherInformationsComplementaires($numNom) { // Num taxon, Num retenu ...
445 david 675
 
480 david 676
                $DB=$this->connectDB($this->config);
677
 
678
                $query = "SELECT DISTINCT en_nom_genre, en_epithete_espece, en_nom_supra_generique, en_epithete_infra_generique,".
540 david 679
                    "   auteur_bex.enaia_intitule_abrege AS abreviation_auteur_basio_ex ".
680
                    " , auteur_b.enaia_intitule_abrege AS abreviation_auteur_basio ".
681
                    " , auteur_mex.enaia_intitule_abrege AS abreviation_auteur_modif_ex ".
682
                    " , auteur_m.enaia_intitule_abrege AS abreviation_auteur_modif ".
683
                    " , en_epithete_espece, en_epithete_infra_specifique, enrg_abreviation_rang, b.esn_id_taxon, b.esn_id_nom" .
684
                    " FROM eflore_nom, eflore_nom_rang," .
685
                    "     eflore_naturaliste_intitule_abreviation AS auteur_bex ".
686
                    "   , eflore_naturaliste_intitule_abreviation AS auteur_b ".
687
                    "   , eflore_naturaliste_intitule_abreviation AS auteur_mex ".
688
                    "   , eflore_naturaliste_intitule_abreviation AS auteur_m ".
689
                    " ,eflore_selection_nom a, eflore_selection_nom b".
690
                    " WHERE a.esn_id_nom= ".$numNom.
691
                    " AND a.esn_id_version_projet_taxon = 25 ".
692
                    " AND a.esn_id_taxon=b.esn_id_taxon ".
693
                    " AND b.esn_ce_statut=3 ".
694
                    " AND a.esn_id_version_projet_taxon=b.esn_id_version_projet_taxon" .
695
                    " AND en_ce_rang = enrg_id_rang" .
696
                    " AND en_id_nom = b.esn_id_nom" .
697
                    " AND en_ce_auteur_basio_ex = auteur_bex.enaia_id_intitule_naturaliste_abrege ".
698
                    " AND en_ce_auteur_basio = auteur_b.enaia_id_intitule_naturaliste_abrege  ".
699
                    " AND en_ce_auteur_modif_ex = auteur_mex.enaia_id_intitule_naturaliste_abrege ".
700
                    " AND en_ce_auteur_modif = auteur_m.enaia_id_intitule_naturaliste_abrege ".
701
                    " AND a.esn_id_version_projet_taxon=en_id_version_projet_nom ";
480 david 702
 
703
 
540 david 704
                $res =& $DB->query($query);
480 david 705
 
706
 
707
 
540 david 708
                if (DB::isError($res)) {
709
                    die($res->getMessage());
710
                }
480 david 711
 
540 david 712
                // Nom retenu, Num Nomenclatural nom retenu, Num Taxon,
480 david 713
 
714
                $value=array('Nom_Retenu'=>"",'Num_Nom_Retenu'=>"0",'Num_Taxon'=>"0",'Famille'=>"");
715
 
716
                while ($row =& $res->fetchrow(DB_FETCHMODE_ASSOC)) {
540 david 717
                    $fam=$this->rechercherFamille($row['esn_id_taxon'],$DB);
718
 
719
                    // Recherche Famille
720
                    while (($fam['en_ce_rang']!='fin') && ($fam['en_ce_rang'] !=120)) {
480 david 721
                        $fam=$this->rechercherFamille($fam['etr_id_taxon_2'],$DB);
540 david 722
                    }
723
                    if ($fam['en_ce_rang']==120) {
480 david 724
                        $famille=$fam['en_nom_supra_generique'];
540 david 725
                    }
726
                    else {
480 david 727
                        $famille="Famille inconnue";
540 david 728
                    }
729
 
730
                    $value=array('Nom_Retenu'=>$this->formaterNom($row),'Num_Nom_Retenu'=>$row['esn_id_nom'],'Num_Taxon'=>$row['esn_id_taxon'],'Famille'=>$famille);
480 david 731
                }
732
 
540 david 733
                return $value;
480 david 734
 
735
 
736
 
737
        }
738
 
449 david 739
function formaterNom($rawnom) {
480 david 740
 
741
 
449 david 742
                // Constitution du nom:
743
                $nom = '';
445 david 744
 
449 david 745
                if ($rawnom['en_nom_supra_generique'] != '') {
746
                    $nom .= $rawnom['en_nom_supra_generique'];
747
                } else if ($rawnom['en_epithete_infra_generique'] != '') {
748
                    $nom .= $rawnom['en_epithete_infra_generique'];
749
                } else {
750
                        if ($rawnom['en_nom_genre'] != '') {
751
                            $nom .=  $rawnom['en_nom_genre'];
752
                        }
753
                        if ($rawnom['en_epithete_espece']!= '') {
754
                            $nom .= ' '.$rawnom['en_epithete_espece'];
755
                        }
756
                        if ($rawnom['en_epithete_infra_specifique'] != '') {
757
                                if (!empty($rawnom['enrg_abreviation_rang'])) {
758
                                        $nom .= ' '.$rawnom['enrg_abreviation_rang'].'';
759
                                }
760
                                $nom .= ' '.$rawnom['en_epithete_infra_specifique'];
761
                        }
762
 
763
                }
480 david 764
 
765
                return $nom .$this->retournerAuteur($rawnom) ;
766
 
767
 }
768
 
769
 
770
function rechercherFamille($taxon,&$DB) {
771
 
540 david 772
    $row=array();
480 david 773
 
540 david 774
    $query="SELECT DISTINCT en_ce_rang, etr_id_taxon_2, en_id_nom, en_nom_supra_generique ".
480 david 775
        " FROM eflore_taxon_relation, eflore_selection_nom, eflore_nom ".
776
        " WHERE etr_id_taxon_1 = ".$taxon.
777
        " AND etr_id_version_projet_taxon_1 = 25 ".
778
        " AND etr_id_categorie_taxon = 3 ".
779
        " AND etr_id_valeur_taxon = 3 ".
780
        " AND esn_id_taxon =  etr_id_taxon_2 ".
781
        " AND esn_ce_statut = 3 ".
782
        " AND esn_id_version_projet_taxon = etr_id_version_projet_taxon_1 ".
783
        " AND en_id_nom = esn_id_nom ".
784
        " AND esn_id_version_projet_taxon=en_id_version_projet_nom  ";
540 david 785
    $res =& $DB->query($query);
480 david 786
 
540 david 787
    if (DB::isError($res)) {
788
        die($res->getMessage());
789
    }
480 david 790
 
540 david 791
    if ($row =& $res->fetchrow(DB_FETCHMODE_ASSOC)) {
792
        return $row;
480 david 793
    }
794
    else {
795
        $row['en_ce_rang']='fin';
796
        return $row;
797
    }
798
 
445 david 799
}
800
 
480 david 801
 
449 david 802
function retournerAuteur($rawnom) {
445 david 803
 
540 david 804
    $auteurs = '';
805
    $auteur_basio = '';
806
    $auteur_modif = '';
807
    if (!empty($rawnom['abreviation_auteur_basio_ex']) && $rawnom['abreviation_auteur_basio_ex']!='-' )  {
808
        $auteur_basio .= $rawnom['abreviation_auteur_basio_ex'];
809
        if (!empty($rawnom['abreviation_auteur_basio']) && $rawnom['abreviation_auteur_basio']!='-') {
810
            $auteur_basio .= ' ex '.$rawnom['abreviation_auteur_basio'];
811
        }
812
    } else if (!empty($rawnom['abreviation_auteur_basio']) && $rawnom['abreviation_auteur_basio']!='-') {
813
        $auteur_basio .= $rawnom['abreviation_auteur_basio'];
814
    }
445 david 815
 
540 david 816
    if (!empty($rawnom['abreviation_auteur_modif_ex']) && $rawnom['abreviation_auteur_modif_ex']!='-') {
817
        $auteur_modif .= $rawnom['abreviation_auteur_modif_ex'];
818
        if (!empty($rawnom['abreviation_auteur_modif']) && $rawnom['abreviation_auteur_modif']!='-') {
819
            $auteur_modif .= ' ex '.$rawnom['abreviation_auteur_modif'];
820
        }
821
    } else if (!empty($rawnom['abreviation_auteur_modif']) && $rawnom['abreviation_auteur_modif']!='-')  {
822
        $auteur_modif .= $rawnom['abreviation_auteur_modif'];
823
    }
449 david 824
 
540 david 825
    if (!empty($auteur_modif)) {
826
        $auteurs = ' ('.$auteur_basio.') '.$auteur_modif;
827
    } elseif (!empty($auteur_basio)) {
828
        $auteurs = ' '.$auteur_basio;
829
    }
830
 
831
    return $auteurs ;
449 david 832
}
833
 
834
 
835
 
480 david 836
 
449 david 837
}
838
 
839
 
540 david 840
function remove_accent($str)
841
{
842
  $a = array('À', 'Á', 'Â', 'Ã', 'Ä', 'Å', 'Æ', 'Ç', 'È', 'É', 'Ê', 'Ë', 'Ì', 'Í', 'Î',
843
             'Ï', 'Ð', 'Ñ', 'Ò', 'Ó', 'Ô', 'Õ', 'Ö', 'Ø', 'Ù', 'Ú', 'Û', 'Ü', 'Ý', 'ß',
844
             'à', 'á', 'â', 'ã', 'ä', 'å', 'æ', 'ç', 'è', 'é', 'ê', 'ë', 'ì', 'í', 'î',
845
             'ï', 'ñ', 'ò', 'ó', 'ô', 'õ', 'ö', 'ø', 'ù', 'ú', 'û', 'ü', 'ý', 'ÿ', 'Ā',
846
             'ā', 'Ă', 'ă', 'Ą', 'ą', 'Ć', 'ć', 'Ĉ', 'ĉ', 'Ċ', 'ċ', 'Č', 'č', 'Ď', 'ď',
847
             'Đ', 'đ', 'Ē', 'ē', 'Ĕ', 'ĕ', 'Ė', 'ė', 'Ę', 'ę', 'Ě', 'ě', 'Ĝ', 'ĝ', 'Ğ',
848
             'ğ', 'Ġ', 'ġ', 'Ģ', 'ģ', 'Ĥ', 'ĥ', 'Ħ', 'ħ', 'Ĩ', 'ĩ', 'Ī', 'ī', 'Ĭ', 'ĭ',
849
             'Į', 'į', 'İ', 'ı', 'IJ', 'ij', 'Ĵ', 'ĵ', 'Ķ', 'ķ', 'Ĺ', 'ĺ', 'Ļ', 'ļ', 'Ľ',
850
             'ľ', 'Ŀ', 'ŀ', 'Ł', 'ł', 'Ń', 'ń', 'Ņ', 'ņ', 'Ň', 'ň', 'ʼn', 'Ō', 'ō', 'Ŏ',
851
             'ŏ', 'Ő', 'ő', 'Œ', 'œ', 'Ŕ', 'ŕ', 'Ŗ', 'ŗ', 'Ř', 'ř', 'Ś', 'ś', 'Ŝ', 'ŝ',
852
             'Ş', 'ş', 'Š', 'š', 'Ţ', 'ţ', 'Ť', 'ť', 'Ŧ', 'ŧ', 'Ũ', 'ũ', 'Ū', 'ū', 'Ŭ',
853
             'ŭ', 'Ů', 'ů', 'Ű', 'ű', 'Ų', 'ų', 'Ŵ', 'ŵ', 'Ŷ', 'ŷ', 'Ÿ', 'Ź', 'ź', 'Ż',
854
             'ż', 'Ž', 'ž', 'ſ', 'ƒ', 'Ơ', 'ơ', 'Ư', 'ư', 'Ǎ', 'ǎ', 'Ǐ', 'ǐ', 'Ǒ', 'ǒ',
855
             'Ǔ', 'ǔ', 'Ǖ', 'ǖ', 'Ǘ', 'ǘ', 'Ǚ', 'ǚ', 'Ǜ', 'ǜ', 'Ǻ', 'ǻ', 'Ǽ', 'ǽ', 'Ǿ', 'ǿ');
856
 
857
  $b = array('A', 'A', 'A', 'A', 'A', 'A', 'AE', 'C', 'E', 'E', 'E', 'E', 'I', 'I', 'I',
858
             'I', 'D', 'N', 'O', 'O', 'O', 'O', 'O', 'O', 'U', 'U', 'U', 'U', 'Y', 's',
859
             'a', 'a', 'a', 'a', 'a', 'a', 'ae', 'c', 'e', 'e', 'e', 'e', 'i', 'i', 'i',
860
             'i', 'n', 'o', 'o', 'o', 'o', 'o', 'o', 'u', 'u', 'u', 'u', 'y', 'y', 'A', 'a',
861
             'A', 'a', 'A', 'a', 'C', 'c', 'C', 'c', 'C', 'c', 'C', 'c', 'D', 'd', 'D', 'd',
862
             'E', 'e', 'E', 'e', 'E', 'e', 'E', 'e', 'E', 'e', 'G', 'g', 'G', 'g', 'G', 'g',
863
             'G', 'g', 'H', 'h', 'H', 'h', 'I', 'i', 'I', 'i', 'I', 'i', 'I', 'i', 'I', 'i',
864
             'IJ', 'ij', 'J', 'j', 'K', 'k', 'L', 'l', 'L', 'l', 'L', 'l', 'L', 'l', 'l', 'l',
865
             'N', 'n', 'N', 'n', 'N', 'n', 'n', 'O', 'o', 'O', 'o', 'O', 'o', 'OE', 'oe', 'R',
866
             'r', 'R', 'r', 'R', 'r', 'S', 's', 'S', 's', 'S', 's', 'S', 's', 'T', 't', 'T', 't',
867
             'T', 't', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'W', 'w', 'Y',
868
             'y', 'Y', 'Z', 'z', 'Z', 'z', 'Z', 'z', 's', 'f', 'O', 'o', 'U', 'u', 'A', 'a', 'I',
869
             'i', 'O', 'o', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'A', 'a', 'AE', 'ae', 'O', 'o');
870
  return str_replace($a, $b, $str);
871
}
449 david 872
 
540 david 873
 
874
function cp1252_to_utf8($str) {
875
$cp1252_map = array ("\xc2\x80" => "\xe2\x82\xac",
876
"\xc2\x82" => "\xe2\x80\x9a",
877
"\xc2\x83" => "\xc6\x92",
878
"\xc2\x84" => "\xe2\x80\x9e",
879
"\xc2\x85" => "\xe2\x80\xa6",
880
"\xc2\x86" => "\xe2\x80\xa0",
881
"\xc2\x87" => "\xe2\x80\xa1",
882
"\xc2\x88" => "\xcb\x86",
883
"\xc2\x89" => "\xe2\x80\xb0",
884
"\xc2\x8a" => "\xc5\xa0",
885
"\xc2\x8b" => "\xe2\x80\xb9",
886
"\xc2\x8c" => "\xc5\x92",
887
"\xc2\x8e" => "\xc5\xbd",
888
"\xc2\x91" => "\xe2\x80\x98",
889
"\xc2\x92" => "\xe2\x80\x99",
890
"\xc2\x93" => "\xe2\x80\x9c",
891
"\xc2\x94" => "\xe2\x80\x9d",
892
"\xc2\x95" => "\xe2\x80\xa2",
893
"\xc2\x96" => "\xe2\x80\x93",
894
"\xc2\x97" => "\xe2\x80\x94",
895
 
896
"\xc2\x98" => "\xcb\x9c",
897
"\xc2\x99" => "\xe2\x84\xa2",
898
"\xc2\x9a" => "\xc5\xa1",
899
"\xc2\x9b" => "\xe2\x80\xba",
900
"\xc2\x9c" => "\xc5\x93",
901
"\xc2\x9e" => "\xc5\xbe",
902
"\xc2\x9f" => "\xc5\xb8"
903
);
904
return strtr ( utf8_encode ( $str ), $cp1252_map );
905
}
906
 
417 aurelien 907
/* +--Fin du code ---------------------------------------------------------------------------------------+
908
* $Log$
909
*
910
*
911
*/
912
 
913
 
914
?>