<?php
/**
 * @package   jrest
 * @author    Aurélien Peronnet <aurelien@tela-botania.org>
 * @author    Raphaël Droz <raphael@tela-botania.org>
 * @copyright 2010, 2013 Tela-Botanica
 * @license   http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL
 *
 * Librairie de liaison d'images et d'observation à des mots clés
 */

class LiaisonMotsCles extends Cel {
	
	const SEPARATEUR_MOT_CLE_TEXTE = ',';
	private $mode = 'obs';
	
	public function LiaisonMotsCles($config, $mode) {
		parent::__construct($config);
		$this->mode = $mode;
	}
	
	public function ajouterLiaisonMotsCles($id_utilisateur, $ids_images_ou_obs, $mots_cles) {
		$mode = $this->mode;
		
		// le mot clé ignore est spécifique mysql, mais il est utilisé ici pour des raisons
		// de performance, à remplacer par un test sur les mots clés déjà existant si ça gène
		$requete_liaison_mots_cles = sprintf('INSERT IGNORE INTO cel_%s_mots_cles '.
											 '(%s, %s) VALUES ',
											 $mode,
											 $mode == 'obs' ? 'id_observation' : 'id_image',
											 $mode == 'obs' ? 'id_mot_cle_obs' : 'id_mot_cle_image');
		$insert = array();
		foreach($ids_images_ou_obs as $id_image_ou_obs) {
			foreach($mots_cles as $mot) {
				// TODO!! ce_utilisateur
				$insert[] = '('.$id_image_ou_obs.','.Cel::db()->proteger($mot).')';
			}
		}

		if(!$insert) {
			// peut arriver, par exemple lorsqu'on décoche tous les mots-clef associés à une image
			$this->logger('CEL_bugs', 'Pas de mot-clef à ajouter à des '.$mode.' : '. implode(',', $ids_images_ou_obs));
		}
		else {
			$resultat_liaison_mots_cles = Cel::db()->executer($requete_liaison_mots_cles . implode(',',$insert));
			if(! $resultat_liaison_mots_cles) {
				$this->logger('CEL_bugs', 'Erreur d\'ajout de mots clés à des '.$mode.' : '.$requete_liaison_mots_cles);	
				// ne pas retourner car si nous sommes passés par InventoryKeyWordImageLink updateElement(),
				// alors celui-ci à *purgé* les mots-clefs en amont et compte sur nous pour faire une réinitialisation
				/// correcte ...
				// return FALSE;
			}
		}

		// ... donc dans tous les cas nous devons conserver une cohérence entre les deux modes de stockage des mots-clefs
		$ret = TRUE;
		foreach($ids_images_ou_obs as $id_image_ou_obs) {
			$bool = self::regenererIndexTexteMotCle($id_image_ou_obs, $id_utilisateur, $mode);
			$ret = $ret & ($bool !== FALSE); // peut légitimement retourner 0
		}
		return $ret;
	}
	
	public function supprimerLiaisonMotsClesEtRegenererIndexTexte($id_utilisateur, $ids_images_ou_obs, $mots_cles) {
		
		$retour = $this->supprimerLiaisonMotsCles($id_utilisateur, $ids_images_ou_obs, $mots_cles);
		
		foreach($ids_images_ou_obs as $image_ou_obs) {
			self::regenererIndexTexteMotCle($image_ou_obs, $id_utilisateur, $this->mode);
		}	
		
		return $retour;
	}
	
	public function supprimerLiaisonMotsCles($id_utilisateur, $ids_images_ou_obs, $mots_cles) {
		
		$champ_objet_lie = ($this->mode == 'obs') ? 'id_observation' : 'id_image'; 
		$champ_mot_cle = ($this->mode == 'obs') ? 'id_mot_cle_obs' : 'id_mot_cle_image';
		
		$requete_suppression_liaison_mot_cle = 'DELETE FROM cel_'.$this->mode.'_mots_cles WHERE '.
											   $champ_objet_lie.' IN ('.implode(',',$ids_images_ou_obs).') '.
											   'AND '.$champ_mot_cle.' IN ('.implode(',',$mots_cles).')';
		
		$resultat_suppression_mot_cle = Cel::db()->executer($requete_suppression_liaison_mot_cle);

		if ($requete_suppression_liaison_mot_cle !== false) return TRUE;

		$this->logger("Erreur de suppression des mots clés de plusieurs ".$this->mode." : $requete");
		return FALSE;
	}
	
