* Copyright (C) 2005 Laurent Destailleur * * 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/index.php \ingroup commercial \brief Page accueil de la zone mailing \version $Revision$ */ require("./pre.inc.php"); if ($user->societe_id > 0) { accessforbidden(); } $langs->load("commercial"); $langs->load("orders"); llxHeader('','Mailing'); /* * */ print_titre("Espace mailing"); print ''; print ''; print '

'; /* * Dernières actions commerciales effectuées * */ $sql = "SELECT count(*), client"; $sql .= " FROM ".MAIN_DB_PREFIX."societe"; $sql .= " WHERE client in (1,2)"; $sql .= " GROUP BY client"; if ( $db->query($sql) ) { $num = $db->num_rows(); print ''; print ''; $i = 0; while ($i < $num ) { $row = $db->fetch_row(); $st[$row[1]] = $row[0]; $i++; } $var = true; print "".'"; $var=!$var; print "".'"; print "

'.$langs->trans("Statistics").'
'.$langs->trans("Customers").'	'.($st[1]?$st[1]:"0")."
'.$langs->trans("Prospects").'	'.($st[2]?$st[2]:"0")."

"; $db->free(); } else { dolibarr_print_error($db); } print '

'; /* * * */ $sql = "SELECT m.rowid, m.titre, m.nbemail"; $sql .= " FROM ".MAIN_DB_PREFIX."mailing as m"; $sql .= " LIMIT 10"; if ( $db->query($sql) ) { $num = $db->num_rows(); if ($num > 0) { print ''; print ''; $var = true; $i = 0; while ($i < $num ) { $obj = $db->fetch_object(); $var=!$var; print ""; print ''; print ''; print ''; $i++; } print "

Les 10 derniers mailings
'.$obj->titre.'	'.($obj->nbemail?$obj->nbemail:"0")." ".$langs->trans("EMails").'

"; } $db->free(); } else { dolibarr_print_error($db); } print '

'; $db->close(); // Affiche note legislation dans la langue $htmlfile="../../langs/".$langs->defaultlang."/html/spam.html"; if (! is_readable($htmlfile)) { $htmlfile="../../langs/fr_FR/html/spam.html"; } if (is_readable($htmlfile)) { print "
".$langs->trans("Note").":

"; include($htmlfile); } llxFooter("Dernière modification $Date$ révision $Revision$"); ?>