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 
 
540 david 5 
// TODO : doublons
483 david 6 
 
1321 aurelien 7 
/**
480 david 8 
Octobre 2010 David Delon.
9 
Import d'observations dans le carnet en ligne à partir d'un fichier excel chargé par l'utilisateur
10 
et liaison d'images déjà chargee aux observations ainsi crées.
417 aurelien 11 
 
480 david 12 
Nom des colonnes imposé, mais présence de toutes les colonnes non obligatoires, ordre non imposé
13 
Aucune valeur dans les colonnes n'est obligatoire
14 
Pour une ligne donnée, si tous les champs vides on ne fait rien, ou si seul le champ image est présent.
15 
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.
16 
Si au moins deux lignes (ou plus) sont complètement identiques on prend en compte une seule ligne (les doublons sont éliminés).
1321 aurelien 17 
**/
445 david 18 
 
480 david 19 
// Nom des colonnes
20 
 
445 david 21 
define('COMMUNE','commune'); // soit un nom de commune, soit un code INSEE (5 chiffres), ou "nom de commune (numero departement)"
22 
define('LIEUDIT','lieu-dit'); // Texte libre
23 
define('STATION','station'); // Texte libre
24 
define('MILIEU','milieu'); // Texte libre
25 
define('LATITUDE','latitude'); // En decimal systeme WGS84
26 
define('LONGITUDE','longitude'); // En decimal systeme WGS84
27 
define('NOTES','notes'); // Texte libre
28 
define('DATEOBS','date'); // date au format jj/mm/aaaa
29 
define('ESPECE','espece'); // texte libre, nom latin, ou code nomenclatural (format BDNFFnn999999)
30 
define('IMAGE','image'); //  nom des fichiers images préalablement uploadés sur le CEL séparés par des "/"
540 david 31 
define('DEPARTEMENT','departement'); //  Texte libre
760 aurelien 32 
define('TRANSMETTRE','transmettre'); //  "1" ou "oui", toute autre valeur (y compris vide) sera consideree comme "non""
445 david 33 
 
540 david 34 
 
480 david 35 
// Resultat de l'analyse d'une ligne
445 david 36 
define('LIGNE_VIDE',1); //
37 
define('LIGNE_NORMALE',2); //
38 
define('LIGNE_IMAGE_SEULEMENT',3); //
39 
 
1321 aurelien 40 
 
1615 raphael 41 
set_include_path(get_include_path() . PATH_SEPARATOR . dirname(dirname(realpath(__FILE__))) . '/lib');
42 
// la sortie est binaire (xls), mais OLE n'est pas compatible E_ALL en PHP-5.4
43 
error_reporting(-1); //error_reporting() ^ E_STRICT);
44 
require_once("ExcelReader/excel_reader2.php");
45 
 
