From 9ea36922aa8c96e5d525a73c5a346297e962e65c Mon Sep 17 00:00:00 2001 From: Laurent Destailleur Date: Thu, 24 Mar 2011 00:13:45 +0000 Subject: [PATCH] Rename file --- .../modules/mailings/contact1.modules.php | 253 ------------------ 1 file changed, 253 deletions(-) delete mode 100755 htdocs/includes/modules/mailings/contact1.modules.php diff --git a/htdocs/includes/modules/mailings/contact1.modules.php b/htdocs/includes/modules/mailings/contact1.modules.php deleted file mode 100755 index d0008e93528..00000000000 --- a/htdocs/includes/modules/mailings/contact1.modules.php +++ /dev/null @@ -1,253 +0,0 @@ - - * Copyright (C) 2005-2009 Laurent Destailleur - * Copyright (C) 2005-2009 Regis Houssin - * - * 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/ - */ - -/** - * \file htdocs/includes/modules/mailings/contact1.modules.php - * \ingroup mailing - * \brief File of class to offer a selector of emailing targets with Rule 'Poire'. - * \version $Id$ - */ - -include_once DOL_DOCUMENT_ROOT.'/includes/modules/mailings/modules_mailings.php'; - - -/** - * \class mailing_contact1 - * \brief Class to offer a selector of emailing targets with Rule 'Poire'. - */ -class mailing_contact1 extends MailingTargets -{ - var $name='ContactCompanies'; // Identifiant du module mailing - var $desc='Contacts des tiers (prospects, clients, fournisseurs...)'; // Libell� utilis� si aucune traduction pour MailingModuleDescXXX ou XXX=name trouv�e - var $require_module=array("societe"); // Module mailing actif si modules require_module actifs - var $require_admin=0; // Module mailing actif pour user admin ou non - var $picto='contact'; - - var $db; - - - function mailing_contact1($DB) - { - $this->db=$DB; - } - - - function getSqlArrayForStats() - { - global $conf, $langs; - - $langs->load("commercial"); - - $statssql=array(); - $statssql[0] = "SELECT '".$langs->trans("NbOfCompaniesContacts")."' as label,"; - $statssql[0].= " count(distinct(c.email)) as nb"; - $statssql[0].= " FROM ".MAIN_DB_PREFIX."socpeople as c,"; - $statssql[0].= " ".MAIN_DB_PREFIX."societe as s"; - $statssql[0].= " WHERE s.rowid = c.fk_soc"; - $statssql[0].= " AND s.entity = ".$conf->entity; - $statssql[0].= " AND c.entity = ".$conf->entity; - $statssql[0].= " AND s.client IN (1, 3)"; - $statssql[0].= " AND c.email != ''"; // Note that null != '' is false - - return $statssql; - } - - - /** - * \brief Return here number of distinct emails returned by your selector. - * For example if this selector is used to extract 500 different - * emails from a text file, this function must return 500. - * \return int - */ - function getNbOfRecipients() - { - global $conf; - - $sql = "SELECT count(distinct(c.email)) as nb"; - $sql .= " FROM ".MAIN_DB_PREFIX."socpeople as c,"; - $sql .= " ".MAIN_DB_PREFIX."societe as s"; - $sql .= " WHERE s.rowid = c.fk_soc"; - $sql .= " AND c.entity = ".$conf->entity; - $sql .= " AND s.entity = ".$conf->entity; - $sql .= " AND c.email != ''"; // Note that null != '' is false - - // La requete doit retourner un champ "nb" pour etre comprise - // par parent::getNbOfRecipients - return parent::getNbOfRecipients($sql); - } - - - /** - * \brief Affiche formulaire de filtre qui apparait dans page de selection - * des destinataires de mailings - * \return string Retourne zone select - */ - function formFilter() - { - global $langs; - $langs->load("companies"); - $langs->load("commercial"); - $langs->load("suppliers"); - - $s=''; - $s.=''; - return $s; - } - - - /** - * \brief Renvoie url lien vers fiche de la source du destinataire du mailing - * \return string Url lien - */ - function url($id) - { - return ''.img_object('',"contact").''; - } - - - /** - * \brief Ajoute destinataires dans table des cibles - * \param mailing_id Id of emailing - * \param filterarray Requete sql de selection des destinataires - * \return int <0 si erreur, nb ajout si ok - */ - function add_to_target($mailing_id,$filtersarray=array()) - { - global $conf, $langs; - - $cibles = array(); - - # List prospects levels - $prospectlevel=array(); - $sql = "SELECT code, label"; - $sql.= " FROM ".MAIN_DB_PREFIX."c_prospectlevel"; - $sql.= " WHERE active > 0"; - $sql.= " ORDER BY label"; - $resql = $this->db->query($sql); - if ($resql) - { - $num = $this->db->num_rows($resql); - $i = 0; - while ($i < $num) - { - $obj = $this->db->fetch_object($resql); - $prospectlevel[$obj->code]=$obj->label; - $i++; - } - } - else dol_print_error($this->db); - - // La requete doit retourner: id, email, fk_contact, name, firstname, other - $sql = "SELECT c.rowid as id, c.email as email, c.rowid as fk_contact,"; - $sql.= " c.name as name, c.firstname as firstname, c.civilite,"; - $sql.= " s.nom as companyname"; - $sql.= " FROM ".MAIN_DB_PREFIX."socpeople as c,"; - $sql.= " ".MAIN_DB_PREFIX."societe as s"; - $sql.= " WHERE s.rowid = c.fk_soc"; - $sql.= " AND c.entity = ".$conf->entity; - $sql.= " AND s.entity = ".$conf->entity; - $sql.= " AND c.email != ''"; - foreach($filtersarray as $key) - { - if ($key == 'prospects') $sql.= " AND s.client=2"; - //print "xx".$key; - foreach($prospectlevel as $codelevel=>$valuelevel) if ($key == 'prospectslevel'.$codelevel) $sql.= " AND s.fk_prospectlevel='".$codelevel."'"; - if ($key == 'customers') $sql.= " AND s.client=1"; - if ($key == 'suppliers') $sql.= " AND s.fournisseur=1"; - } - $sql.= " ORDER BY c.email"; - //print "x".$sql; - - // Stocke destinataires dans cibles - $result=$this->db->query($sql); - if ($result) - { - $num = $this->db->num_rows($result); - $i = 0; - $j = 0; - - dol_syslog(get_class($this)."::add_to_target mailing ".$num." targets found"); - - $old = ''; - while ($i < $num) - { - $obj = $this->db->fetch_object($result); - if ($old <> $obj->email) - { - $cibles[$j] = array( - 'email' => $obj->email, - 'fk_contact' => $obj->fk_contact, - 'name' => $obj->name, - 'firstname' => $obj->firstname, - 'other' => - ($langs->transnoentities("ThirdParty").'='.$obj->companyname).';'. - ($langs->transnoentities("Civility").'='.($obj->civilite?$langs->transnoentities("Civility".$obj->civilite):'')), - 'source_url' => $this->url($obj->id), - 'source_id' => $obj->id, - 'source_type' => 'contact' - ); - $old = $obj->email; - $j++; - } - - $i++; - } - } - else - { - dol_syslog($this->db->error()); - $this->error=$this->db->error(); - return -1; - } - - return parent::add_to_target($mailing_id, $cibles); - } - -} - -?>