WebSVN – eFlore/Applications.cel – Diff – /trunk/jrest/bibliotheque/FormateurGroupeColonne.php

 * @author    Raphaël Droz <raphael@tela-botania.org>
 * @copyright 2013 Tela-Botanica
 * @license   http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL
 * @license GPL v3 <http://www.gnu.org/licenses/gpl.txt>
 */
 define('SEPARATEUR_IMAGES', ",");
+Class FormateurGroupeColonne {
 Class FormateurGroupeColonne {
+	// cache pour les données des fonctions
+	static $cache = Array();
+	// test sur la table cel_references, mis à TRUE si la table existe
+	static $is_table = false;
+	// les données baseflor à récupérer: colonnes présentes dans cel_references
+	// et intitulés associés
+	static $baseflor_col = array(
+		"ve_lumiere" => "Lumière",
+		"ve_temperature" => "Température",
+		"ve_continentalite" => "Continentalité",
+		"ve_humidite_atmos" => "Humidité Atmosphérique",
+		"ve_humidite_edaph" => "Humidité",
+		"ve_reaction_sol" => "Réaction (pH)",
+		"ve_nutriments_sol" => "Nutriments",
+		"ve_salinite" => "Salinité",
+		"ve_texture_sol" => "Texture" ,
+		"ve_mat_org_sol" => "Matière Organique",
+		"catminat_code" => "Code Catminat",
 		"syntaxon" => "Syntaxon",
-	static $cache = Array();
+	);
 	/*
 	* @param $fieldSets: un liste de noms de colonnes ou de sets de colonnes
 			   'images'				=> self::GenColInfo('images', 'Image(s)', 1, NULL, NULL /* cas particulier 'getImages' */, TRUE),
 			   /* 'nom_commun'			=> self::GenColInfo('nom_commun', 'Nom Commun', 1, NULL, 'getNomCommun', FALSE),
 				  'nom-commun'			=> self::GenColInfo('nom-commun', 'Nom Commun', 1, NULL, 'getNomCommun_v2'),
 				  'nom-commun'			=> self::GenColInfo('nom-commun', 'Nom Commun', 1, NULL, 'getNomCommun_v3'), */
+			   'nom-commun'			=> self::GenColInfo('nom-commun', 'Nom Commun', 1, NULL, NULL /* cas particu 'getNomCommun_v4' */, TRUE, array(__CLASS__, 'getNomCommun_preload')),
+			);
+		}
+		if(isset($groupe_de_champs['baseflor'])) {
+			$colonnes += array(
-			   'nom-commun'			=> self::GenColInfo('nom-commun', 'Nom Commun', 1, NULL, NULL /* cas particu 'getNomCommun_v4' */, TRUE, 'getNomCommun_preload'),
+				// champ dynamique
+				'baseflor'			=> self::GenColInfo('baseflor', '', 1, NULL, NULL, FALSE, array(__CLASS__, 'baseflor_preload'), array(__CLASS__, 'baseflor_ligne')),
 			);
+		}
 		return $colonnes;