1321 aurelien 46 
//TODO: refactoriser entièrement cette classe
970 aurelien 47 
class InventoryImportExcel extends Cel  {
445 david 48 
 
1321 aurelien 49 
	// Element constituant une observation
760 aurelien 50 
	var $format_observation=array(COMMUNE ,LIEUDIT ,STATION , DEPARTEMENT, MILIEU ,LATITUDE ,LONGITUDE ,NOTES ,DATEOBS ,ESPECE ,TRANSMETTRE, IMAGE );
480 david 51 
 
1321 aurelien 52 
	// Dernier numero d'ordre utilise
53 
	var $dernier_ordre = 1;
760 aurelien 54 
 
1321 aurelien 55 
	var $cpt_images_liees = 0;
1413 aurelien 56 
 
57 
	var $utilisateur = array();
1469 aurelien 58 
 
59 
	var $chercheur_infos_taxon;
540 david 60 
 
1321 aurelien 61 
	/**
62 
	 Constructeur
63 
	**/
417 aurelien 64 
	function InventoryImportExcel($config) {
65 
 
1321 aurelien 66 
		parent::__construct($config);
1469 aurelien 67 
		$this->chercheur_infos_taxon = new RechercheInfosTaxonBeta($config);
417 aurelien 68 
	}
69 
 
1321 aurelien 70 
	/**
71 
	 Sur post
72 
	**/
445 david 73 
	function createElement($pairs) {
417 aurelien 74 
 
1322 aurelien 75 
		if(!isset($pairs['utilisateur']) || trim($pairs['utilisateur']) == '') {
76 
			echo '0'; exit;
77 
		}
78 
 
1147 aurelien 79 
		if(!isset($_SESSION)) {session_start();}
540 david 80 
        $this->controleUtilisateur($pairs['utilisateur']);
1413 aurelien 81 
 
82 
        $this->utilisateur = $this->getInfosComplementairesUtilisateur($pairs['utilisateur']);
480 david 83 
 
540 david 84 
        foreach($_FILES as $file) { // C'est le plus simple
85 
            $infos_fichier = $file ;
86 
        }
1413 aurelien 87 
 
1321 aurelien 88 
		// Chargement tableau en memoire
1413 aurelien 89 
		$data = new Spreadsheet_Excel_Reader($infos_fichier['tmp_name'], true); // false : pour menager la memoire.
480 david 90 
		$arr = array();
445 david 91 
 
92 
		$rowcount=$data->rowcount(0);
93 
		$colcount=$data->colcount(0);
94 
 
95 
		if ($rowcount<=1) { // TODO : retour erreur
96 
			print "Tableau vide";
97 
			exit;
98 
		}
99 
 
1321 aurelien 100 
		// Chargement tableau
540 david 101 
        for($row=1;$row<=$rowcount;$row++)
102 
            for($col=1;$col<=$colcount;$col++)
103 
                $arr[$col][$row] = $data->val($row,$col,0); // Attention, inversion voulue
760 aurelien 104 
 
1321 aurelien 105 
		// 1 : Traitement intitules
445 david 106 
		$line = array();
417 aurelien 107 
 
1321 aurelien 108 
		/* Les colonnes ne sont pas forcemment dans l'ordre  : on les extrait pour traitement futur  */
540 david 109 
        for($col=1;$col<=$colcount;$col++) {
110 
            $colonne=strtolower($arr[$col][1]);
111 
            $colonne=trim($colonne);
1616 raphael 112 
            $colonne=iconv('UTF-8', 'ASCII//TRANSLIT', $colonne);
540 david 113 
            switch ($colonne) {  // On ne garde que les colonnes que l'on souhaite traiter
114 
                case COMMUNE:
115 
                case LIEUDIT:
116 
                case STATION:
117 
                case MILIEU:
118 
                case DEPARTEMENT:
119 
                case LATITUDE:
120 
                case LONGITUDE:
121 
                case NOTES:
122 
                case DATEOBS:
123 
                case ESPECE:
760 aurelien 124 
                case TRANSMETTRE:
540 david 125 
                case IMAGE:
126 
                    $selection=array_values($arr[$col]);
127 
                    array_shift($selection); // On ne garde pas la premiere ligne, qui contient les intitules
128 
                    $line[$colonne]=$selection;
129 
                    break;
445 david 130 
 
540 david 131 
            }
1615 raphael 132 
        }
1081 aurelien 133 
		// 1 : Traitement lignes
483 david 134 
		$cpt_obs=0;
760 aurelien 135 
		$cpt_img=0;
540 david 136 
 
137 
        /* Recherche dernier numero d'ordre utilise : pas de mise a jour concurente a priori */
1765 raphael 138 
        $requete = "SELECT MAX(ordre) AS ordre FROM cel_obs WHERE ce_utilisateur = ".Cel::db()->proteger($pairs['utilisateur'])." ";
139 
		$resultat = Cel::db()->requeter($requete);
540 david 140 
 
1321 aurelien 141 
        if(is_array($resultat) && count($resultat) > 0) {
142 
            $this->dernier_ordre = $resultat[0]['ordre']; // 1  par defaut
540 david 143 
        }
144 
 
480 david 145 
		for ($i=0;$i<=$rowcount-1;$i++) {
540 david 146 
			// On saute les eventuelles lignes vides du debut et les lignes contenant des information sur image uniquement
480 david 147 
			while ((in_array($retour_analyse=$this->analyserLigne($line,$i),array(LIGNE_IMAGE_SEULEMENT, LIGNE_VIDE))) && ($i<=$rowcount)) {
148 
				if  ($retour_analyse==LIGNE_IMAGE_SEULEMENT) {
1321 aurelien 149 
					// image non rattachée à une observation
480 david 150 
				}
151 
				else {
1321 aurelien 152 
					// ligne vide
480 david 153 
				}
445 david 154 
				$i++;
155 
			}
480 david 156 
			while (($this->analyserLigne($line,$i)==LIGNE_NORMALE) && ($i<=$rowcount)) {
1322 aurelien 157 
				$id_obs = $this->traiterLigne($line,$i,$pairs['utilisateur']);
158 
				if ($this->dernier_ordre > 0) {
483 david 159 
					$cpt_obs++; // Compteur d'observations crees
160 
				}
445 david 161 
				$i++;
480 david 162 
				// On saute les lignes vide ou on traite les lignes suivantes contenant des informations sur image seulement
163 
				while ((in_array($retour_analyse=$this->analyserLigne($line,$i),array(LIGNE_IMAGE_SEULEMENT, LIGNE_VIDE))) && ($i<=$rowcount)) {
445 david 164 
					if  ($retour_analyse==LIGNE_IMAGE_SEULEMENT) {
1322 aurelien 165 
						$this->traiterLigneComplement($line,$i,$pairs['utilisateur'],$id_obs); // images supplementaires
445 david 166 
					}
167 
					else {
1321 aurelien 168 
						// print "vide";
445 david 169 
					}
170 
					$i++;
171 
				}
172 
			}
173 
		}
760 aurelien 174 
		$message = '';
175 
 
176 
		if($this->cpt_images_liees > 0) {
177 
			$message = $this->cpt_images_liees.' images liees pour ';
178 
		}
179 
 
180 
		$message .= $cpt_obs;
181 
		print $message;
417 aurelien 182 
	}
183 
 
1321 aurelien 184 
	function analyserLigne($line,$i) {
760 aurelien 185 
 
1321 aurelien 186 
		$ligne_vide=true;
187 
		$ligne_image_seulement=true;
188 
		$ligne_normale=true;
189 
 
190 
		$ligne_identique_sauf_image = true;
191 
 
192 
		foreach ($this->format_observation as $colonne) {
760 aurelien 193 
 
1321 aurelien 194 
			if($i < 1) {
760 aurelien 195 
				$ligne_identique_sauf_image = false;
1321 aurelien 196 
			} else {
197 
 
198 
				if($colonne!= IMAGE && isset($line[$colonne]) && isset($line[$colonne][$i - 1]) && isset($line[$colonne][$i])
199 
					&& $line[$colonne][$i - 1] != $line[$colonne][$i] && $line[$colonne][$i] != '') {
200 
					$ligne_identique_sauf_image = false;
201 
				}
202 
			}
203 
 
204 
			if (isset ($line[$colonne][$i]) && $line[$colonne][$i]!='') {
205 
				if ($colonne!=IMAGE) {
206 
					$ligne_image_seulement=false;
207 
					$ligne_vide=false;
208 
				}
445 david 209 
				$ligne_vide=false;
210 
			}
211 
		}
1321 aurelien 212 
 
213 
		if ($ligne_vide) {
214 
			return LIGNE_VIDE;
215 
		}
445 david 216 
		else {
1321 aurelien 217 
			if ($ligne_image_seulement || $ligne_identique_sauf_image) {
218 
				return LIGNE_IMAGE_SEULEMENT;
219 
			}
220 
			else {
221 
				return LIGNE_NORMALE;
222 
			}
445 david 223 
		}
224 
	}
417 aurelien 225 
 
1321 aurelien 226 
	function traiterLigne($line,$i,$utilisateur) {
227 
		// Controle donnee et insertion
228 
		$info_image=array();
229 
		$info_transmettre = "0";
1469 aurelien 230 
		$info_espece = array(
1321 aurelien 231 
			'nom_sel' => '',
1322 aurelien 232 
			'nom_sel_nn' => '',
1321 aurelien 233 
			'nom_ret' => '',
234 
			'nom_ret_nn' => '',
235 
			'nt' => '',
236 
			'famille' => ''
237 
		);
1322 aurelien 238 
		$info_commune = array('nom' => '', 'code' => '');
1321 aurelien 239 
 
240 
		foreach ($this->format_observation as $colonne) {
241 
			if (isset ($line[$colonne][$i]) && $line[$colonne][$i]!='') {
242 
				switch ($colonne) {  // On ne garde que les colonnes que l'on souhaite traiter
243 
					case COMMUNE:
244 
						$info_commune = $this->traiterCommune($line[COMMUNE][$i]);
245 
						break;
246 
					case LIEUDIT:
247 
						$info_lieudit = $this->traiterLieudit($line[LIEUDIT][$i]);
248 
						break;
249 
					case STATION:
250 
						$info_station = $this->traiterStation($line[STATION][$i]);
251 
						break;
252 
					case MILIEU:
253 
						$info_milieu = $this->traiterMilieu($line[MILIEU][$i]);
254 
						break;
255 
	                case DEPARTEMENT:
1322 aurelien 256 
	                	$dpt = $this->traiterDepartement($line[DEPARTEMENT][$i]);
257 
	                	if(is_numeric($dpt) && strlen($dpt == 5) && $info_commune['code'] == 'NULL') {
258 
	                		$info_commune['code'] = $dpt;
259 
	                	}
1321 aurelien 260 
						break;
261 
					case LATITUDE:
262 
						$info_latitude = $this->traiterLatitude($line[LATITUDE][$i]);
263 
						break;
264 
					case LONGITUDE:
265 
						$info_longitude = $this->traiterLongitude($line[LONGITUDE][$i]);
266 
						break;
267 
					case NOTES:
268 
						$info_notes = $this->traiterNotes($line[NOTES][$i]);
269 
						break;
270 
					case DATEOBS:
271 
						$info_dateobs = $this->traiterDateObs($line[DATEOBS][$i]);
272 
						break;
273 
					case TRANSMETTRE:
274 
						$info_transmettre = $this->traiterTransmettre($line[TRANSMETTRE][$i]);
445 david 275 
					break;
1321 aurelien 276 
					case ESPECE:
1527 aurelien 277 
						// suppression des accents éventuels
1616 raphael 278 
						$line[ESPECE][$i] = iconv('UTF-8', 'ASCII//TRANSLIT', $line[ESPECE][$i]);
1746 raphael 279 
						$resultat_recherche_espece = $this->chercheur_infos_taxon->rechercherInfosSurTexteCodeOuNumTax(utf8_encode(trim($line[ESPECE][$i])));
1469 aurelien 280 
	                    if (isset($resultat_recherche_espece['en_id_nom']) && $resultat_recherche_espece['en_id_nom'] != '') {
1321 aurelien 281 
	                    	$info_espece['nom_sel'] = $resultat_recherche_espece['nom_sel'];
282 
	                    	$info_espece['nom_sel_nn'] = $resultat_recherche_espece['en_id_nom'];
1469 aurelien 283 
	                        $complement = $this->chercheur_infos_taxon->rechercherInformationsComplementairesSurNumNom($resultat_recherche_espece['en_id_nom']);
1321 aurelien 284 
	                        $info_espece['nom_ret'] = $complement['Nom_Retenu'];
285 
	                        $info_espece['nom_ret_nn'] = $complement['Num_Nom_Retenu'];
286 
	                        $info_espece['nt'] = $complement['Num_Taxon'];
287 
	                        $info_espece['famille'] = $complement['Famille'];
288 
	                    } else {
289 
	                    	$info_espece['nom_sel'] = $line[ESPECE][$i];
290 
	                    }
291 
					case IMAGE:
1527 aurelien 292 
						if(isset($line[IMAGE])) {
293 
							$info_image=$this->traiterImage($line[IMAGE][$i],$utilisateur); // Image separee par des / +  utilisateur
294 
						}
295 
					break;
1321 aurelien 296 
				}
445 david 297 
			}
1321 aurelien 298 
			else {
299 
			 	switch($colonne) {
300 
					case COMMUNE:
301 
						$info_commune['nom']="";
302 
						break;
303 
					case LIEUDIT:
304 
						$info_lieudit="";
305 
						break;
306 
					case STATION:
307 
						$info_station="";
308 
						break;
309 
					case MILIEU:
310 
						$info_milieu="";
311 
						break;
312 
					case DEPARTEMENT:
313 
			            if (!isset ($info_commune['code']) || $info_commune['code']=='') {
314 
						    $info_commune['code']="";
315 
	                    }
316 
						break;
317 
					case LATITUDE:
318 
						$info_latitude = "";
319 
						break;
320 
					case LONGITUDE:
321 
						$info_longitude = "";
322 
						break;
323 
					case NOTES:
324 
						$info_notes='';
325 
						break;
326 
					case TRANSMETTRE:
327 
						$info_transmettre = "0";
480 david 328 
					break;
1321 aurelien 329 
				}
480 david 330 
			}
331 
		}
760 aurelien 332 
 
1321 aurelien 333 
        $this->dernier_ordre++;
334 
        list($jour,$mois,$annee) = isset($info_dateobs) ? explode("/",$info_dateobs) : array(null,null,null);
335 
        $info_dateobs=$annee."-".$mois."-".$jour." 0:0:0";
336 
        $requete  = "INSERT INTO cel_obs (".
1413 aurelien 337 
	        "ce_utilisateur,prenom_utilisateur,nom_utilisateur,courriel_utilisateur,".
338 
	        "ordre,".
1321 aurelien 339 
	        "nom_sel,nom_sel_nn,nom_ret,nom_ret_nn,nt,famille,".
340 
	        "zone_geo,ce_zone_geo,".
341 
	        "date_observation,".
342 
	        "lieudit,station, milieu, commentaire, transmission, ".
343 
	        "date_creation,date_modification,latitude,longitude) ".
1765 raphael 344 
	        " VALUES(".Cel::db()->proteger($utilisateur).",".
345 
	        Cel::db()->proteger($this->utilisateur['prenom']).",".
346 
	        Cel::db()->proteger($this->utilisateur['nom']).",".
347 
	        Cel::db()->proteger($this->utilisateur['courriel']).",".
348 
	        Cel::db()->proteger($this->dernier_ordre).",".
349 
	        Cel::db()->proteger($info_espece['nom_sel']).",".
350 
	        Cel::db()->proteger($info_espece['nom_sel_nn']).",".
351 
	        Cel::db()->proteger($info_espece['nom_ret']).",".
352 
	        Cel::db()->proteger($info_espece['nom_ret_nn']).",".
353 
	        Cel::db()->proteger($info_espece['nt']).",".
354 
	        Cel::db()->proteger($info_espece['famille']).",".
355 
	        Cel::db()->proteger($info_commune['nom']).",".
356 
	        Cel::db()->proteger('INSEE-C:'.$info_commune['code']).",".
357 
	        Cel::db()->proteger($info_dateobs).",".
358 
	        Cel::db()->proteger($info_lieudit).",".
359 
	        Cel::db()->proteger($info_station).",".
360 
	        Cel::db()->proteger($info_milieu).",".
361 
	        Cel::db()->proteger($info_notes).",".
362 
	        Cel::db()->proteger($info_transmettre).",".
1321 aurelien 363 
	        "now() , now(),".
1765 raphael 364 
	        Cel::db()->proteger($info_latitude).",".
365 
	        Cel::db()->proteger($info_longitude).")";
760 aurelien 366 
 
1765 raphael 367 
		$insertion = Cel::db()->executer($requete);
1321 aurelien 368 
 
1765 raphael 369 
		$requete_id_obs = 'SELECT id_observation FROM cel_obs WHERE ordre = '.Cel::db()->proteger($this->dernier_ordre).' AND ce_utilisateur = '.Cel::db()->proteger($utilisateur);
370 
		$resultat_id_obs = Cel::db()->requeter($requete_id_obs);
1322 aurelien 371 
 
372 
		$id_obs = $resultat_id_obs[0]['id_observation'];
373 
 
1321 aurelien 374 
		// creation lien image
375 
		foreach ($info_image as $pic) {
1322 aurelien 376 
 
1765 raphael 377 
			$requete_liaison = 'INSERT INTO cel_obs_images (id_image, id_observation ) VALUES ('.Cel::db()->proteger($pic['id_image']).', '.$id_obs.') ON DUPLICATE KEY UPDATE id_image = id_image ';
378 
			$liaison = Cel::db()->executer($requete_liaison);
1321 aurelien 379 
            if ($liaison !== false) {
380 
            	$this->cpt_images_liees++;
381 
            } else {
382 
            	return false;
540 david 383 
            }
1321 aurelien 384 
		}
385 
 
1322 aurelien 386 
		return $id_obs;
445 david 387 
	}
388 
 
1322 aurelien 389 
	function traiterLigneComplement($line,$i,$utilisateur, $id_obs = null) {
1527 aurelien 390 
		if(isset($line[IMAGE])) {
391 
			$info_image=$this->traiterImage($line[IMAGE][$i],$utilisateur); // Image separee par des / +  utilisateur
392 
			// creation lien image
393 
			foreach ($info_image as $pic) {
1765 raphael 394 
				$requete = 'INSERT INTO cel_obs_images (id_image, id_observation) VALUES ('.Cel::db()->proteger($pic['id_image']).', '.Cel::db()->proteger($id_obs).') ON DUPLICATE KEY UPDATE id_image = id_image' ;
395 
				$resultat_liaison = Cel::db()->executer($requete);
1527 aurelien 396 
		    	if ($resultat_liaison !== false) {
397 
		    		$this->cpt_images_liees++;
398 
		    	} else {
399 
		    		return false;
400 
		    	}
401 
			}
1321 aurelien 402 
		}
445 david 403 
	}
404 
 
1321 aurelien 405 
	function traiterCommune($identifiant_commune) {
406 
		// Recherche correspondance sur nom, si pas unique, correspondance dep. sinon code insee
407 
	    $identifiant_commune=trim($identifiant_commune);
1081 aurelien 408 
 
1321 aurelien 409 
		preg_match('/(.*) \(([0-9][0-9]*)\)/',$identifiant_commune,$elements);
410 
 
411 
		if (isset($elements[1])) { // commune + departement : montpellier (34)
412 
			$nom_commune=$elements[1];
413 
			$code_commune=$elements[2];
1765 raphael 414 
	 	    $requete="SELECT DISTINCT nom, code  FROM cel_zones_geo WHERE nom = ".Cel::db()->proteger($nom_commune)." AND code LIKE ".Cel::db()->proteger($code_commune.'%');
1321 aurelien 415 
		}
416 
		else { // Code insee seul
417 
	        preg_match('/([0-9][0-9]*)|(2A[0-9][0-9]*)|(2B[0-9][0-9]*)/',$identifiant_commune,$elements);
418 
	        if (isset($elements[1])) { // code insee  commune
419 
	            $code_insee_commune=$elements[1];
1765 raphael 420 
	            $requete="SELECT DISTINCT nom, code  FROM cel_zones_geo WHERE code = ".Cel::db()->proteger($code_insee_commune);
1321 aurelien 421 
	        }
422 
	        else { // Commune seule (le departement sera recupere dans la colonne departement si elle est presente, on prend le risque ici de retourner une mauvaise
423 
	               // Commune
424 
	            preg_match('/(.*)/',$identifiant_commune,$elements);
425 
	            if (isset($elements[1])) { // commune
426 
	                $nom_commune=$elements[1];
427 
	                $nom_commune=trim($nom_commune);
1616 raphael 428 
	                $nom_commune=iconv('UTF-8', 'ASCII//TRANSLIT', $nom_commune);
1321 aurelien 429 
	                $nom_commune=preg_replace("/ /","%",$nom_commune);
1765 raphael 430 
	                $requete="SELECT DISTINCT nom, code  FROM cel_zones_geo WHERE nom like ".Cel::db()->proteger($nom_commune.'%');
1321 aurelien 431 
	            }
432 
	        }
433 
		}
434 
 
1765 raphael 435 
		$resultat_commune = Cel::db()->requeter($requete);
1321 aurelien 436 
 
437 
		// cas de la commune introuvable dans le référentiel
438 
		if(!is_array($resultat_commune) || count($resultat_commune) == 0) {
1615 raphael 439 
			$resultat_commune['nom'] = $identifiant_commune;
1321 aurelien 440 
			$resultat_commune['code'] = 'NULL';
441 
		} else {
442 
			$resultat_commune = $resultat_commune[0];
443 
		}
444 
 
445 
		return $resultat_commune;
1081 aurelien 446 
	}
445 david 447 
 
1321 aurelien 448 
	function traiterLieudit($lieudit) {
449 
		// texte libre
450 
		return trim($lieudit);
451 
	}
445 david 452 
 
1321 aurelien 453 
	function traiterStation($station) {
454 
		// texte libre
455 
		return trim($station);
456 
	}
445 david 457 
 
1321 aurelien 458 
	function traiterMilieu($milieu) {
459 
		// texte libre
460 
		return trim($milieu);
461 
	}
445 david 462 
 
1321 aurelien 463 
	function traiterDepartement($departement) {
464 
		// texte libre
465 
		if(is_numeric($departement) && strlen($departement) == 4) {
466 
			$departement = "0"+$departement;
467 
		}
760 aurelien 468 
 
1321 aurelien 469 
		if(is_numeric($departement) && $departement <= 9) {
470 
			$departement = "0"+$departement;
471 
		}
1322 aurelien 472 
 
1615 raphael 473 
		return trim($departement);
760 aurelien 474 
	}
1081 aurelien 475 
 
1321 aurelien 476 
	function traiterLatitude($latitude) {
477 
		//  verifier formal decimal + limite france ? TODO
478 
		return trim($latitude);
1081 aurelien 479 
	}
760 aurelien 480 
 
1321 aurelien 481 
	function traiterLongitude($longitude) {
482 
		// verifier format decimal + limite france ? TODO
483 
		return trim($longitude);
484 
	}
760 aurelien 485 
 
1321 aurelien 486 
	function traiterNotes($notes) {
487 
		// texte libre
1615 raphael 488 
		return trim($notes);
760 aurelien 489 
	}
490 
 
1321 aurelien 491 
	function traiterDateObs($dateobs) {
492 
		// verifier jj/mm/aaaa sinon date vide TODO
493 
		$date = trim($dateobs);
494 
		if(!preg_match("#[0-9]{2}/[0-9]{2}/([0-9]{4}|[0-9]{2})#", $date)) {
495 
			$date = '00/00/0000';
496 
		}
497 
		return $date;
498 
	}
760 aurelien 499 
 
1321 aurelien 500 
	function traiterTransmettre($transmettre) {
501 
		$transmission = '0';
502 
		if (trim($transmettre) == "1" || trim($transmettre) == "oui") {
503 
			$transmission = '1';
504 
		}
505 
		return $transmission;
506 
	}
540 david 507 
 
1321 aurelien 508 
	function traiterImage($images,$utilisateur) { // recherche id image de ce nom
509 
		$liste_images = explode("/",$images) ;
510 
		$row =array();
511 
	   	foreach($liste_images as $image) {
1616 raphael 512 
			$image = iconv('UTF-8', 'ASCII//TRANSLIT', $image);
1765 raphael 513 
			$requete = "SELECT * FROM cel_images WHERE ce_utilisateur = ".Cel::db()->proteger($utilisateur)." AND nom_original= ".Cel::db()->proteger($image);
514 
			$ligne = Cel::db()->requeter($requete);
1321 aurelien 515 
		    if(is_array($ligne) && !empty($ligne)) {
516 
		    	$row[] = $ligne[0];
517 
		    }
449 david 518 
		}
1321 aurelien 519 
		return $row;
480 david 520 
	}
445 david 521 
}
522 
 
