Subversion Repositories eFlore/Applications.cel

 <?php
// declare(encoding='UTF-8');
/**
 * Service affichant les dernières photo publiques du CEL ouvrable sous forme de diaporama.
 * Encodage en entrée : utf8
 * Encodage en sortie : utf8
 *
 * Cas d'utilisation et documentation :
 * @link http://www.tela-botanica.org/wikini/eflore/wakka.php?wiki=AideCELWidgetPhoto
 *
 * Paramètres :
 * ===> extra = booléen (1 ou 0)  [par défaut : 1]
 * Affiche / Cache la vignette en taille plus importante au bas du widget.
 * ===> vignette = [0-9]+,[0-9]+  [par défaut : 4,3]
 * Indique le nombre de vignette par ligne et le nombre de ligne.
 *
 * @author              Jean-Pascal MILCENT <jpm@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>
 * @version     $Id$
 * @copyright   Copyright (c) 2010, Tela Botanica (accueil@tela-botanica.org)
 */
class Apa extends WidgetCommun {

        const DS = DIRECTORY_SEPARATOR;
        const SERVICE_DEFAUT = 'saisie';
        const WS_SAISIE = 'CelWidgetSaisie';
        const WS_UPLOAD = 'CelWidgetUploadImageTemp';
        const WS_IMG_LIST = 'celImage';
        const WS_OBS = 'CelObs';
        const WS_OBS_LIST = 'InventoryObservationList';
        const LANGUE_DEFAUT = 'fr';
        const PROJET_DEFAUT = 'apa';
        const WS_NOM = 'noms';
        const EFLORE_API_VERSION = '0.1';
        private $cel_url_tpl = null;
        /** Si spécifié, on ajoute une barre de navigation inter-applications */
        private $bar;
        //private $parametres_autorises = array('projet', 'type', 'langue', 'order');
        private $parametres_autorises = array(
                        'projet' => 'projet',
                        'type' => 'type',
                        'langue' => 'langue',
                        'order' => 'order'
        );
        /**
         * Méthode appelée par défaut pour charger ce widget.
         */
        public function executer() {
                $retour = null;
                // Pour la création de l'id du cache nous ne tenons pas compte du paramètre de l'url callback
                unset($this->parametres['callback']);
                extract($this->parametres);
                $this->bar = (isset($bar)) ? $bar : false;
                /* Le fichier Framework.php du Framework de Tela Botanica doit être appelé avant tout autre chose dans l'application.
                 Sinon, rien ne sera chargé.
                 L'emplacement du Framework peut varier en fonction de l'environnement (test, prod...). Afin de faciliter la configuration
                 de l'emplacement du Framework, un fichier framework.defaut.php doit être renommé en framework.php et configuré pour chaque installation de
                 l'application.
                 Chemin du fichier chargeant le framework requis */
                $framework = dirname(__FILE__).'/framework.php';
                if (!file_exists($framework)) {
                        $e = "Veuillez paramêtrer l'emplacement et la version du Framework dans le fichier $framework";
                        trigger_error($e, E_USER_ERROR);
                } else {
                        // Inclusion du Framework
                        require_once $framework;
                        // Ajout d'information concernant cette application
                        Framework::setCheminAppli(__FILE__);// Obligatoire
                        Framework::setInfoAppli(Config::get('info'));// Optionnel

                }
                $langue = (isset($langue)) ? $langue : self::LANGUE_DEFAUT;
                $this->langue = I18n::setLangue($langue);
                $this->parametres['langue'] = $langue;

                if (!isset($mode)) {
                        $mode = self::SERVICE_DEFAUT;
                }
                if (!isset($projet)) {
                        $this->parametres['projet'] = self::PROJET_DEFAUT;
                }

                $methode = $this->traiterNomMethodeExecuter($mode);
                if (method_exists($this, $methode)) {
                        $retour = $this->$methode();
                } else {
                        $this->messages[] = "Ce type de service '$methode' n'est pas disponible.";
                }

                $contenu = '';
                if (is_null($retour)) {
                        $this->messages[] = 'La ressource demandée a retourné une valeur nulle.';
                } else {
                        if (isset($retour['donnees'])) {
                                $retour['donnees']['conf_mode'] = $this->config['parametres']['modeServeur'];
                                $retour['donnees']['prod'] = ($this->config['parametres']['modeServeur'] == 'prod');
                                $retour['donnees']['bar'] = $this->bar;
                                $retour['donnees']['url_base'] = sprintf($this->config['chemins']['baseURLAbsoluDyn'], $this->config['apa']['cheminDos']);
                                $retour['donnees']['url_ws_annuaire'] = sprintf($this->config['chemins']['baseURLServicesAnnuaireTpl'], 'utilisateur/identite-par-courriel/');
                                $retour['donnees']['url_ws_apa'] = sprintf($this->config['chemins']['baseURLServicesCelTpl'], self::WS_SAISIE);
                                $retour['donnees']['url_ws_obs'] = sprintf($this->config['chemins']['baseURLServicesCelTpl'], self::WS_OBS);
                                $retour['donnees']['url_ws_obs_list'] = sprintf($this->config['chemins']['baseURLServicesCelTpl'], self::WS_OBS_LIST);
                                $retour['donnees']['url_ws_upload'] = sprintf($this->config['chemins']['baseURLServicesCelTpl'], self::WS_UPLOAD);
                                $retour['donnees']['url_ws_cel_imgs'] = sprintf($this->config['chemins']['baseURLServicesCelTpl'], self::WS_IMG_LIST) . '/liste-ids?obsId=';
                                $retour['donnees']['url_ws_cel_img_url'] = str_replace ( '%s.jpg', '{id}XS', $this->config['chemins']['celImgUrlTpl'] );
                                $retour['donnees']['mode'] = $mode;
                                $retour['donnees']['langue'] = $langue;
                                if( isset( $this->parametres['squelette'] ) ) {
                                        $squelette = dirname(__FILE__).self::DS.'squelettes'.self::DS. $this->parametres['squelette'].'.tpl.html';
                                } else {
                                        $squelette = dirname(__FILE__).self::DS.'squelettes'.self::DS.$retour['squelette'].'.tpl.html';
                                }
                                $contenu = $this->traiterSquelettePhp($squelette, $retour['donnees']);
                        } else {
                                $this->messages[] = 'Les données à transmettre au squelette sont nulles.';
                        }
                }
                $this->envoyer($contenu);
        }


