WebSVN – eFlore/Applications.cel – Diff – /branches/topic-dbsingleton/jrest/services/ImportXLS.php

 		// renomme le fichier pour lui ajouter son extension initiale, ce qui
 		// permet (une sorte) d'autodétection du format.
 		$fichier = $infos_fichier['tmp_name'];
 		$extension = pathinfo($infos_fichier['name'], PATHINFO_EXTENSION);
 		if( (strlen($extension) == 3 || strlen($extension) == 4) &&
-			(@rename($fichier, $fichier . '.' . $extension))) {
+			(@rename($fichier, $fichier . '.' . $extension))) { // XXX: @ safe-mode
 			$fichier = $fichier . '.' . $extension;
+		}
 		$objReader = PHPExcel_IOFactory::createReaderForFile($fichier);
+		}
 		restore_error_handler();
 		if($this->bilan) echo implode("\n", $this->bilan) . "\n";
- 		$summary = sprintf("%d observation(s) ajoutée(s)\n%d image(s) attachée(s)\n%d mot(s)-clé ajouté(s) [TODO]\n",
+ 		$summary = sprintf("%d observation(s) ajoutée(s)\n%d image(s) attachée(s)\n%d mot(s)-clé ajouté(s) [TODO]\ncolonnes non-traitées: %s\n",
 						   $obs_ajouts,
+						   $nb_images_ajoutees,
-						   $nb_images_ajoutees,
+						   $nb_mots_cle_ajoutes,
-						   $nb_mots_cle_ajoutes);
+						   implode(', ', $filtre->exclues));
 	  car ce tableau est passé à un PDO::preparedStatement() qui applique
 	  proprement les règle d'échappement.
 	 */
 	static function chargerLigne($ligne, $dernier_ordre, $cel) {
 		// en premier car le résultat est utile pour
+		// * traiter espèce (traiterEspece())
-		// traiter longitude et latitude (traiterLonLat())
+		// * traiter longitude et latitude (traiterLonLat())
-		$referentiel = self::identReferentiel($ligne[C_NOM_REFERENTIEL]);
+		$referentiel = self::identReferentiel(trim(strtolower($ligne[C_NOM_REFERENTIEL])), $ligne);
 		// $espece est rempli de plusieurs informations
 		$espece = Array(C_NOM_SEL => NULL, C_NOM_SEL_NN => NULL, C_NOM_RET => NULL,
 						C_NOM_RET_NN => NULL, C_NT => NULL, C_FAMILLE => NULL);
-		self::traiterEspece($ligne, $espece, $cel);
+		self::traiterEspece($ligne, $espece, $referentiel, $cel);
 		// $localisation est rempli à partir de plusieurs champs: C_ZONE_GEO et C_CE_ZONE_GEO
 			"ce_zone_geo" => $localisation[C_CE_ZONE_GEO],
 			// $ligne: uniquement pour les infos en cas de gestion d'erreurs (date incompréhensible)
 			"date_observation" => self::traiterDateObs($ligne[C_DATE_OBSERVATION], $ligne),
-			"lieudit" => trim($ligne[C_LIEUDIT]),
+			"lieudit" => isset($ligne[C_LIEUDIT]) ? trim($ligne[C_LIEUDIT]) : NULL,
-			"station" => trim($ligne[C_STATION]),
+			"station" => isset($ligne[C_STATION]) ? trim($ligne[C_STATION]) : NULL,
-			"milieu" => trim($ligne[C_MILIEU]),
+			"milieu" => isset($ligne[C_MILIEU]) ? trim($ligne[C_MILIEU]) : NULL,
 			"mots_cles_texte" => NULL, // TODO: foreign-key
 			// XXX: @ contre "Undefined index"
-			"commentaire" => @trim($ligne[C_COMMENTAIRE]),
+			"commentaire" => isset($ligne[C_COMMENTAIRE]) ? trim($ligne[C_COMMENTAIRE]) : NULL,
 			"transmission" => $transmission,
 			"date_transmission" => $transmission ? date("Y-m-d H:i:s") : NULL, // pas de fonction SQL dans un PDO statement, <=> now()
 			// $ligne: uniquement pour les infos en cas de gestion d'erreurs (lon/lat incompréhensible)
-			"latitude" => self::traiterLonLat(NULL, $ligne[C_LATITUDE], $referentiel, $ligne),
+			"latitude" => isset($ligne[C_LATITUDE]) ? self::traiterLonLat(NULL, $ligne[C_LATITUDE], $referentiel, $ligne) : NULL,
-			"longitude" => self::traiterLonLat($ligne[C_LONGITUDE], NULL, $referentiel, $ligne),
+			"longitude" => isset($ligne[C_LONGITUDE]) ? self::traiterLonLat($ligne[C_LONGITUDE], NULL, $referentiel, $ligne) : NULL,
 		$liste_images = array_filter(explode("/", $str));
 		//array_walk($liste_images, '__anonyme_4');
 		array_walk($liste_images, array(__CLASS__, '__anonyme_4'));
 		$requete = sprintf(
-			"SELECT id_image, nom_original FROM cel_images WHERE ce_utilisateur = %d AND nom_original IN (\"%s\")",
+			"SELECT id_image, nom_original FROM cel_images WHERE ce_utilisateur = %d AND nom_original IN (%s)",
 			$id_utilisateur,
-			implode('","', $liste_images));
+			implode(',', $liste_images));
 		$resultat = Cel::db()->requeter($requete);
 			// echo strftime("%Y/%m/%d 00:00:00", $timestamp); // NON