582 david 523 
function init_byte_map(){
606 aurelien 524 
    $byte_map = array();
582 david 525 
    for($x=128;$x<256;++$x){
526 
        $byte_map[chr($x)]=utf8_encode(chr($x));
527 
    }
528 
    $cp1252_map=array(
529 
            "\x80"=>"\xE2\x82\xAC",    // EURO SIGN
530 
            "\x82" => "\xE2\x80\x9A",  // SINGLE LOW-9 QUOTATION MARK
531 
            "\x83" => "\xC6\x92",      // LATIN SMALL LETTER F WITH HOOK
532 
            "\x84" => "\xE2\x80\x9E",  // DOUBLE LOW-9 QUOTATION MARK
533 
            "\x85" => "\xE2\x80\xA6",  // HORIZONTAL ELLIPSIS
534 
            "\x86" => "\xE2\x80\xA0",  // DAGGER
535 
            "\x87" => "\xE2\x80\xA1",  // DOUBLE DAGGER
536 
            "\x88" => "\xCB\x86",      // MODIFIER LETTER CIRCUMFLEX ACCENT
537 
            "\x89" => "\xE2\x80\xB0",  // PER MILLE SIGN
538 
            "\x8A" => "\xC5\xA0",      // LATIN CAPITAL LETTER S WITH CARON
539 
            "\x8B" => "\xE2\x80\xB9",  // SINGLE LEFT-POINTING ANGLE QUOTATION MARK
540 
            "\x8C" => "\xC5\x92",      // LATIN CAPITAL LIGATURE OE
541 
            "\x8E" => "\xC5\xBD",      // LATIN CAPITAL LETTER Z WITH CARON
542 
            "\x91" => "\xE2\x80\x98",  // LEFT SINGLE QUOTATION MARK
543 
            "\x92" => "\xE2\x80\x99",  // RIGHT SINGLE QUOTATION MARK
544 
            "\x93" => "\xE2\x80\x9C",  // LEFT DOUBLE QUOTATION MARK
545 
            "\x94" => "\xE2\x80\x9D",  // RIGHT DOUBLE QUOTATION MARK
546 
            "\x95" => "\xE2\x80\xA2",  // BULLET
547 
            "\x96" => "\xE2\x80\x93",  // EN DASH
548 
            "\x97" => "\xE2\x80\x94",  // EM DASH
549 
            "\x98" => "\xCB\x9C",      // SMALL TILDE
550 
            "\x99" => "\xE2\x84\xA2",  // TRADE MARK SIGN
551 
            "\x9A" => "\xC5\xA1",      // LATIN SMALL LETTER S WITH CARON
552 
            "\x9B" => "\xE2\x80\xBA",  // SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
553 
            "\x9C" => "\xC5\x93",      // LATIN SMALL LIGATURE OE
554 
            "\x9E" => "\xC5\xBE",      // LATIN SMALL LETTER Z WITH CARON
555 
            "\x9F" => "\xC5\xB8"       // LATIN CAPITAL LETTER Y WITH DIAERESIS
556 
                );
557 
    foreach($cp1252_map as $k=>$v){
558 
        $byte_map[$k]=$v;
559 
    }
606 aurelien 560 
 
561 
    return $byte_map;
582 david 562 
}
449 david 563 
 
