Subversion Repositories eFlore/Applications.cel

<?php

// declare(encoding='UTF-8');

/**

 * Classe de gestion de l'ajout, modification et suppression des champs supplémentaires des obs et images.

 *

 * @internal   Mininum PHP version : 5.2

 * @category   CEL

 * @package    Services

 * @subpackage Bibliothèques

 * @version    0.1

 * @author     Mathias CHOUET <mathias@tela-botanica.org>

 * @author     Raphaël Droz <raphael@tela-botania.org>

 * @author     Jean-Pascal MILCENT <jpm@tela-botanica.org>

 * @author     Aurelien PERONNET <aurelien@tela-botanica.org>

 * @license    GPL v3 <http://www.gnu.org/licenses/gpl.txt>

 * @license    CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>

 * @copyright  1999-2014 Tela Botanica <accueil@tela-botanica.org>

 */

class GestionChampsEtendus extends Cel {

	private $mode = null;

	private $table_obs_etendus = null;

	private $champ_id = null;

	public function __construct($config, $mode = 'obs') {

		parent::__construct($config);

		$this->mode = $mode;

		$this->table_obs_etendus = 'extended_field_occurrence';

		$this->champ_id = 'occurrence_id';

	}

	/**

	* Renvoie true ou false suivant que l'element indiqué possède une valeur

	* pour la clé indiquée

	*

	* @param int $id_element_lie

	* @param string $cle

	* @param string $valeur

	* @return bool

	*/

	public function existe($id_element_lie, $cle) {

		$id = Cel::db()->proteger($id_element_lie);

		$cle = Cel::db()->proteger($cle);

		$requete = 'SELECT COUNT(*) >= 1 AS existe '.

			"FROM {$this->table_obs_etendus} ".

			"WHERE {$this->champ_id} = $id ".

			"	AND extended_field_id = $cle ".

			' -- '.__FILE__.':'.__LINE__;;

		$resultat = Cel::db()->requeter($requete);

		return ($resultat[0]['existe'] == '1');

	}

	/**

	* Renvoie tous les champs étendus associé à l'élément passé en paramètre

	*

	* @param int $id_element_lie

	* @return array tableau associatif des champs de la table etendu

	*/

	public function consulter($id_element_lie) {

		$id = Cel::db()->proteger($id_element_lie);

		$requete = 'SELECT * '.

			"FROM {$this->table_obs_etendus} ".

			"WHERE {$this->champ_id} = $id ".

			' -- '.__FILE__.':'.__LINE__;

		$resultat = Cel::db()->requeter($requete);

		return $resultat;

	}

	/**

	* Renvoie tous les champs étendus associés aux éléments passés en paramètre.

	* Retour sous forme de tableau associatif de tableau d'objets ChampEtendu.

	* Les objets ChampEtendu sont regroupés par id d'élement.

	*

	* @param array $ids_element_lies tableau d'id des éléments liés (obs ou image).

	* @return array tableau associatif de tableau d'objets ChampEtendu.

	*/

	public function consulterParLots(Array $ids_element_lies) {

		$champs_etendus_par_element = array();

		if (!empty($ids_element_lies)) {

			$ids_element_lies = array_map(array(Cel::db(), 'proteger'),$ids_element_lies);

			$ids = implode(',', $ids_element_lies);

			$requete = "SELECT occurrence_id, occurrence_id as id_observation, value as valeur, `field_id`as cle FROM {$this->table_obs_etendus} o join extended_field f

			     on f.`id` =  extended_field_id WHERE {$this->champ_id} IN ($ids) ";

			$resultats = Cel::db()->requeter($requete);

			foreach ($resultats as &$ligne) {

				$id_element = $ligne[$this->champ_id];

				if (!isset($champs_etendus_par_element[$id_element])) {

					$champs_etendus_par_element[$id_element] = array();

				}

				$champ_etendu = new ObsEtendue();

				$champ_etendu->id = $id_element;

				$champ_etendu->cle = $ligne['cle'];

				$champ_etendu->valeur = $ligne['valeur'];

				$champs_etendus_par_element[$id_element][] = $champ_etendu;

			}

		}

		return $champs_etendus_par_element;

	}