+	}
 	static function preload($colonnes, $cel, $ids) {
 		$result = array();
 		foreach($colonnes as $abbrev => $colonne) {
 			if(!$colonne['preload']) continue;
-			$result[$abbrev] = call_user_func(array(__CLASS__, $colonne['preload']), $cel, $ids);
+			$result[$abbrev] = call_user_func($colonne['preload'], $cel, $ids);
+		}
-		}
+		return $result;
 		return $result;
 	public static function getIntitulesColonnes($colonnes) {
-	public static function getIntitulesColonnes($colonnes) {
+		// array_filter pour supprimer les colonnes "dynamique" n'ayant pas défini $nom (cf GenColInfo())
 	public static function getLigneObservation(&$obs, &$colonnes, $cel = false) {
 		$ligne_formatee = array();
 		foreach($colonnes as $abbrev => $colonne) {
 			$valeur = null;
-			if($colonne['extra'] == 2) continue;
+			if($colonne['extra'] == 2 || ! is_null($colonne['dyna'])) continue;
 			// valeur direct depuis cel_obs ?
 			// // fin de section "cas particuliers"
 			$ligne_formatee[] = $valeur;
+		}
-		}
+		// uniquement les champŝ dynamiques
+		foreach($colonnes as $abbrev => $colonne) {
+			$valeur = null;
+			if(is_null($colonne['dyna'])) continue;
-		// TODO:
+			$colonne['dyna']($cel, $obs, $ligne_formatee);
 		// taxon => (code_catminat) => syntaxon => données baseveg
 	*		  En effet chaque ligne importée est accessible à l'aide du `define` de $abbrev en majuscule, préfixé de "C_"
 	*		  Exemple: $ligne[C_LONGITUDE] pour "longitude".
 	*		  cf: ImportXLS::detectionEntete()
+	* @param $nom (obligatoire): nom complet de colonne (utilisé pour la ligne d'en-tête)
+	*		  Les définition de champs dynamique (correspondant à de multiples colonnes) doivent laisser cette valeur
-	* @param $nom (obligatoire): nom complet de colonne (utilisé pour la ligne d'en-tête)
+	*		  vide afin de ne pas créer une colonne supplémentaire erronée.
 	* @param $is_extra:
 	* Si 0, la colonne est une colonne standard
 	* @param $importable (optionnel): défini si la colonne est traitée (ou absolument ignorée par PHPExcel) lors de
 	*		  l'import.
 	* @param $preload (optionnel): défini une fonction de préchargement massif de donnée potentiellement utilisable par $fonction_data.
 	*		  Utile, notamment, dans le cadre de l'export
+	* @param $fonction_dynamique (optionnel): défini une fonction ajoutant un nombre arbitraire de colonnes à une ligne donnée
+	*		  Utile, notamment, dans le cadre de l'export des champs étendus ou des données baseflor
+	*		  La fonction doit TOUJOURS alterer la ligne en lui ajoutant une nombre CONSTANT d'éléments (NULL ou non)
 	*		  La fonction doit prendre comme arguments ($cel, $obs, &$ligne_formatee)
 	*/
-	static function GenColInfo($abbrev, $nom, $is_extra = 0, $fonction = NULL, $fonction_data = NULL, $importable = TRUE, $preload = NULL) {
+	static function GenColInfo($abbrev, $nom, $is_extra = 0, $fonction = NULL, $fonction_data = NULL, $importable = TRUE, $preload = NULL, $fonction_dynamique = NULL) {
 		return Array('abbrev' => $abbrev,
 					 'nom' => $nom,
 					 'extra' => $is_extra ? 1 : 0,
 					 'fonction' => $fonction,
 					 'fonction_data' => $fonction_data,
 					 'importable' => $importable,
+					 'preload' => $preload,
-					 'preload' => $preload,
+					 'dyna' => $fonction_dynamique,
 		);
+	}
 		self::$cache['getNomCommun'][$cache_id] = $nom;
 		return $nom;
+	}
 	/* Cette fonction initialise le cache des noms communs en 1 fois, sur la liste des observations à exporter.
-	   Ainsi, les appels successifs à getNomCommun_v4() ne sont pas couteux (pas de requête SQL)
-	 */
+	   Ainsi, les appels successifs à getNomCommun_v4() ne sont pas couteux (pas de requête SQL) */
 	static function getNomCommun_preload($cel, $obsids) {
 		if(!$obsids) return;
-		if(!$cel->executerRequete("SHOW TABLES LIKE 'cel_references'", Cel::SQL_RETOUR_LIGNE)) return NULL;
+		if(!self::referenceTableExiste($cel)) return NULL;
 		// CREATE INDEX i_nom_referentiel ON cel_obs (nom_referentiel(5));
 		$req = sprintf("SELECT r.referentiel, r.num_taxon, r.nom_commun FROM cel_references r" .
 		foreach($res as $v) {
 			self::$cache['getNomCommun'][$v['referentiel'] . '-' . $v['num_taxon'] . '-' . 'fra'] = $v['nom_commun'];
+		}
 		return NULL;
+	}
+	static function referenceTableExiste($cel) {
+		if(!self::$is_table) {
+			// une seule fois
+			if(! $cel->executerRequete("SHOW TABLES LIKE 'cel_references'", Cel::SQL_RETOUR_LIGNE)) return FALSE;
+			self::$is_table = TRUE;
+		}
+		return TRUE;
+	}
-	static function getNomCommun_v4($obs, $cel) {
-		static $is_table = false;
+	static function getNomCommun_v4($obs, $cel) {
+		if(! $obs['nt']) return NULL;
-		if(! $obs['nt']) return NULL;
-		if(!$is_table) {
-			// une seule fois
-			if(! $cel->executerRequete("SHOW TABLES LIKE 'cel_references'", Cel::SQL_RETOUR_LIGNE)) return NULL;
-			$is_table = true;
+		if(! self::referenceTableExiste($cel)) return NULL;
 		$langue = 'fra';
 		list($referentiel) = explode(':', strtolower($obs['nom_referentiel']));
 		// cache
 		self::$cache['getNomCommun'][$cache_id] = $nom;
 		return $nom;
+	}
+	/* Cette fonction initialise le cache des données baseflor en 1 fois, sur la liste des observations à exporter.
+	   Ainsi, les appels successifs à baseflor_ligne() ne sont pas couteux (pas de requête SQL) */
+	static function baseflor_preload($cel, $obsids) {
+		if(!$obsids) return;
+		if(!self::referenceTableExiste($cel)) return NULL;
+		$req = sprintf("SELECT referentiel, num_nom_retenu, %s FROM cel_references r" .
+					   " INNER JOIN cel_obs c ON (r.num_nom_retenu = c.nom_ret_nn)" .
+					   " WHERE c.id_observation IN (%s)",
+					   //" AND catminat_code IS NOT NULL", // TODO: suppression des NULL ici signifie que le cache sera partiel...
+					   implode(',', array_keys(self::$baseflor_col)),
+					   implode(',', $obsids));
+		$res = $cel->requeter($req);
+		foreach($res as $v) {
+			$data = $v;
+			unset($data['referentiel']); // non nécessaire
+			unset($data['num_nom_retenu']); // non nécessaire
+			self::$cache['getBaseflor'][$v['referentiel'] . '-' . $v['num_nom_retenu']] = $data;
+		}
+		return NULL;
+	}
+	static function baseflor_ligne($cel, $obs, &$ligne) {
+		if(! $obs['nom_ret_nn']) {
+			$ligne = array_merge($ligne, array_fill(0, count(self::$baseflor_col), 'A'));
+			return;
+		}
+		if(! self::referenceTableExiste($cel)) {
+			$ligne = array_merge($ligne, array_fill(0, count(self::$baseflor_col), 'A'));
+			return;
+		}
+		list($referentiel) = explode(':', strtolower($obs['nom_referentiel']));
+		$cache_id = $referentiel . '-' . $obs['nom_ret_nn'];
+		// XXX: problème de valeurs NULL pour utiliser simplement isset() ?
+		// @ car getBaseflor[] n'est peut-être pas encore initialisé
+		if(@array_key_exists($cache_id, self::$cache['getBaseflor'])) {
+			$ligne = array_merge($ligne, self::$cache['getBaseflor'][$cache_id]);
+			return;
+		}
+		// pas de cache:
+		$data = $cel->executerRequete(sprintf("SELECT %s FROM cel_references " .
+											 "WHERE referentiel = '%s' AND num_nom_retenu = %d LIMIT 1",
+											 implode(', ', array_keys(self::$baseflor_col)),
+											 $referentiel,
+											 $obs['nom_ret_nn']),
+									 Cel::SQL_RETOUR_LIGNE);
+		if(! $data) {
+			$ligne = array_merge($ligne, array_fill(0, count(self::$baseflor_col), 'A'));
+			return;
+		}
+		// cache
 		self::$cache['getBaseflor'][$cache_id] = $data;
 		$ligne = array_merge($ligne, $data);

Subversion Repositories eFlore/Applications.cel

(root)/trunk/jrest/bibliotheque/FormateurGroupeColonne.php @ 3917 – Rev 1699 → 1702