Subversion Repositories eFlore/Applications.cel

<?php
/**
 * @category  PHP
 * @package   jrest
 * @author    Aurélien Peronnet <aurelien@tela-botania.org>
 * @author    Raphaël Droz <raphael@tela-botania.org>
 * @copyright 2013 Tela-Botanica
 * @license   Licence CECILL <http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt>
 * @license       GPL v3 <http://www.gnu.org/licenses/gpl.txt>
 *
 */
class CelValidationObservation extends Cel {
        /**
        * Méthode appelée avec une requête de type POST avec un identifiant d'obs.
        * Modifie le taxon associé à une observation avec les informations envoyées
        * Utilisé par:
        * - del/services/modules/0.1/determinations/ValiderDetermination.php::modifierObservationParDetermination()
        *
        * @param int $uid[0] identifiant observation
        * @param pairs array tableau contenant les valeurs à modifier
        * @param pairs['obsKeywordDelete'] optional string: mot-clef à délier à cette observation
        */
        public function updateElement($uid, $pairs) {
                // ce service est uniquement destiné à être appelé en local, 
                // depuis le serveur lui même 
                // en particulier par l'application identiplante
                $this->controleAppelIpAutorisee();
                self::verifierParametresObligatoires($uid, $pairs);
                $id = $uid[0];

                $gestion_observation = new GestionObservation($this->config);
                $pairs = array_map('trim', $pairs);
                $utilisateur = $pairs['ce_utilisateur'];
                unset($pairs['ce_utilisateur'], $pairs['id_observation']);

                // mise à jour des mots-clefs suite à une validation:
                // typiquement, DEL modifierObservationParDetermination()
                // nous enverra obsKeywordDelete=aDeterminer en plus de certitude=Certaine
                $obsKeywordDelete = @trim($pairs['obsKeywordDelete']);
                // $imgKeywordDelete = @trim($pairs['imgKeywordDelete']);
                unset($pairs['obsKeywordDelete']); // , $pairs['imgKeywordDelete']);

                // complete les données de la proposition validée car:
                // 1) la table tb_del.del_commentaire ne contient pas toutes les informations nécessaires
                // 2) la table tb_del.del_commentaire ne *devrait* pas contenir beaucoup plus que nom_sel et nom_sel_nn
                // 3) la génération de ces données ici, au moment de l'UPDATE, est le meilleur garant de leur fiabilité
                $more_data = CelTaxonNomFrom::NN2($this->bdd, @$pairs['nom_sel_nn'], @$pairs['nom_referentiel']);
                if($more_data) $pairs = array_merge($pairs, $more_data);

                $modification = $gestion_observation->modifierObservationPublique($utilisateur, $id, $pairs);
                if($modification) {
                        $gestion_mots_cles = new GestionMotsClesChemin($this->config, 'obs');
                        // supression des éventuelles liaison de l'obs avec le mot clé contenu dans obsKeywordDelete
                        $supp_liaison_mot_cle = $gestion_mots_cles->supprimerLiaisonPourMotCleEtIdElementLie($obsKeywordDelete, $id, $utilisateur);
                        // TODO : quel impact de la valeur de retour ?
                        header("Content-Type: text/plain; charset=utf-8");
                        die("OK"); // attention, compatibilité avec ValiderDetermination.php de DEL !
                }
                // cf TODO: n'arrivera pas tant que l'UPDATE ajoutera systématiquement date_modification = now()
                elseif($modification === 0) {
            header("HTTP/1.0 304 Not Modified"); // XXX: PHP 5.4 // http_response_code(304); // Not Modified
                        header("Content-Type: text/plain; charset=utf-8");
                        die("Not Modified");
                }
                else {
                        header("HTTP/1.0 500 Internal Server Error"); // XXX: PHP: 5.4 // http_response_code(500); // Internal Server Error
                        header("Content-Type: text/plain; charset=utf-8");
                        die("Impossible de modifier l'observation associée à cet identifiant " . mysql_error());
                }
        }
        
        static function verifierParametresObligatoires($uid, $params) {
                if(!@intval($uid[0]) || !@intval($params['id_observation'])) {
                        header("Content-Type: text/plain; charset=utf-8");
                        die("L'identifiant d'observation doit être un entier");
                }

                // TODO: check sur 'id_observation' en tant que param est superflu ?
                // TODO: avec l'apparition de CelTaxonNomFrom, "nom_sel" devrait être optionnel
                // puisque nous regénérons des données valides avant l'update et puisque
                // seul un nom_sel_nn *valide* a pu nous provenir depuis une validation de proposition de la part de DEL.
                $params_obligatoires = array('id_observation', 'ce_utilisateur', 'nom_sel');
                foreach($params_obligatoires as $param) {
                        if(@trim($params[$param])) continue;
            header("HTTP/1.0 412 Precondition Failed"); // XXX: PHP: 5.4 // http_response_code(412); // Precondition Failed
                        header("Content-Type: text/plain; charset=utf-8");
                        die(sprintf("Paramètre %s manquant (parmi %s)", $param, implode(', ', $params_obligatoires)));
                }
        }
}

