Changeset 109668 in spip-zone

Timestamp:

Mar 25, 2018, 10:33:42 AM (3 years ago)

Author:

eric@…

Message:

Gestion du changement de statut d'une espèce.

Location:

_plugins_/taxonomie/trunk

Files:

• formulaires/decrire_taxon.php (modified) (2 diffs)
• paquet.xml (modified) (1 diff)
• prive/objets/liste/taxons.html (modified) (1 diff)
• taxonomie_autorisations.php (modified) (3 diffs)
• taxonomie_fonctions.php (modified) (1 diff)
• taxonomie_pipelines.php (modified) (1 diff)

_plugins_/taxonomie/trunk/formulaires/decrire_taxon.php

@@ -183 +183 @@
         // Récupération des informations de base du taxon
         $select = array('tsn', 'nom_scientifique', 'edite', $element, 'sources');
-        $where = array('id_taxon=' . sql_quote($id_taxon));
+        $where = array('id_taxon=' . intval($id_taxon));
         $taxon = sql_fetsel($select, 'spip_taxons', $where);
 
@@ -232 +232 @@
                 $maj['sources'] = serialize($maj['sources']);
                 // - Mise à jour
-                sql_updateq('spip_taxons', $maj, 'id_taxon=' . sql_quote($id_taxon));
+                sql_updateq('spip_taxons', $maj, 'id_taxon=' . intval($id_taxon));
 
                 // Redirection vers la page d'édition du taxon

_plugins_/taxonomie/trunk/paquet.xml

@@ -19 +19 @@
         <pipeline nom="declarer_tables_interfaces" inclure="base/taxonomie_declarations.php" />
         <pipeline nom="pre_edition" inclure="taxonomie_pipelines.php" />
+        <pipeline nom="post_edition" inclure="taxonomie_pipelines.php" />
 
         <necessite nom="saisies"  compatibilite="[1.24.0;]" />

_plugins_/taxonomie/trunk/prive/objets/liste/taxons.html