602 aurelien 564 
function fix_latin($instr){
565 
 
606 aurelien 566 
    $byte_map = init_byte_map();
567 
 
602 aurelien 568 
    $ascii_char='[\x00-\x7F]';
569 
    $cont_byte='[\x80-\xBF]';
570 
    $utf8_2='[\xC0-\xDF]'.$cont_byte;
571 
    $utf8_3='[\xE0-\xEF]'.$cont_byte.'{2}';
572 
    $utf8_4='[\xF0-\xF7]'.$cont_byte.'{3}';
573 
    $utf8_5='[\xF8-\xFB]'.$cont_byte.'{4}';
606 aurelien 574 
 
602 aurelien 575 
    $nibble_good_chars = "@^($ascii_char+|$utf8_2|$utf8_3|$utf8_4|$utf8_5)(.*)$@s";
601 aurelien 576 
 
582 david 577 
    if(mb_check_encoding($instr,'UTF-8'))return $instr; // no need for the rest if it's all valid UTF-8 already
578 
    $outstr='';
579 
    $char='';
580 
    $rest='';
581 
    while((strlen($instr))>0){
602 aurelien 582 
        if(1==@preg_match($nibble_good_chars,$instr,$match)){
582 david 583 
            $char=$match[1];
584 
            $rest=$match[2];
585 
            $outstr.=$char;
602 aurelien 586 
        }elseif(1==@preg_match('@^(.)(.*)$@s',$instr,$match)){
582 david 587 
            $char=$match[1];
588 
            $rest=$match[2];
589 
            $outstr.=$byte_map[$char];
590 
        }
591 
        $instr=$rest;
592 
    }
593 
    return $outstr;
594 
}
595 
 
