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