Subversion Repositories eFlore/Applications.cel

Rev

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'];
1147 aurelien 81 
		if(!isset($_SESSION)) {session_start();}
540 david 82 
        $this->controleUtilisateur($pairs['utilisateur']);
480 david 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 
 
1147 aurelien 332 
                list($jour,$mois,$annee) = isset($info_dateobs) ? explode("/",$info_dateobs) : array(null,null,null);
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)."')";
1082 aurelien 354 
 
480 david 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 
                    $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 
?>