+		}
 		else {
 			// attend l'un des formats de
 			// http://www.php.net/manual/fr/datetime.formats.date.php
-			// le plus simple: YYYY/MM/DD (utilisé à l'export)
+			// le plus simple: YYYY/MM/DD (utilisé à l'export), mais DD-MM-YYYY est aussi supporté
+			$matches = NULL;
+			// et on essaie d'être sympa et supporter aussi DD/MM/YYYY
+			if(preg_match(';^([0-3]?\d)/([01]\d)/([12]\d\d\d)$;', $date, $matches)) {
+				$date = $matches[3] . '/' . $matches[2] . '/' . $matches[1];
+			}
 			$timestamp = strtotime($date);
 			if(! $timestamp) {
 				if($date) trigger_error("ligne \"{$ligne[C_NOM_SEL]}\": Attention: date erronée ($date)", E_USER_NOTICE);
 				return NULL;
+			}
 			return strftime("%Y-%m-%d 00:00:00", $timestamp);
+		}
+	}
-	static function identReferentiel($referentiel) {
+	static function identReferentiel($referentiel, $ligne) {
 		// SELECT DISTINCT nom_referentiel, COUNT(id_observation) AS count FROM cel_obs GROUP BY nom_referentiel ORDER BY count DESC;
-		if(strpos(strtolower($referentiel), 'bdtfx') !== FALSE) return 'bdtfx:v1.01';
+		if(strpos($referentiel, 'bdtfx') !== FALSE) return 'bdtfx:v1.01';
-		if(strpos(strtolower($referentiel), 'bdtxa') !== FALSE) return 'bdtxa:v1.00';
+		if(strpos($referentiel, 'bdtxa') !== FALSE) return 'bdtxa:v1.00';
-		if(strpos(strtolower($referentiel), 'bdnff') !== FALSE) return 'bdnff:4.02';
+		if(strpos($referentiel, 'bdnff') !== FALSE) return 'bdnff:4.02';
+		if(strpos($referentiel, 'isfan') !== FALSE) return 'isfan:v1.00';
-		if(strpos(strtolower($referentiel), 'isfan') !== FALSE) return 'isfan:v1.00';
+		if(strpos($referentiel, 'autre') !== FALSE) return 'autre';
+		if($referentiel) {
-		if($referentiel) {
+			trigger_error("ligne \"{$ligne[C_NOM_SEL]}\": Attention: référentiel inconnu", E_USER_NOTICE);
-			trigger_error("ligne \"{$ligne[C_NOM_SEL]}\": Attention: référentiel inconnu", E_USER_NOTICE);
+			return 'autre';
+		}
 		return NULL;
 		/* TODO: cf story,
 	/*
 	  TODO: s'affranchir du webservice pour la détermination du nom scientifique en s'appuyant sur cel_references,
 	  pour des questions de performances
 	*/
-	static function traiterEspece($ligne, Array &$espece, $cel) {
+	static function traiterEspece($ligne, Array &$espece, $referentiel, $cel) {
 		if(!$ligne[C_NOM_SEL]) return;
 		// nom_sel reste toujours celui de l'utilisateur
 		$espece[C_NOM_SEL] = trim($ligne[C_NOM_SEL]);
-		$taxon_info_webservice = new RechercheInfosTaxonBeta($cel->config);
+		$taxon_info_webservice = new RechercheInfosTaxonBeta($cel->config, $referentiel);
 		  SELECT num_nom, nom_sci, num_nom_retenu ,auteur, annee, biblio_origine, nom_sci,auteur  FROM bdtfx_v1_01  WHERE (nom_sci LIKE 'eliotropium% euro%')  ORDER BY nom_sci ASC   LIMIT 0, 1
+		  #
 		  SELECT nom_sci, num_nom_retenu, nom_sci_html, auteur, annee, biblio_origine FROM bdtfx_v1_01 WHERE num_nom = 31468
 		*/
+		// $resultat_recherche_espece = $taxon_info_webservice->rechercherInformationsComplementairesSurNom($ligne[C_NOM_SEL]);
+		// permet une reconnaissance de BDNFFnnXXXX
-		$resultat_recherche_espece = $taxon_info_webservice->rechercherInformationsComplementairesSurNom($ligne[C_NOM_SEL]);
+		$resultat_recherche_espece = $taxon_info_webservice->rechercherInfosSurTexteCodeOuNumTax(trim($ligne[C_NOM_SEL]));
+		// note: rechercherInfosSurTexteCodeOuNumTax peut ne retourner qu'une seule clef "nom_sel"
+		if (! $resultat_recherche_espece || !isset($resultat_recherche_espece['en_id_nom'])) {
-		// on supprime les noms retenus et renvoi tel quel
+			// on supprime les noms retenus et renvoi tel quel
-		// on réutilise les define pour les noms d'indexes, tant qu'à faire
-		if (! $resultat_recherche_espece) {
+			// on réutilise les define pour les noms d'indexes, tant qu'à faire
 			// XXX; tout à NULL sauf C_NOM_SEL ci-dessus ?
 			$espece[C_NOM_SEL_NN] = $ligne[C_NOM_SEL_NN];
 			$espece[C_NOM_RET] = $ligne[C_NOM_RET];
 			$espece[C_NOM_RET_NN] = $ligne[C_NOM_RET_NN];
 			return;
+		}
 		// succès de la détection = écrasement du numéro nomenclatural saisi...
-		$espece[C_NOM_SEL_NN] = $resultat_recherche_espece[0][0];
+		$espece[C_NOM_SEL_NN] = $resultat_recherche_espece['en_id_nom'];
 		// et des info complémentaires
 		// echo "rechercherInformationsComplementairesSurNumNom()\n";
-		$complement = $taxon_info_webservice->rechercherInformationsComplementairesSurNumNom($resultat_recherche_espece[0][0]);
+		$complement = $taxon_info_webservice->rechercherInformationsComplementairesSurNumNom($resultat_recherche_espece['en_id_nom']);
 		/*
 		  // GET /service:eflore:0.1/bdtfx/noms/31468?retour.champs=nom_sci,auteur,id,nom_retenu_complet,nom_retenu.id,num_taxonomique,famille
 			$departement = trim($departement); // TODO
 			$localisation[C_ZONE_GEO] = $localisation[C_ZONE_GEO];
 			$localisation[C_CE_ZONE_GEO] = $localisation[C_CE_ZONE_GEO];
 			return;
 		}
 		$select = "SELECT DISTINCT nom, code  FROM cel_zones_geo";
-		if (preg_match('/(.*) \((\d+)\)/', $identifiant_commune, $elements)) {
+		if (preg_match('/(.+) \((\d+)\)/', $identifiant_commune, $elements)) {
+	/* HELPERS */
 	/* HELPERS */
 	// http://stackoverflow.com/questions/348410/sort-an-array-based-on-another-array
-	// http://stackoverflow.com/questions/348410/sort-an-array-based-on-another-array
+	// XXX; utilisé aussi (temporairement ?) par FormateurGroupeColonne.
 	static function sortArrayByArray($array, $orderArray) {
 		$ordered = array();

Subversion Repositories eFlore/Applications.cel

(root)/branches/topic-dbsingleton/jrest/services/ImportXLS.php – Rev 1740 → 1762