@@ -34 +34 @@
                 <tr class="[(#COMPTEUR_BOUCLE|alterner{row_odd,row_even})]">
                         <td class="picto">[(#CHEMIN_IMAGE{taxon-16.png}|balise_img)]</td>
-                        <td class="statut">[(#STATUT|puce_statut{taxon, #ID_TAXON})]</td>
+                        <td class="statut">[(#STATUT|taxon_afficher_statut{#ID_TAXON})]</td>
                         <td class="titre principale nom_scientifique">
                                 [(#LOGO_TAXON|image_reduire{20,26})]

_plugins_/taxonomie/trunk/taxonomie_autorisations.php

@@ -132 +132 @@
 /**
  * Autorisation de modifier le statut d'un taxon.
- * Cela n'est possible que pour les espèces ne possédant aucun enfant.
+ * Cela n'est possible que :
+ * - si l'auteur possède l'autorisation de modifier le taxon
+ * - et le taxon est une espèce
+ * - et que l'espèce est soit une feuille de la hiérarchie soit possède des enfants dont aucun n'est au statut
+ *   publié.
  *
  * @param object $faire
@@ -139 +143 @@
  * @param object $qui
  * @param object $opt
+ *
  * @return
+ *        `true`si autorisé, `false`sinon.
  */
 function autoriser_taxon_instituer_dist($faire, $type, $id, $qui, $opt) {
@@ -146 +152 @@
 
         if ($id_taxon = intval($id)) {
+                // On récupère les informations sur le taxon concerné et en particulier si celui-ci est bien une espèce
+                // ou un descendant d'espèce.
                 $from = 'spip_taxons';
                 $where = array("id_taxon=$id_taxon");
-                $espece = sql_getfetsel('espece', $from, $where);
-
-                $autoriser = (($espece == 'oui') and  autoriser('modifier', 'taxon', $id_taxon, $qui, $opt));
+                $select = array('espece', 'statut', 'tsn');
+                $taxon = sql_fetsel($select, $from, $where);
+
+                if (($taxon['espece'] == 'oui') and  autoriser('modifier', 'taxon', $id_taxon, $qui, $opt)) {
+                        // On vérifie que l'espèce ne possède pas des descendants directs
+                        $where = array('tsn_parent=' . intval($taxon['tsn']));
+                        $select = array('statut');
+                        $enfants = sql_allfetsel($select, $from, $where);
+                        if (!$enfants) {
+                                // Si le taxon est une feuille de la hiérarchie alors il peut toujours être institué.
+                                $autoriser = true;
+                        } else {
+                                // Le taxon a des descendants.
+                                // - si un descendants est publié alors l'espèce concernée l'est aussi et ne peut pas être
+                                //   instituée (prop ou poubelle) sous peine de casser la hiérarchie.
+                                // - si aucun descendant n'est publié alors quelque soit le statut de l'espèce concernée celle-ci
+                                //   peut être instituée.
+                                if (!in_array('publie', array_column($enfants, 'statut'))) {
+                                        $autoriser = true;
+                                }
+                        }
+                }
         }
 
         return $autoriser;
 }
+
+
 /**
  * Autorisation de voir la liste des taxons : tout le monde est autorisé.

_plugins_/taxonomie/trunk/taxonomie_fonctions.php

@@ -301 +301 @@
         return $sources;
 }
+
+
+/**
+ * Affiche la puce de statut d'un taxon sans proposer le formulaire de changement de statut.
+ *
+ * @package SPIP\TAXONOMIE\TAXON
+ *
+ * @api
+ * @filtre
+ *
+ * @param string $statut
+ *        Statut du taxon, `prop`, `publie`ou `poubelle`.
+ * @param int    $id_taxon
+ *        Id du taxon.
+ *
+ * @return array
+ *        Image de la puce.
+ */
+function taxon_afficher_statut($statut, $id_objet = 0) {
+
+        // On évite de charger la fonction n fois.
+        static $afficher_puce = null;
+
+        if (!$afficher_puce) {
+                // Chargement de la fonction d'affichage
+                $afficher_puce = charger_fonction('puce_statut', 'inc');
+        }
+
+        // On affiche la puce sans proposer le formulaire rapide de changement de statut qui pose un problème avec
+        // l'ajax sachant qu'un changement peut en provoquer d'autres, la liste n'est plus à jour.
+        $puce = $afficher_puce($id_objet, $statut, 0, 'taxon', false, false);
+
+        return $puce;
+}

_plugins_/taxonomie/trunk/taxonomie_pipelines.php

@@ -44 +44 @@
         return $flux;
 }
+
+
+/**
+ * Surcharge l'action `instituer` d'un taxon.
+ * Si une espèce est instituée à publié, alors ses ascendants de type espèce non encore publiés sont automatiquement
+ * publiés.
+ *
+ * @pipeline pre_edition
+ * @package SPIP\TAXONOMIE\TAXON
+ *
+ * @param array         $flux
+ *              Données du pipeline fournie en entrée (chaque pipeline possède une structure de donnée propre).
+ *
+ * @return array
+ *              Données du pipeline modifiées pour refléter le traitement.
+ *
+**/
+function taxonomie_post_edition($flux) {
+
+        $table = $flux['args']['table'];
+        $id = intval($flux['args']['id_objet']);
+        $action = $flux['args']['action'];
+
+        // Traitements particuliers de l'objet taxon quand celui-ci est institué manuellement
+        if (($table == 'spip_taxons') and $id) {
+                // Instituer : on ne peut instituer qu'une espèce dont aucun enfant n'est publié. Il est donc inutile de
+                // considérer ces cas.
+                if ($action == 'instituer') {
+                        // On vérifie qu'on institue l'espèce de 'prop' à 'publie'. Si c'est le cas, alors on vérifie
+                        // qu'il est aussi nécessaire d'instituer à 'publie' les enfants de type espèce encore à prop.
+                        $statut_nouveau = $flux['data']['statut'];
+                        $statut_ancien = $flux['args']['statut_ancien'];
+                        if (($statut_ancien == 'prop') and ($statut_nouveau == 'publie')) {
+                                // On récupère le TSN et le TSN parent de l'espèce concernée.
+                                $from = 'spip_taxons';
+                                $select = array('tsn', 'tsn_parent');
+                                $where = array("id_taxon=$id");
+                                $taxon = sql_fetsel($select, $from, $where);
+
+                                // On récupère les ascendants de type espèce de l'espèce concernée si ils existent.
+                                include_spip('taxonomie_fonctions');
+                                $ascendance = taxon_informer_ascendance($id, $taxon['tsn_parent'], 'ascendant');
+                                if ($ascendance) {
+                                        // On publie les taxons en évitant une ré-entrance (donc sans appeler l'api objet)
+                                        // mais en utilisant directement une mise à jour sql.
+//                                      include_spip('action/editer_objet');
+                                        foreach ($ascendance as $_parent) {
+                                                if ($_parent['espece'] == 'oui') {
+                                                        if (($_parent['statut'] <> 'publie')) {
+                                                                $maj = array('statut' => $statut_nouveau, 'edite' => 'oui');
+                                                                sql_updateq($from, $maj, 'id_taxon=' . intval($_parent['id_taxon']));
+//                                                              objet_modifier('taxon', intval($_parent['id_taxon']), array('statut' => $statut_nouveau));
+                                                        }
+                                                } else {
+                                                        // Dès que l'on est sur un taxon non espèce on peut s'arrêter vu que les ascendants sont
+                                                        // classé du parent le plus proche au plus éloigné.
+                                                        break;
+                                                }
+                                        }
+                                }
+                        }
+                }
+        }
+
+        return $flux;
+}