Subversion Repositories eFlore/Applications.cel

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

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