        private function executerSaisie() {
                $retour = array();
                $retour['squelette'] = 'apa';
                $retour['donnees']['general'] = I18n::get('General');
                $retour['donnees']['observateur'] = I18n::get('Observateur');
        $retour['donnees']['observation'] = I18n::get('Observation');
        $retour['donnees']['arbres'] = I18n::get('Arbres');
        $retour['donnees']['image'] = I18n::get('Image');
        $retour['donnees']['plantes'] = I18n::get('Plantes');
        $retour['donnees']['lichens'] = I18n::get('Lichens');
        $retour['donnees']['chpsupp'] = I18n::get('Chpsupp');
        $retour['donnees']['resume'] = I18n::get('Resume');
                $retour['donnees']['widget'] = $this->rechercherProjet();
                return $retour;
        }

        /* Recherche si le projet existe sinon va chercher les infos de base */
        private function rechercherProjet() {
                $tab = array();
                $url = $this->config['apa']['celUrlTpl'].'?projet='.$this->parametres['projet'].'&langue='.$this->parametres['langue'];
                $json = $this->getDao()->consulter($url);
                $tableau = json_decode($json, true);
                $tableau = $this->traiterParametres($tableau[0]);
                if (
                        isset($this->parametres['squelette']) &&
                        ($this->parametres['squelette'] === 'plantes' || $this->parametres['squelette'] === 'lichens')
                ) {
                        $tableau['type_especes'] = 'liste';
                        if ( $this->parametres['squelette'] === 'lichens' ) {
                                $tableau['referentiel'] = 'taxref';
                        }
                }
                $tableau['especes'] = $this->rechercherInfosEspeces($tableau);
                if ($tableau['milieux'] != "") {
                        $tableau['milieux'] = explode(";", $tableau['milieux']);
                } else {
                        $tableau['milieux'] = array();
                }
                if (isset($tableau['motscles'])) {
                    $tableau['tag-obs'] = $tableau['tag-img'] = $tableau['motscles'];
                }
                $tableau['chpSupp'] = $tab;
                $langue_projet_url = ( isset ( $this->parametres['langue'] ) && $this->parametres['langue'] !== 'fr' ) ? '_' . $this->parametres['langue'] : '';
                $tableau['chemin_fichiers'] = sprintf( $this->config['chemins']['baseURLAbsoluDyn'], $this->config['apa']['imgProjet'] . '/' );
                return $tableau;
        }

        // remplace certains parametres définis en bd par les parametres définis dans l'url
        private function traiterParametres($tableau) {
                $criteres = array('tag-obs', 'tag-img', 'projet', 'titre', 'logo');
                foreach($this->parametres as $nom_critere => $valeur_critere) {
                        if (in_array($nom_critere, $criteres)) {
                                $tableau[$nom_critere] = $valeur_critere;
                        }
                }
                return $tableau;
        }

