forked from Wavyzz/dolibarr
352 lines
9.6 KiB
PHP
352 lines
9.6 KiB
PHP
<?php
|
|
/* Copyright (C) 2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
|
* 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.
|
|
*
|
|
* $Id$
|
|
* $Source$
|
|
*
|
|
*/
|
|
|
|
/**
|
|
\file htdocs/comm/mailing/mailing.class.php
|
|
\ingroup mailing
|
|
\brief Fichier de la classe de gestion des mailings
|
|
\version $Revision$
|
|
*/
|
|
|
|
|
|
/**
|
|
\class Mailing
|
|
\brief Classe permettant la gestion des mailings
|
|
*/
|
|
class Mailing
|
|
{
|
|
var $id;
|
|
var $error;
|
|
|
|
var $statut;
|
|
var $titre;
|
|
var $sujet;
|
|
var $body;
|
|
var $nbemail;
|
|
|
|
var $email_from;
|
|
var $email_replyto;
|
|
var $email_errorsto;
|
|
|
|
var $user_creat;
|
|
var $user_valid;
|
|
var $user_appro;
|
|
|
|
var $date_creat;
|
|
var $date_valid;
|
|
var $date_appro;
|
|
|
|
|
|
/**
|
|
* \brief Constructeur de la classe
|
|
* \param DB handler accès base de données
|
|
*/
|
|
function Mailing($DB)
|
|
{
|
|
global $langs;
|
|
$langs->load("mails");
|
|
|
|
$this->db = $DB ;
|
|
$this->db_table = MAIN_DB_PREFIX."mailing";
|
|
|
|
$this->statuts[0] = $langs->trans("MailingStatusDraft");
|
|
$this->statuts[1] = $langs->trans("MailingStatusValidated");
|
|
$this->statuts[2] = $langs->trans("MailingStatusSentPartialy");
|
|
$this->statuts[3] = $langs->trans("MailingStatusSentCompletely");
|
|
}
|
|
|
|
/**
|
|
* \brief Création du mailing
|
|
* \param user object utilisateur qui crée
|
|
* \return -1 si erreur, >0 sinon
|
|
*
|
|
*/
|
|
function create($user)
|
|
{
|
|
global $langs;
|
|
|
|
dolibarr_syslog("Mailing::Create");
|
|
|
|
$this->db->begin();
|
|
|
|
$this->titre=trim($this->titre);
|
|
$this->email_from=trim($this->email_from);
|
|
|
|
if (! $this->email_from)
|
|
{
|
|
$this->error = $langs->trans("ErrorMailFromRequired");
|
|
return -1;
|
|
}
|
|
|
|
$sql = "INSERT INTO ".$this->db_table;
|
|
$sql .= " (date_creat, fk_user_creat)";
|
|
$sql .= " VALUES (now(), ".$user->id.")";
|
|
|
|
if (! $this->titre)
|
|
{
|
|
$this->titre = $langs->trans("NoTitle");
|
|
}
|
|
|
|
$result=$this->db->query($sql);
|
|
if ($result)
|
|
{
|
|
$this->id = $this->db->last_insert_id($this->db_table);
|
|
|
|
if ($this->update() > 0)
|
|
{
|
|
$this->db->commit();
|
|
}
|
|
else
|
|
{
|
|
$this->db->rollback();
|
|
$this->error=$langs->trans("ErrorUnknown");
|
|
return -1;
|
|
}
|
|
|
|
return $this->id;
|
|
}
|
|
else
|
|
{
|
|
$this->db->rollback();
|
|
|
|
dolibarr_syslog("Mailing::Create Erreur -1");
|
|
$this->error=$langs->trans("UnknownError");
|
|
return -1;
|
|
}
|
|
|
|
}
|
|
|
|
/**
|
|
* \brief Update les infos du mailing
|
|
* \return < 0 si erreur, > 0 si ok
|
|
*/
|
|
function update()
|
|
{
|
|
dolibarr_syslog("Mailing::Update");
|
|
|
|
$sql = "UPDATE ".MAIN_DB_PREFIX."mailing ";
|
|
$sql .= " SET titre = '".addslashes($this->titre)."'";
|
|
$sql .= " , sujet = '".addslashes($this->sujet)."'";
|
|
$sql .= " , body = '".addslashes($this->body)."'";
|
|
$sql .= " , email_from = '".$this->email_from."'";
|
|
$sql .= " WHERE rowid = ".$this->id;
|
|
|
|
$result=$this->db->query($sql);
|
|
if ($result)
|
|
{
|
|
return 1;
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog("Mailing::Update Erreur -1");
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* \brief Recupére l'objet mailing
|
|
* \param rowid id du mailing
|
|
* \return int
|
|
*/
|
|
function fetch($rowid)
|
|
{
|
|
$sql = "SELECT m.rowid, m.titre, m.sujet, m.body";
|
|
$sql .= ", m.email_from, m.email_replyto, m.email_errorsto";
|
|
$sql .= ", m.statut, m.nbemail";
|
|
$sql .= ", m.fk_user_creat, m.fk_user_valid, m.fk_user_appro";
|
|
$sql .= ", ".$this->db->pdate("m.date_creat") . " as date_creat";
|
|
$sql .= ", ".$this->db->pdate("m.date_valid") . " as date_valid";
|
|
$sql .= ", ".$this->db->pdate("m.date_envoi") . " as date_envoi";
|
|
$sql .= " FROM ".MAIN_DB_PREFIX."mailing as m";
|
|
$sql .= " WHERE m.rowid = ".$rowid;
|
|
|
|
dolibarr_syslog("Mailing.class::fetch sql=".$sql);
|
|
$result=$this->db->query($sql);
|
|
if ($result)
|
|
{
|
|
if ($this->db->num_rows($result))
|
|
{
|
|
$obj = $this->db->fetch_object($result);
|
|
|
|
$this->id = $obj->rowid;
|
|
$this->statut = $obj->statut;
|
|
$this->nbemail = $obj->nbemail;
|
|
$this->titre = $obj->titre;
|
|
$this->sujet = $obj->sujet;
|
|
$this->body = $obj->body;
|
|
|
|
$this->email_from = $obj->email_from;
|
|
$this->email_replyto = $obj->email_replyto;
|
|
$this->email_errorsto = $obj->email_errorsto;
|
|
|
|
$this->user_creat = $obj->fk_user_creat;
|
|
$this->user_valid = $obj->fk_user_valid;
|
|
$this->user_appro = $obj->fk_user_appro;
|
|
|
|
$this->date_creat = $obj->date_creat;
|
|
$this->date_valid = $obj->date_valid;
|
|
$this->date_appro = $obj->date_appro;
|
|
$this->date_envoi = $obj->date_envoi;
|
|
|
|
return 1;
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog("Mailing::Fetch Erreur -1");
|
|
return -1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog("Mailing::Fetch Erreur -2");
|
|
return -2;
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Valide le mailing
|
|
* \param user objet user qui valide
|
|
*/
|
|
function valid($user)
|
|
{
|
|
dolibarr_syslog("Mailing::Valid");
|
|
|
|
$sql = "UPDATE ".MAIN_DB_PREFIX."mailing ";
|
|
$sql .= " SET statut = 1, date_valid = now(), fk_user_valid=".$user->id;
|
|
|
|
$sql .= " WHERE rowid = ".$this->id." AND statut = 0 ;";
|
|
|
|
if ($this->db->query($sql) )
|
|
{
|
|
return 0;
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog("Mailing::Valid Erreur -1");
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* \brief Approuve le mailing
|
|
* \param user objet user qui approuve
|
|
*/
|
|
function approve($user)
|
|
{
|
|
$sql = "UPDATE ".MAIN_DB_PREFIX."mailing ";
|
|
$sql .= " SET statut = 2, date_appro = now(), fk_user_appro=".$user->id;
|
|
|
|
$sql .= " WHERE rowid = ".$this->id." AND statut = 1 ;";
|
|
|
|
if ($this->db->query($sql) )
|
|
{
|
|
return 0;
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog("Mailing::Valid Erreur -1");
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Supprime le mailing
|
|
* \param rowid id du mailing à supprimer
|
|
* \return int 1 en cas de succès
|
|
*/
|
|
function delete($rowid)
|
|
{
|
|
$sql = "DELETE FROM ".MAIN_DB_PREFIX."mailing";
|
|
$sql .= " WHERE rowid = ".$rowid;
|
|
|
|
$this->db->query($sql);
|
|
return 1;
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Retourne le libellé du statut d'un mailing (brouillon, validée, ...)
|
|
* \param mode 0=libellé long, 1=libellé court, 2=Picto + Libellé court, 3=Picto, 4=Picto + Libellé long
|
|
* \return string Libelle
|
|
*/
|
|
function getLibStatut($mode=0)
|
|
{
|
|
return $this->LibStatut($this->statut,$mode);
|
|
}
|
|
|
|
/**
|
|
* \brief Renvoi le libellé d'un statut donné
|
|
* \param statut Id statut
|
|
* \param mode 0=libellé long, 1=libellé court, 2=Picto + Libellé court, 3=Picto, 4=Picto + Libellé long, 5=Libellé court + Picto
|
|
* \return string Libellé du statut
|
|
*/
|
|
function LibStatut($statut,$mode=0)
|
|
{
|
|
global $langs;
|
|
$langs->load('mails');
|
|
|
|
if ($mode == 0)
|
|
{
|
|
return $this->statuts[$statut];
|
|
}
|
|
if ($mode == 1)
|
|
{
|
|
return $this->statuts[$statut];
|
|
}
|
|
if ($mode == 2)
|
|
{
|
|
if ($statut == 0) return img_picto($langs->trans($this->statuts[$statut]),'statut0').' '.$this->statuts[$statut];
|
|
if ($statut == 1) return img_picto($langs->trans($this->statuts[$statut]),'statut1').' '.$this->statuts[$statut];
|
|
if ($statut == 2) return img_picto($langs->trans($this->statuts[$statut]),'statut3').' '.$this->statuts[$statut];
|
|
if ($statut == 3) return img_picto($langs->trans($this->statuts[$statut]),'statut6').' '.$this->statuts[$statut];
|
|
}
|
|
if ($mode == 3)
|
|
{
|
|
if ($statut == 0) return img_picto($langs->trans($this->statuts[$statut]),'statut0');
|
|
if ($statut == 1) return img_picto($langs->trans($this->statuts[$statut]),'statut1');
|
|
if ($statut == 2) return img_picto($langs->trans($this->statuts[$statut]),'statut3');
|
|
if ($statut == 3) return img_picto($langs->trans($this->statuts[$statut]),'statut6');
|
|
}
|
|
if ($mode == 4)
|
|
{
|
|
if ($statut == 0) return img_picto($langs->trans($this->statuts[$statut]),'statut0').' '.$this->statuts[$statut];
|
|
if ($statut == 1) return img_picto($langs->trans($this->statuts[$statut]),'statut1').' '.$this->statuts[$statut];
|
|
if ($statut == 2) return img_picto($langs->trans($this->statuts[$statut]),'statut3').' '.$this->statuts[$statut];
|
|
if ($statut == 3) return img_picto($langs->trans($this->statuts[$statut]),'statut6').' '.$this->statuts[$statut];
|
|
}
|
|
if ($mode == 5)
|
|
{
|
|
if ($statut == 0) return $this->statuts[$statut].' '.img_picto($langs->trans($this->statuts[$statut]),'statut0');
|
|
if ($statut == 1) return $this->statuts[$statut].' '.img_picto($langs->trans($this->statuts[$statut]),'statut1');
|
|
if ($statut == 2) return $this->statuts[$statut].' '.img_picto($langs->trans($this->statuts[$statut]),'statut3');
|
|
if ($statut == 3) return $this->statuts[$statut].' '.img_picto($langs->trans($this->statuts[$statut]),'statut6');
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
?>
|