1321 aurelien 596 
function remove_accent($str) {
1527 aurelien 597 
  return supprimerAccents($str);
540 david 598 
  $a = array('À', 'Á', 'Â', 'Ã', 'Ä', 'Å', 'Æ', 'Ç', 'È', 'É', 'Ê', 'Ë', 'Ì', 'Í', 'Î',
599 
             'Ï', 'Ð', 'Ñ', 'Ò', 'Ó', 'Ô', 'Õ', 'Ö', 'Ø', 'Ù', 'Ú', 'Û', 'Ü', 'Ý', 'ß',
600 
             'à', 'á', 'â', 'ã', 'ä', 'å', 'æ', 'ç', 'è', 'é', 'ê', 'ë', 'ì', 'í', 'î',
601 
             'ï', 'ñ', 'ò', 'ó', 'ô', 'õ', 'ö', 'ø', 'ù', 'ú', 'û', 'ü', 'ý', 'ÿ', 'Ā',
602 
             'ā', 'Ă', 'ă', 'Ą', 'ą', 'Ć', 'ć', 'Ĉ', 'ĉ', 'Ċ', 'ċ', 'Č', 'č', 'Ď', 'ď',
603 
             'Đ', 'đ', 'Ē', 'ē', 'Ĕ', 'ĕ', 'Ė', 'ė', 'Ę', 'ę', 'Ě', 'ě', 'Ĝ', 'ĝ', 'Ğ',
604 
             'ğ', 'Ġ', 'ġ', 'Ģ', 'ģ', 'Ĥ', 'ĥ', 'Ħ', 'ħ', 'Ĩ', 'ĩ', 'Ī', 'ī', 'Ĭ', 'ĭ',
605 
             'Į', 'į', 'İ', 'ı', 'IJ', 'ij', 'Ĵ', 'ĵ', 'Ķ', 'ķ', 'Ĺ', 'ĺ', 'Ļ', 'ļ', 'Ľ',
606 
             'ľ', 'Ŀ', 'ŀ', 'Ł', 'ł', 'Ń', 'ń', 'Ņ', 'ņ', 'Ň', 'ň', 'ʼn', 'Ō', 'ō', 'Ŏ',
607 
             'ŏ', 'Ő', 'ő', 'Œ', 'œ', 'Ŕ', 'ŕ', 'Ŗ', 'ŗ', 'Ř', 'ř', 'Ś', 'ś', 'Ŝ', 'ŝ',
608 
             'Ş', 'ş', 'Š', 'š', 'Ţ', 'ţ', 'Ť', 'ť', 'Ŧ', 'ŧ', 'Ũ', 'ũ', 'Ū', 'ū', 'Ŭ',
609 
             'ŭ', 'Ů', 'ů', 'Ű', 'ű', 'Ų', 'ų', 'Ŵ', 'ŵ', 'Ŷ', 'ŷ', 'Ÿ', 'Ź', 'ź', 'Ż',
610 
             'ż', 'Ž', 'ž', 'ſ', 'ƒ', 'Ơ', 'ơ', 'Ư', 'ư', 'Ǎ', 'ǎ', 'Ǐ', 'ǐ', 'Ǒ', 'ǒ',
611 
             'Ǔ', 'ǔ', 'Ǖ', 'ǖ', 'Ǘ', 'ǘ', 'Ǚ', 'ǚ', 'Ǜ', 'ǜ', 'Ǻ', 'ǻ', 'Ǽ', 'ǽ', 'Ǿ', 'ǿ');
612 
 
613 
  $b = array('A', 'A', 'A', 'A', 'A', 'A', 'AE', 'C', 'E', 'E', 'E', 'E', 'I', 'I', 'I',
614 
             'I', 'D', 'N', 'O', 'O', 'O', 'O', 'O', 'O', 'U', 'U', 'U', 'U', 'Y', 's',
615 
             'a', 'a', 'a', 'a', 'a', 'a', 'ae', 'c', 'e', 'e', 'e', 'e', 'i', 'i', 'i',
616 
             'i', 'n', 'o', 'o', 'o', 'o', 'o', 'o', 'u', 'u', 'u', 'u', 'y', 'y', 'A', 'a',
617 
             'A', 'a', 'A', 'a', 'C', 'c', 'C', 'c', 'C', 'c', 'C', 'c', 'D', 'd', 'D', 'd',
618 
             'E', 'e', 'E', 'e', 'E', 'e', 'E', 'e', 'E', 'e', 'G', 'g', 'G', 'g', 'G', 'g',
619 
             'G', 'g', 'H', 'h', 'H', 'h', 'I', 'i', 'I', 'i', 'I', 'i', 'I', 'i', 'I', 'i',
620 
             'IJ', 'ij', 'J', 'j', 'K', 'k', 'L', 'l', 'L', 'l', 'L', 'l', 'L', 'l', 'l', 'l',
621 
             'N', 'n', 'N', 'n', 'N', 'n', 'n', 'O', 'o', 'O', 'o', 'O', 'o', 'OE', 'oe', 'R',
622 
             'r', 'R', 'r', 'R', 'r', 'S', 's', 'S', 's', 'S', 's', 'S', 's', 'T', 't', 'T', 't',
623 
             'T', 't', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'W', 'w', 'Y',
624 
             'y', 'Y', 'Z', 'z', 'Z', 'z', 'Z', 'z', 's', 'f', 'O', 'o', 'U', 'u', 'A', 'a', 'I',
625 
             'i', 'O', 'o', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'A', 'a', 'AE', 'ae', 'O', 'o');
626 
  return str_replace($a, $b, $str);
627 
}
449 david 628 
 