        private function rechercherInfosEspeces( $infos_projets ) { //print_r($infos_projets);exit;
                $retour = array();
                $referentiel = $infos_projets['referentiel'];
                $urlWsNsTpl = $this->config['chemins']['baseURLServicesEfloreTpl'];
                $retour['url_ws_autocompletion_ns'] = sprintf( $urlWsNsTpl, self::EFLORE_API_VERSION, $referentiel, self::WS_NOM );;
                $retour['url_ws_autocompletion_ns_tpl'] = sprintf( $urlWsNsTpl, self::EFLORE_API_VERSION, '{referentiel}', self::WS_NOM );
                $retour['ns_referentiel'] = $referentiel;

                if ( isset( $infos_projets['type_especes'] ) ) {

                        switch ( $infos_projets['type_especes'] ) {
                                case 'fixe' :
                                        $retour = $this->chargerInfosTaxon( $infos_projets['referentiel'], $infos_projets['especes'] );
                                        break;
                                case 'referentiel' : break;
                                case 'liste' :
                                        $referentiel = $infos_projets['referentiel'];
                                        $retour['taxons'] = $this->recupererListeNomsSci();
                                        break;
                        }
                } else if ( isset( $infos_projets['referentiel'] ) ) {
                        $referentiel = $infos_projets['referentiel'];
                        if ( isset($infos_projets['num_nom'] ) ) {
                                $retour = $this->chargerInfosTaxon( $infos_projets['referentiel'], $infos_projets['num_nom'] );
                        }
                }
                return $retour;
        }

        /**
         * Consulte un webservice pour obtenir des informations sur le taxon dont le
         * numéro nomenclatural est $num_nom (ce sont donc plutôt des infos sur le nom
         * et non le taxon?)
         * @param string|int $num_nom
         * @return array
         */
        protected function chargerInfosTaxon( $referentiel, $num_nom ) {
                $url_service_infos = sprintf( $this->config['chemins']['infosTaxonUrl'], $referentiel, $num_nom );
                $infos = json_decode( file_get_contents( $url_service_infos ) );
                // trop de champs injectés dans les infos espèces peuvent
                // faire planter javascript
                $champs_a_garder = array( 'id', 'nom_sci','nom_sci_complet', 'nom_complet', 'famille','nom_retenu.id', 'nom_retenu_complet', 'num_taxonomique' );
                $resultat = array();
                $retour = array();
                if ( isset( $infos ) && !empty( $infos ) ) {
                        $infos = (array) $infos;
                        if ( isset( $infos['nom_sci'] ) && $infos['nom_sci'] !== '' ) {
                                $resultat = array_intersect_key( $infos, array_flip($champs_a_garder ) );
                                $resultat['retenu'] = ( $infos['id'] == $infos['nom_retenu.id'] ) ? 'true' : 'false';
                                $retour['espece_imposee'] = true;
                                $retour['nn_espece_defaut'] = $nnEspeceImposee;
                                $retour['nom_sci_espece_defaut'] = $resultat['nom_complet'];
                                $retour['infos_espece'] = $this->array2js( $resultat, true );
                        }
                }
                return $retour;
        }

        protected function getReferentielImpose() {
                $referentiel_impose = true;
                if (!empty($_GET['referentiel']) && $_GET['referentiel'] !== 'autre') {
                        $this->ns_referentiel = $_GET['referentiel'];
                } else if (isset($this->configProjet['referentiel'])) {
                        $this->ns_referentiel = $this->configProjet['referentiel'];
                } else if (isset($this->configMission['referentiel'])) {
                        $this->ns_referentiel = $this->configMission['referentiel'];
                } else {
                        $referentiel_impose = false;
                }
                return $referentiel_impose;
        }

        /**
         * Trie par nom français les taxons lus dans le fichier tsv
         */
        protected function recupererListeNomsSci() {
                $taxons = $this->recupererListeTaxon();
                if (is_array($taxons)) {
                        $taxons = self::trierTableauMd($taxons, array('nom_fr' => SORT_ASC));
                }
                return $taxons;
        }

