From 03e68d2e30e6028c0d84f4befe10154630f0c409 Mon Sep 17 00:00:00 2001
From: Laurent Destailleur <eldy@users.sourceforge.net>
Date: Sat, 12 Feb 2005 17:42:01 +0000
Subject: [PATCH] =?UTF-8?q?New:=20Ajout=20du=20module=20de=20s=E9lection?=
 =?UTF-8?q?=20des=20cibles=20d'un=20mailing=20"pomme"=20(Tous=20les=20util?=
 =?UTF-8?q?isateurs=20Dolibarr).?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../modules/mailings/pomme.modules.php        | 95 +++++++++++++++++++
 1 file changed, 95 insertions(+)
 create mode 100644 htdocs/includes/modules/mailings/pomme.modules.php

diff --git a/htdocs/includes/modules/mailings/pomme.modules.php b/htdocs/includes/modules/mailings/pomme.modules.php
new file mode 100644
index 00000000000..0e06946d869
--- /dev/null
+++ b/htdocs/includes/modules/mailings/pomme.modules.php
@@ -0,0 +1,95 @@
+<?php
+/* Copyright (C) 2005 Laurent Destailleur <eldy@users.sourceforge.net>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ * or see http://www.gnu.org/
+ *
+ * $Id$
+ * $Source$
+ *
+ *
+ * L'utilisation d'adresses de courriers électroniques dans les opérations
+ * de prospection commerciale est subordonnée au recueil du consentement 
+ * préalable des personnes concernées.
+ *
+ * Le dispositif juridique applicable a été introduit par l'article 22 de 
+ * la loi du 21 juin 2004  pour la confiance dans l'économie numérique.
+ *
+ * Les dispositions applicables sont définies par les articles L. 34-5 du 
+ * code des postes et des télécommunications et L. 121-20-5 du code de la 
+ * consommation. L'application du principe du consentement préalable en 
+ * droit français résulte de la transposition de l'article 13 de la Directive 
+ * européenne du 12 juillet 2002 « Vie privée et communications électroniques ». 
+ *
+ */
+
+/**   	\file       htdocs/includes/modules/mailings/pomme.modules.php
+		\ingroup    mailing
+		\brief      Fichier de la classe permettant de générer la liste de destinataires Pomme
+		\version    $Revision$
+*/
+
+include_once DOL_DOCUMENT_ROOT.'/includes/modules/mailings/modules_mailings.php';
+
+
+/**	    \class      mailing_pomme
+		\brief      Classe permettant de générer la liste des destinataires Pomme
+*/
+
+class mailing_pomme extends MailingTargets
+{
+    var $name='DolibarrUsers';                      // Identifiant du module mailing
+    var $desc='Tous les utilisateurs de Dolibarr';  // Libellé utilisé si aucune traduction pour MailingModuleDescXXX ou XXX=name trouvée
+    var $require_module=array();                    // Module mailing actif si modules require_module actifs
+
+    var $db;
+    var $statssql=array();
+
+
+    function mailing_pomme($DB)
+    {
+        global $langs;
+        $langs->load("users");
+        
+        $this->db=$DB;
+
+        // Liste des tableaux des stats espace mailing
+        $this->statssql[0]="SELECT '".$langs->trans("DolibarrUsers")."' label, count(*) nb FROM ".MAIN_DB_PREFIX."user";
+    }
+    
+    function getNbOfRecipients()
+    {
+        // La requete doit retourner: nb
+        $sql  = "SELECT count(distinct(u.email)) nb";
+        $sql .= " FROM ".MAIN_DB_PREFIX."user as u";
+        $sql .= " WHERE u.email IS NOT NULL";
+
+        return parent::getNbOfRecipients($sql); 
+    }
+    
+    function add_to_target($mailing_id)
+    {
+        // La requete doit retourner: email, fk_contact, name, firstname
+        $sql = "SELECT u.email email, null fk_contact, u.name name, u.firstname firstname";
+        $sql .= " FROM ".MAIN_DB_PREFIX."user as u";
+        $sql .= " WHERE u.email IS NOT NULL";
+        $sql .= " ORDER BY u.email";
+
+        return parent::add_to_target($mailing_id, $sql);
+    }
+
+}
+
+?>