	/**

	 * Ajoute un champ étendu.

	 * Si la clé existe déjà, seule valeur du champ est mise à jour

	 *

	 * @param ChampEtendu $champ_etendu

	 * @return bool true si l'ajout a eu lieu

	 */

	public function ajouter(ChampEtendu $champ_etendu) {

		$id = Cel::db()->proteger($champ_etendu->id);

		$cle = Cel::db()->proteger($champ_etendu->cle);

		$valeur = Cel::db()->proteger($champ_etendu->valeur);

		$requete = "INSERT INTO {$this->table_obs_etendus} ".

			"( {$this->champ_id}, extended_field_id, value) ".

			"VALUES ($id, $cle, $valeur) ".

			"ON DUPLICATE KEY UPDATE value = VALUES(value) ".

			' -- '.__FILE__.':'.__LINE__;

		// la partie on duplicate key est spécifique mysql mais il sera facile de s'en passer le jour

		// où l'on change de sgbd

		$ajout = Cel::db()->executer($requete);

		return ($ajout !== false);

	}

	/**

	 * Ajoute plusieurs champs étendus à la fois.

	 * Si la clé existe déjà, seule la valeur du champ est mise à jour

	 *

	 * @param array $champs_etendus tableau d'objets ChampEtendu

	 * @return bool true si l'ajout a eu lieu

	 */

	public function ajouterParLots(Array $champs_etendus, $projet = null) {

	    if (! $champs_etendus) return TRUE; // le tableau ... vide à été inséré

	    $ajout = false;

	    $label_champs_etendus = new GestionChampsEtendus2($this->config);

	    $champs_etendus_id = $label_champs_etendus->consulterGroupesChampsEtendusPredefinis($projet);

	    if ($champs_etendus_id !== null) {

	        $lignes = array();

	        foreach ($champs_etendus as $champ_etendu) {

	            if (isset($champs_etendus_id[$champ_etendu->cle])) {

	                $id = Cel::db()->proteger($champ_etendu->id);

	                $cle = Cel::db()->proteger($champs_etendus_id[$champ_etendu->cle]['id']);

	                $valeur = Cel::db()->proteger($champ_etendu->valeur);

	                $lignes[] = "($id, $cle, $valeur)";

	            }

	        }

	        // la partie on duplicate key est spécifique mysql mais il sera facile de s'en passer le jour

	        // où l'on change de sgbd

	        $ajout = Cel::db()->executer(sprintf(

	            "INSERT INTO %s (%s, extended_field_id, value) VALUES %s ON DUPLICATE KEY UPDATE value = VALUES(valeur) -- %s:%d",

	            $this->table_obs_etendus,

	            $this->champ_id,

	            implode(',', $lignes),

	            __FILE__, __LINE__));

	    }

	    return ($ajout !== false);

	}

	/**

	 * Modifie un champ étendu associé à l'élément passé en paramètre

	 *

	 * @param ChampEtendu $champ_etendu

	 * @return bool true si la modification a eu lieu

	 */

	public function modifier(ChampEtendu $champ_etendu) {

		$id = Cel::db()->proteger($champ_etendu->id);

		$cle = Cel::db()->proteger($champ_etendu->cle);

		$valeur = Cel::db()->proteger($champ_etendu->valeur);

		$requete = "UPDATE {$this->table_obs_etendus} ".

			"SET value = $valeur ".

			"WHERE extended_field_id = $cle".

			"	AND {$this->champ_id} = $id ".

			' -- '.__FILE__.':'.__LINE__;

		$modif = Cel::db()->executer($requete);

		return ($modif !== false);

	}

	/**

	* Supprime le champ champ étendu associé à l'élément et au nom de clé passés en paramètre

	*

	* @param int $id_element_lie

	* @param string $cle

	* @return bool

	*/

	public function supprimer($id_element_lie, $cle) {

		$id = Cel::db()->proteger($id_element_lie);

		$cle = Cel::db()->proteger($cle);

		$requete = "DELETE FROM {$this->table_obs_etendus} ".

			"WHERE extended_field_id = $cle ".

			"AND {$this->champ_id} = $id ".

			' -- '.__FILE__.':'.__LINE__;

		$suppr = Cel::db()->executer($requete);

		return ($suppr !== false);

	}