1527 aurelien 629 
//TODO: déplacer les fonctions ci dessus et dessous dans une classe
630 
// utilitaire
631 
function supprimerAccents($str, $charset = 'UTF-8')
632 
{
633 
	$str = htmlentities($str, ENT_NOQUOTES, $charset);
634 
	$str = preg_replace('#&([A-za-z])(?:acute|cedil|circ|grave|orn|ring|slash|th|tilde|uml);#', '\1', $str);
635 
	$str = preg_replace('#&([A-za-z]{2})(?:lig);#', '\1', $str); // pour les ligatures e.g. '&oelig;'
636 
	$str = preg_replace('#&[^;]+;#', '', $str); // supprime les autres caractères
637 
 
638 
	return $str;
639 
}
640 
 
540 david 641 
function cp1252_to_utf8($str) {
1321 aurelien 642 
	$cp1252_map = array ("\xc2\x80" => "\xe2\x82\xac",
643 
		"\xc2\x82" => "\xe2\x80\x9a",
644 
		"\xc2\x83" => "\xc6\x92",
645 
		"\xc2\x84" => "\xe2\x80\x9e",
646 
		"\xc2\x85" => "\xe2\x80\xa6",
647 
		"\xc2\x86" => "\xe2\x80\xa0",
648 
		"\xc2\x87" => "\xe2\x80\xa1",
649 
		"\xc2\x88" => "\xcb\x86",
650 
		"\xc2\x89" => "\xe2\x80\xb0",
651 
		"\xc2\x8a" => "\xc5\xa0",
652 
		"\xc2\x8b" => "\xe2\x80\xb9",
653 
		"\xc2\x8c" => "\xc5\x92",
654 
		"\xc2\x8e" => "\xc5\xbd",
655 
		"\xc2\x91" => "\xe2\x80\x98",
656 
		"\xc2\x92" => "\xe2\x80\x99",
657 
		"\xc2\x93" => "\xe2\x80\x9c",
658 
		"\xc2\x94" => "\xe2\x80\x9d",
659 
		"\xc2\x95" => "\xe2\x80\xa2",
660 
		"\xc2\x96" => "\xe2\x80\x93",
661 
		"\xc2\x97" => "\xe2\x80\x94",
662 
 
663 
		"\xc2\x98" => "\xcb\x9c",
664 
		"\xc2\x99" => "\xe2\x84\xa2",
665 
		"\xc2\x9a" => "\xc5\xa1",
666 
		"\xc2\x9b" => "\xe2\x80\xba",
667 
		"\xc2\x9c" => "\xc5\x93",
668 
		"\xc2\x9e" => "\xc5\xbe",
669 
		"\xc2\x9f" => "\xc5\xb8"
670 
	);
671 
	return strtr(utf8_encode($str), $cp1252_map);
540 david 672 
}
1321 aurelien 673 
?>