// pour les modifications touchants aux nom_sel(nn)/nom_ret(nn)/...
// les clefs du tableau (= les aliases de champs) correspondent aux champs attendus
// par tb_cel.cel_obs afin de pouvoir array_merger() et passer le résultat à modifierObservationPublique()
class CelTaxonNomFrom {
  const db = 'tb_eflore';
  const bdtfx = 'bdtfx_v2_00';
  const bdtxa = 'bdtxa_v1_01';
  const isfan = 'isfan_v2013';
  const bdtao = 'bdtao_v1_00';

  // get from num_nom(_sel)
  static function NN($db, $id, $ref) {
        if(!$db || !$id || !$ref) return FALSE;
        return $db->query(sprintf("SELECT num_nom_retenu AS nom_ret_nn, num_taxon AS nt, CONCAT(nom_sci, ' ', auteur) AS nom_sel".
                                                          " FROM cel_references".
                                                          " WHERE referentiel = %s AND num_nom = %d", $db->quote($ref), intval($id)))->fetch(PDO::FETCH_ASSOC);
  }

  // get from num_nom(_sel) directement via la DB
  // ce qui nous permet l'initialisation des champs non-présents dans cel_references
  // cf TODO
  static function NN2($db, $id, $ref) {
        if(!$db || !$id || !$ref) return FALSE;
        switch($ref) {
        case "bdtfx":
          return $db->query(sprintf("SELECT o.num_nom_retenu AS nom_ret_nn, o.num_taxonomique AS nt, CONCAT(o.nom_sci, ' ', o.auteur) AS nom_sel".
                                                                " , o.famille, CONCAT(ret.nom_sci, ' ', ret.auteur) AS nom_ret".
                                                                " FROM %s.%s o".
                                                                " LEFT JOIN %s.%s ret ON o.num_nom_retenu != 0 AND o.num_nom_retenu = ret.num_nom".
                                                                " WHERE o.num_nom = %d -- %s:%d", self::db, self::bdtfx,  self::db, self::bdtfx, intval($id), __FILE__, __LINE__))->fetch(PDO::FETCH_ASSOC);
        case "bdtxa":
          return $db->query(sprintf("SELECT o.num_nom_retenu AS nom_ret_nn, o.num_tax AS nt, CONCAT(o.nom_sci, ' ', o.auteur) AS nom_sel". // subtilité: "num_tax"
                                                                " , o.famille, CONCAT(ret.nom_sci, ' ', ret.auteur) AS nom_ret".
                                                                " FROM %s.%s o".
                                                                " LEFT JOIN %s.%s ret ON o.num_nom_retenu != 0 AND o.num_nom_retenu = ret.num_nom".
                                                                " WHERE o.num_nom = %d -- %s:%d", self::db, self::bdtxa,  self::db, self::bdtxa, intval($id), __FILE__, __LINE__))->fetch(PDO::FETCH_ASSOC);
        case "isfan":
          return $db->query(sprintf("SELECT o.num_nom_retenu AS nom_ret_nn, o.num_taxonomique AS nt, CONCAT(o.nom_sci, ' ', o.auteur) AS nom_sel".
                                                                " , o.famille, CONCAT(ret.nom_sci, ' ', ret.auteur) AS nom_ret".
                                                                " FROM %s.%s o".
                                                                " LEFT JOIN %s.%s ret ON o.num_nom_retenu != 0 AND o.num_nom_retenu = ret.num_nom".
                                                                " WHERE o.num_nom = %d -- %s:%d", self::db, self::isfan,  self::db, self::isfan, intval($id), __FILE__, __LINE__))->fetch(PDO::FETCH_ASSOC);
        case "bdtao":
          return $db->query(sprintf("SELECT o.num_nom_retenu AS nom_ret_nn, o.num_taxonomique AS nt, CONCAT(o.nom_sci, ' ', o.auteur) AS nom_sel".
                                                                " , o.famille, CONCAT(ret.nom_sci, ' ', ret.auteur) AS nom_ret".
                                                                " FROM %s.%s o".
                                                                " LEFT JOIN %s.%s ret ON o.num_nom_retenu != 0 AND o.num_nom_retenu = ret.num_nom".
                                                                " WHERE o.num_nom = %d -- %s:%d", self::db, self::bdtao,  self::db, self::bdtao, intval($id), __FILE__, __LINE__))->fetch(PDO::FETCH_ASSOC);
        }
        return FALSE;
  }
}