	public function supprimerToutesLiaisonsPourIdImageOuObs($id_utilisateur, $ids_images_ou_obs) {
		
		$champ_objet_lie = ($this->mode == 'obs') ? 'id_observation' : 'id_image'; 
		$champ_mot_cle = ($this->mode == 'obs') ? 'id_mot_cle_obs' : 'id_mot_cle_image';
		
		$requete_suppression_liaison_mot_cle = 'DELETE FROM cel_'.$this->mode.'_mots_cles WHERE '.
											   $champ_objet_lie.' IN ('.implode(',',$ids_images_ou_obs).') ';
		
		$resultat_suppression_mot_cle = Cel::db()->executer($requete_suppression_liaison_mot_cle);

		if ($requete_suppression_liaison_mot_cle !== false) {
			return TRUE;
		}

		$this->logger("Erreur de suppression des mots clés de plusieurs ".$this->mode." : $requete");
		return FALSE;
	}
	
	public function supprimerToutesLiaisonsPourIdMotCle($id_utilisateur, $tableau_ids_mots_cles) {
				
		$champ_objet_lie = ($this->mode == 'obs') ? 'id_observation' : 'id_image';
		$champ_mot_cle = ($this->mode == 'obs') ? 'id_mot_cle_obs' : 'id_mot_cle_image';
			
		$chaine_mot_cles_ids = '('.implode(',', $tableau_ids_mots_cles).')';
		
		$requete_objets_lies_mot_cle = 'SELECT '.$champ_objet_lie.' as id FROM cel_'.$this->mode.'_mots_cles WHERE '.
		$champ_mot_cle.' IN '.$chaine_mot_cles_ids;
		
		$requete_suppression_liaison_mot_cle = 'DELETE FROM cel_'.$this->mode.'_mots_cles WHERE '.
		$champ_mot_cle.' IN '.$chaine_mot_cles_ids;
				
		$resultat_suppression_mot_cle = Cel::db()->executer($requete_suppression_liaison_mot_cle);
	
		$resultat_requete_objets_lies_mot_cle = Cel::db()->requeter($requete_objets_lies_mot_cle);
		foreach($resultat_requete_objets_lies_mot_cle as $objet_lie) {
			self::regenererIndexTexteMotCle($objet_lie['id'], $id_utilisateur, $this->mode);
		}
	
		if ($requete_suppression_liaison_mot_cle !== false) {
			$retour = true;
		} else {
			$message = "Erreur de suppression des mots clés de plusieurs ".$this->mode." : $requete";
			$this->logger($message);
				
			$retour = false;
		}
	
		return $retour;
	}
		
	static private function regenererIndexTexteMotCle($id_image_ou_obs, $identifiant_utilisateur, $mode) {
		$mots_cles = self::obtenirMotsClesTexte($id_image_ou_obs, $identifiant_utilisateur, $mode);
		$mots_cles_texte_chaine = "";
		if (count($mots_cles) > 0) {
			$mots_cles_texte_chaine = self::formaterTableauMotCleTextePourInsertion($mots_cles);
		}

		// self::executerRequeteMiseAJourMotCleTexte($mots_cles_texte_chaine, $id_image_ou_obs, $identifiant_utilisateur, $mode);
		return Cel::db()->executer(sprintf('UPDATE %s SET mots_cles_texte = %s WHERE %s = %s AND ce_utilisateur = %s -- %s:%d',
										   $mode == 'obs' ? 'cel_obs' : 'cel_images',
										   Cel::db()->proteger($mots_cles_texte_chaine),
										   $mode == 'obs' ? 'id_observation' : 'id_image',
										   Cel::db()->proteger($id_image_ou_obs),
										   Cel::db()->proteger($identifiant_utilisateur),
										   __FILE__ , __LINE__));
		
	}
	