        /**
         * @TODO documenter
         * @return array
         */
        protected function recupererListeNoms() {
                $taxons = $this->recupererListeTaxon();
                $nomsAAfficher = array();
                $nomsSpeciaux = array();
                if (is_array($taxons)) {
                        foreach ($taxons as $taxon) {
                                $nomSciTitle = $taxon['nom_ret'].
                                ($taxon['nom_fr'] != '' ? ' - '.$taxon['nom_fr'] : '' ).
                                ($taxon['nom_fr_autre'] != '' ? ' - '.$taxon['nom_fr_autre'] : '' );
                                $nomFrTitle = $taxon['nom_sel'].
                                ($taxon['nom_ret'] != $taxon['nom_sel']? ' - '.$taxon['nom_ret'] : '' ).
                                ($taxon['nom_fr_autre'] != '' ? ' - '.$taxon['nom_fr_autre'] : '' );

                                if ($taxon['groupe'] == 'special') {
                                        $nomsSpeciaux[] = array(
                                                        'num_nom' => $taxon['num_nom_sel'],
                                                        'nom_a_afficher' => $taxon['nom_fr'],
                                                        'nom_a_sauver' => $taxon['nom_sel'],
                                                        'nom_title' => $nomSciTitle,
                                                        'nom_type' => 'nom-special');
                                } else {
                                        $nomsAAfficher[] = array(
                                                        'num_nom' => $taxon['num_nom_sel'],
                                                        'nom_a_afficher' => $taxon['nom_sel'],
                                                        'nom_a_sauver' => $taxon['nom_sel'],
                                                        'nom_title' => $nomSciTitle,
                                                        'nom_type' => 'nom-sci');
                                        $nomsAAfficher[] = array(
                                                        'num_nom' => $taxon['num_nom_sel'],
                                                        'nom_a_afficher' => $taxon['nom_fr'],
                                                        'nom_a_sauver' => $taxon['nom_fr'],
                                                        'nom_title' => $nomFrTitle,
                                                        'nom_type' => 'nom-fr');
                                }
                        }
                        $nomsAAfficher = self::trierTableauMd($nomsAAfficher, array('nom_a_afficher' => SORT_ASC));
                        $nomsSpeciaux = self::trierTableauMd($nomsSpeciaux, array('nom_a_afficher' => SORT_ASC));
                }
                return array('speciaux' => $nomsSpeciaux, 'sci-et-fr' => $nomsAAfficher);
        }

        /**
         * Lit une liste de taxons depuis un fichier tsv fourni
         */
        protected function recupererListeTaxon() {
                $taxons = array();
                $nom_fichier = ($this->parametres['squelette'] === 'lichens') ? 'lichens_taxons.tsv' : 'sauvages_taxons.tsv';
                $fichier_tsv = dirname(__FILE__) . self::DS . 'configurations' . self::DS . $nom_fichier;

                if ( file_exists( $fichier_tsv ) && is_readable( $fichier_tsv ) ) {
                        $taxons = $this->decomposerFichierTsv( $fichier_tsv );
                } else {
                        $this->debug[] = "Impossible d'ouvrir le fichier '$fichier_tsv'.";
                }
                return $taxons;
        }

        /**
         * Découpe un fihcier csv
         */
        protected function decomposerFichierTsv($fichier, $delimiter = "\t"){
                $header = null;
                $data = array();
                if (($handle = fopen($fichier, "r")) !== FALSE) {
                        while (($row = fgetcsv($handle, 1000, $delimiter)) !== FALSE) {
                                if (!$header) {
                                        $header = $row;
                                } else {
                                        $data[] = array_combine($header, $row);
                                }
                        }
                        fclose($handle);
                }
                return $data;
        }

        /**
         * Convertit un tableau PHP en Javascript - @WTF pourquoi ne pas faire un json_encode ?
         * @param array $array
         * @param boolean $show_keys
         * @return une portion de JSON représentant le tableau
         */
        protected function array2js($array,$show_keys) {
                $tableauJs = '{}';
                if (!empty($array)) {
                        $total = count($array) - 1;
                        $i = 0;
                        $dimensions = array();
                        foreach ($array as $key => $value) {
                                if (is_array($value)) {
                                        $dimensions[$i] = array2js($value,$show_keys);
                                        if ($show_keys) {
                                                $dimensions[$i] = '\"'.$key.'\":'.$dimensions[$i];
                                        }
                                } else {
                                        $dimensions[$i] = '\"'.addslashes($value).'\"';
                                        if ($show_keys) {
                                                $dimensions[$i] = '\"'.$key.'\":'.$dimensions[$i];
                                        }
                                }
                                if ($i == 0) {
                                        $dimensions[$i] = '{'.$dimensions[$i];
                                }
                                if ($i == $total) {
                                        $dimensions[$i].= '}';
                                }
                                $i++;
                        }
                        $tableauJs = implode(',', $dimensions);
                }
                return $tableauJs;
        }
}
?>