Changeset 107647 in spip-zone

Timestamp:

Nov 20, 2017, 1:48:26 PM (3 years ago)

Author:

erational@…

Message:

Permettre d'export des inscrits liste par liste

Location:

_plugins_/mailsubscribers/trunk

Files:

• action/mailsubscribers_export.php (modified) (4 diffs)
• paquet.xml (modified) (1 diff)
• prive/squelettes/navigation/mailsubscribers.html (modified) (1 diff)

_plugins_/mailsubscribers/trunk/action/mailsubscribers_export.php

@@ -2 +2 @@
 /**
  * Plugin mailsubscribers
- * (c) 2012 Cédric Morin
+ * (c) 2017 Cédric Morin
  * Licence GNU/GPL v3
  */
 
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+        return;
+}
 
 
@@ -12 +14 @@
  * Exporter la base au format CSV
  *
- * @param null|string $statut
+ * @param null|string $arg
  */
-function action_mailsubscribers_export_dist($statut = null) {
-        if (is_null($statut)) {
+function action_mailsubscribers_export_dist($arg = null) {
+        if (is_null($arg)) {
                 $securiser_action = charger_fonction('securiser_action', 'inc');
-                $statut = $securiser_action();
+                $arg = $securiser_action();
         }
 
@@ -26 +28 @@
         }
 
+        $args = explode("-", $arg);
+        $statut = $args[0];
+        $id_liste = isset($args[1]) ? intval($args[1]) : false;
+
         $where = array();
         // '' ou 'all' pour tout exporter (sauf poubelle)
         if (in_array($statut, array('', 'all'))) {
-                $where[] = "statut<>" . sql_quote('poubelle');
+                $where[] = "M.statut<>" . sql_quote('poubelle');
         } else {
-                $where[] = "statut=" . sql_quote($statut);
+                $where[] = "M.statut=" . sql_quote($statut);
         }
-
 
         $entetes = array(
@@ -44 +49 @@
         );
 
-        $titre = _T('mailsubscriber:titre_mailsubscribers') . "-" . $GLOBALS['meta']['nom_site'] . "-" . date('Y-m-d');
         $exporter_csv = charger_fonction("exporter_csv", "inc");
         $listes = sql_get_select('group_concat(L.identifiant)','spip_mailsubscriptions as S JOIN spip_mailsubscribinglists as L ON L.id_mailsubscribinglist=S.id_mailsubscribinglist','S.id_segment=0 AND S.id_mailsubscriber=M.id_mailsubscriber');
-        $res = sql_select("M.email,M.nom,M.lang,M.date,M.statut,($listes) as listes", "spip_mailsubscribers AS M", $where);
+        // si un id_liste est present, restreindre l'export à cette liste
+        if ($id_liste) {
+                $identifiant = sql_getfetsel('identifiant', 'spip_mailsubscribinglists', 'id_mailsubscribinglist        =' . intval($id_liste));
+                $titre = _T('mailsubscriber:titre_mailsubscribers') . "-" . $GLOBALS['meta']['nom_site'] . "-" . $identifiant . "-" . date('Y-m-d');
+                $where[] = "N.id_mailsubscribinglist=$id_liste";
+                $res = sql_select(
+                        "M.email,M.nom,M.lang,M.date,M.statut,($listes) as listes",
+                        "spip_mailsubscribers AS M LEFT JOIN spip_mailsubscriptions as N ON M.id_mailsubscriber=N.id_mailsubscriber",
+                        $where
+                );
+        } else {
+        $titre = _T('mailsubscriber:titre_mailsubscribers') . "-" . $GLOBALS['meta']['nom_site'] . "-" . date('Y-m-d');
+                $res = sql_select(
+                        "M.email,M.nom,M.lang,M.date,M.statut,($listes) as listes",
+                        "spip_mailsubscribers AS M",
+                        $where
+                );
+        }
         $exporter_csv($titre, $res, ',', $entetes);
 

_plugins_/mailsubscribers/trunk/paquet.xml

@@ -2 +2 @@
         prefix="mailsubscribers"
         categorie="communication"
-        version="2.5.3"
+        version="2.5.4"
         etat="stable"
         compatibilite="[3.0.0;3.2.*]"

_plugins_/mailsubscribers/trunk/prive/squelettes/navigation/mailsubscribers.html

@@ -7 +7 @@
                 <li class="item[(#ENV{id_mailsubscribinglist}|=={#ID_MAILSUBSCRIBINGLIST}|oui)on]">[(#SELF|parametre_url{s,''}|parametre_url{id_mailsubscribinglist,#ID_MAILSUBSCRIBINGLIST}|lien_ou_expose{#TITRE,#ENV{id_mailsubscribinglist}|=={#ID_MAILSUBSCRIBINGLIST}})]
                 ([(#IDENTIFIANT|mailsubscribers_compte_inscrits)])
+                        [(#ENV{id_mailsubscribinglist}|=={#ID_MAILSUBSCRIBINGLIST}|oui)
+                                [(#PLUGIN{spip_bonux}|oui)
+                                        [(#URL_ACTION_AUTEUR{mailsubscribers_export,valide-#ID_MAILSUBSCRIBINGLIST}|icone_horizontale{<:mailsubscriber:titre_export_mailsubscribers:>,mailsubscriber-24,export})]
+                                ]
+                        ]
                 </li>
         </BOUCLE_listes>