	/**

	* Supprime tous les champs champ étendu associés à l'élément passés en paramètre

	*

	* @param int $id_element_lie

	* @return bool

	*/

	public function vider($id_element_lie) {

		$id = Cel::db()->proteger($id_element_lie);

		$requete = "DELETE FROM {$this->table_obs_etendus} ".

			"WHERE {$this->champ_id} = $id ".

			' -- '.__FILE__.':'.__LINE__;

		$suppr = Cel::db()->executer($requete);

		return ($suppr !== false);

	}

	/**

	* Supprime tous les champs champ étendu associés aux éléments passés en paramètre

	*

	* @param array $ids_elements_lies

	* @return bool

	*/

	public function viderParLots($ids_elements_lies) {

		$ids = $this->protegerTableau($ids_elements_lies);

		$requete = "DELETE FROM {$this->table_obs_etendus} ".

			"WHERE {$this->champ_id} IN (".implode(',',$ids).") ".

			' -- '.__FILE__.':'.__LINE__;

		$suppr = Cel::db()->executer($requete);

		return ($suppr !== false);

	}

	/**

	* Revnoie tous les intitules aux éléments passés en paramètre

	*

	* @param array $ids_elements_lies

	* @return bool

	*/

	public function consulterClesParLots($ids_elements_lies) {

		$cles_fmt = array();

		if(!empty($ids_elements_lies)) {

			$ids = $this->protegerTableau($ids_elements_lies);

			$requete = "SELECT `field_id`as cle  FROM `extended_field` f join extended_field_occurrence o

			     on f.`id` =  extended_field_id WHERE `occurrence_id` in  (".implode(',',$ids).") ".

				' -- '.__FILE__.':'.__LINE__;

			$cles = Cel::db()->requeter($requete);

			$i = 0;

			foreach($cles as &$cle) {

				$cles_fmt[$cle['cle']] = $i++;

			}

		}

		return array_values(array_flip($cles_fmt));

	}

	/**

	 * Transforme un label en clé.

	 * Supprime tous les accents et caractères spéciaux.

	 * Accole les mots pour créer un chatmot.

	 *

	 * @param string le label.

	 * @return string la clé correspondante

	 */

	public function transformerLabelEnCle($label) {

		//TODO: cette fonction est elle encore pertinente

		// maintenant que la notion de label est supprimée ?

		$cle = strtolower(trim($label));

		// Suppression des mots inutiles

		$mots_a_remplacer = array(' le ', ' la ', ' les ', ' des ', ' de ', " l'", " d'", ' à ', ' au ');

		$cle = str_replace($mots_a_remplacer, ' ', $cle);

		// Remplacement parenthèses et crochets et leurs contenus

		$cle = preg_replace('/\([^)]+\)/', '', $cle);

		$cle = preg_replace('/\[[^\]]+\]/', '', $cle);

		// Remplacement des accents (voir : http://www.weirdog.com/blog/php/supprimer-les-accents-des-caracteres-accentues.html )

		$cle = htmlentities($cle, ENT_NOQUOTES, 'utf-8');

		$cle = preg_replace('/&([A-za-z])(?:acute|cedil|circ|grave|orn|ring|slash|th|tilde|uml);/', '\1', $cle);

		$cle = preg_replace('/&([A-za-z]{2})(?:lig);/', '\1', $cle); // pour les ligatures e.g. 'œ'

		$cle = preg_replace('/&[^;]+;/', '', $cle); // supprime les autres caractères

		// Suppression définitive de tout ce qui n'est pas ASCII

		$cle = preg_replace('/[^a-zA-Z0-9 ]/', ' ', $cle);

		$cle = preg_replace('/\s+/', ' ', $cle);

		// Accollement des mots

		$cle = ucwords($cle);

		$cle = str_replace(' ', '', $cle);

		$cle{0} = strtolower($cle{0});

		return $cle;

	}

}