	private static function obtenirMotsClesTexte($id_image_ou_obs, $identifiant_utilisateur, $mode) {
		return Cel::db()->requeter(sprintf('SELECT mot_cle FROM cel_mots_cles_%1$s WHERE id_mot_cle_%2$s IN '.
										   ' (SELECT id_mot_cle_%2$s FROM cel_%1$s_mots_cles WHERE %3$s = %4$s)'.
										   ' AND id_utilisateur = %5$s -- %6$s:%7$d',
										   $mode,
										   $mode == 'obs' ? 'obs' : 'image',
										   $mode == 'obs' ? 'id_observation' : 'id_image',
										   Cel::db()->proteger($id_image_ou_obs),
										   Cel::db()->proteger($identifiant_utilisateur),
										   __FILE__ , __LINE__));
	}
	
	private static function formaterTableauMotCleTextePourInsertion($tableau_mots_cles_texte) {
		$mot_cles_texte_chaine = '';
		
		if (is_array($tableau_mots_cles_texte)) { 
			foreach ($tableau_mots_cles_texte as $mot_cle) {
				$mot_cles_texte_chaine .= $mot_cle['mot_cle'].self::SEPARATEUR_MOT_CLE_TEXTE;
			}
		}
		
		$mot_cles_texte_chaine = rtrim($mot_cles_texte_chaine, self::SEPARATEUR_MOT_CLE_TEXTE);
		
		return $mot_cles_texte_chaine;
	}
	
	static function nettoyerMotsCles($chaine) {
		$valeur = str_replace('null', '', $chaine);
		$valeur = trim($valeur, ';;');
		
		return $valeur;
	}
	
	/**
	* Fonction utilisée pour importer les anciens mots clés saisis dans les widget dans un compte identifié
	* Dans ce cas là, le widget remplit la case id_utilisateur par le mail indiqué lors de la saisie
	* @param string $mail_utilisateur
	* @param string $id_utilisateur
	*/
	public function migrerMotsClesMailVersId($mail_utilisateur, $infos_utilisateur) {
		// ATTENTION : cette fonction suppose que l'utilisateur n'ai pas déjà de mots clés dans le CEL
		// avec l'identifiant $id_utilisateur ce qui est normalement le cas
		$requete_migration_mc_images = 'UPDATE cel_mots_cles_images SET '.
		'id_utilisateur = '.Cel::db()->proteger($infos_utilisateur['id_utilisateur']).' '.
		'WHERE id_utilisateur = '.Cel::db()->proteger($mail_utilisateur).' ';

		$migration_mc_images = Cel::db()->executerRequeteSimple($requete_migration_mc_images);
		
		// ATTENTION : cette fonction suppose que l'utilisateur n'ai pas déjà de mots clés dans le CEL
		// avec l'identifiant $id_utilisateur ce qui est normalement le cas
		$requete_migration_mc_obs = 'UPDATE cel_mots_cles_obs SET '.
		'id_utilisateur = '.Cel::db()->proteger($infos_utilisateur['id_utilisateur']).' '.
		'WHERE id_utilisateur = '.Cel::db()->proteger($mail_utilisateur).' ';
		
		$migration_mc_obs = Cel::db()->executerRequeteSimple($requete_migration_mc_obs);
		
		// Migration des liaisons de mots clés
		$requete_migration_mc_liaisons_obs = 'UPDATE cel_obs_mots_cles SET '.
		'id_utilisateur = '.Cel::db()->proteger($infos_utilisateur['id_utilisateur']).' '.
		'WHERE id_utilisateur = '.Cel::db()->proteger($mail_utilisateur).' ';
		
		$migration_mc_liaisons_obs = Cel::db()->executerRequeteSimple($requete_migration_mc_liaisons_obs);
		
		$requete_migration_mc_liaisons_images = 'UPDATE cel_images_mots_cles SET '.
		'id_utilisateur = '.Cel::db()->proteger($infos_utilisateur['id_utilisateur']).' '.
		'WHERE id_utilisateur = '.Cel::db()->proteger($mail_utilisateur).' ';
		
		$migration_mc_liaisons_images = Cel::db()->executerRequeteSimple($requete_migration_mc_liaisons_images);
	
		return $migration_mc_images !== false &&
				$migration_mc_obs  !== false && 
				$migration_mc_liaisons_obs !== false && 
				$migration_mc_liaisons_images  !== false;
	}
}
?>