diff --git a/htdocs/comm/mailing/index.php b/htdocs/comm/mailing/index.php index 89f54c80db1..52a56093a1a 100644 --- a/htdocs/comm/mailing/index.php +++ b/htdocs/comm/mailing/index.php @@ -1,6 +1,6 @@ - * Copyright (C) 2005 Laurent Destailleur +/* Copyright (C) 2005 Rodolphe Quiedeville + * Copyright (C) 2005-2009 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 @@ -23,7 +23,7 @@ \brief Page accueil de la zone mailing \version $Id$ */ - + require("./pre.inc.php"); $langs->load("commercial"); @@ -31,12 +31,12 @@ $langs->load("orders"); if (! $user->rights->mailing->lire || $user->societe_id > 0) accessforbidden(); - + /* * View */ - + llxHeader('','Mailing'); print_fiche_titre($langs->trans("MailingArea")); @@ -82,7 +82,7 @@ while (($file = readdir($handle))!==false) $classname = "mailing_".$modulename; require_once($file); $mailmodule = new $classname($db); - + $qualified=1; foreach ($mailmodule->require_module as $key) { @@ -99,38 +99,38 @@ while (($file = readdir($handle))!==false) { $var = !$var; - foreach ($mailmodule->getSqlArrayForStats() as $sql) + foreach ($mailmodule->getSqlArrayForStats() as $sql) { print ''; - + $result=$db->query($sql); - if ($result) + if ($result) { $num = $db->num_rows($result); - + $i = 0; - - while ($i < $num ) + + while ($i < $num ) { $obj = $db->fetch_object($result); print ''.img_object('',$mailmodule->picto).' '.$obj->label.''.$obj->nb.''; $i++; } - + $db->free($result); - } + } else { dolibarr_print_error($db); } print ''; } - } + } } } } closedir($handle); - + print "
"; @@ -139,35 +139,38 @@ print ''; /* - * Liste des derniers mailings + * List of last emailings */ - -$sql = "SELECT m.rowid, m.titre, m.nbemail, m.statut"; -$sql .= " FROM ".MAIN_DB_PREFIX."mailing as m"; -$sql .= " LIMIT 10"; +$limit=10; +$sql = "SELECT m.rowid, m.titre, m.nbemail, m.statut, m.date_creat"; +$sql.= " FROM ".MAIN_DB_PREFIX."mailing as m"; +$sql.= " ORDER BY m.date_creat DESC"; +$sql.= " LIMIT ".$limit; $result=$db->query($sql); -if ($result) +if ($result) { print ''; print ''; - print ''; + print ''; + print ''; print ''; - print ''; + print ''; $num = $db->num_rows($result); if ($num > 0) - { + { $var = true; $i = 0; - - while ($i < $num ) + + while ($i < $num ) { $obj = $db->fetch_object($result); $var=!$var; - + print ""; print ''; print ''; + print ''; print ''; $mailstatic=new Mailing($db); print ''; @@ -176,13 +179,13 @@ if ($result) } } - else + else { - print ''; + print ''; } print "
'.$langs->trans("LastMailings",10).''.$langs->trans("LastMailings",$limit).''.$langs->trans("DateCreation").''.$langs->trans("NbOfEMails").''.$langs->trans("Status").'
'.$langs->trans("AllEMailings").'
'.img_object($langs->trans("ShowEMail"),"email").' '.$obj->rowid.''.dolibarr_trunc($obj->titre,40).''.dolibarr_print_date($obj->date_creat).''.($obj->nbemail?$obj->nbemail:"0").''.$mailstatic->LibStatut($obj->statut,5).'
'.$langs->trans("None").'
'.$langs->trans("None").'

"; $db->free($result); -} +} else { dolibarr_print_error($db); @@ -201,7 +204,7 @@ if ($langs->file_exists("html/spam.html",0)) { print '
'; $langs->print_file("html/spam.html",0); print '
'; - + print '
'; } diff --git a/htdocs/langs/en_US/mails.lang b/htdocs/langs/en_US/mails.lang index 92f1057da18..56ebcf96ce1 100644 --- a/htdocs/langs/en_US/mails.lang +++ b/htdocs/langs/en_US/mails.lang @@ -4,6 +4,7 @@ Mailing=EMailing EMailing=EMailing Mailings=EMailings EMailings=EMailings +AllEMailings=All eMailings MailCard=EMailing card MailTargets=Targets MailRecipients=Recipients diff --git a/htdocs/langs/fr_FR/mails.lang b/htdocs/langs/fr_FR/mails.lang index 557ad620557..6f6cfdd5613 100644 --- a/htdocs/langs/fr_FR/mails.lang +++ b/htdocs/langs/fr_FR/mails.lang @@ -1,10 +1,11 @@ # Dolibarr language file - fr_FR - mails CHARSET=UTF-8 -Mailing=Mailing -EMailing=Mailing -Mailings=Mailings -EMailings=Mailings -MailCard=Fiche mailing +Mailing=EMailing +EMailing=EMailing +Mailings=EMailings +EMailings=EMailings +MailCard=Fiche emailing +AllEMailings=Tous les EMailings MailTargets=Destinataires MailRecipients=Destinataires MailRecipient=Destinataire @@ -20,19 +21,19 @@ MailText=Message MailFile=Fichiers joints MailMessage=Message du mail ShowEMailing=Afficher emailing -ListOfEMailings=Liste des mailings -NewMailing=Nouveau mailing -EditMailing=Éditer mailing -DeleteMailing=Supprimer mailing -DeleteAMailing=Supprimer un mailing -PreviewMailing=Prévisualiser mailing -PrepareMailing=Preparer mailing -CreateMailing=Créer mailing -MailingDesc=Cette page vous permet d'envoyer des mailings à un groupe de personnes. +ListOfEMailings=Liste des emailings +NewMailing=Nouvel emailing +EditMailing=Éditer emailing +DeleteMailing=Supprimer emailing +DeleteAMailing=Supprimer un emailing +PreviewMailing=Prévisualiser emailing +PrepareMailing=Preparer emailing +CreateMailing=Créer emailing +MailingDesc=Cette page vous permet d'envoyer des emailings à un groupe de personnes. MailingResult=Résultat de l'envoi de mails -TestMailing=Tester mailing -ValidMailing=Valider mailing -ApproveMailing=Approuver mailing +TestMailing=Tester emailing +ValidMailing=Valider emailing +ApproveMailing=Approuver emailing MailingStatusDraft=Brouillon MailingStatusValidated=Validé MailingStatusApproved=Approuvé @@ -69,8 +70,8 @@ MailingModuleDescContactsCategories=Tiers avec e-mail (par categorie) LineInFile=Ligne %s du fichier RecipientSelectionModules=Modules de sélection des destinataires MailSelectedRecipients=Destinataires sélectionnés -MailingArea=Espace mailings -LastMailings=Les %s derniers mailings +MailingArea=Espace emailings +LastMailings=Les %s derniers emailings TargetsStatistics=Statistiques destinataires NbOfCompaniesContacts=Contacts uniques des sociétés MailNoChangePossible=Destinataires d'un mailing validé non modifiables @@ -80,11 +81,11 @@ SendMail=Envoi mail SentBy=Envoyé par MailingNeedCommand=Pour des raisons de sécurité, il est recommandé de faire les envois d'un mailing de masse depuis une ligne de commande. Demandez à votre administrateur de lancer la commande suivante pour envoyer le mailing à tous les destinataires : MailingNeedCommand2=Vous pouvez toutefois quand même les envoyer en ligne en ajoutant le parametre MAILING_LIMIT_SENDBYWEB avec la valeur du nombre max de mails envoyés par session d'envoi. -ConfirmSendingEmailing=Confirmez-vous l'envoi de l'emailing ?
L'envoi en ligne des mailings sont limités par sécurité à %s destinataires par session d'envoi. +ConfirmSendingEmailing=Confirmez-vous l'envoi de l'emailing ?
L'envoi en ligne des emailings sont limités par sécurité à %s destinataires par session d'envoi. TargetsReset=Vider liste ToClearAllRecipientsClickHere=Pour vider la liste des destinataires de ce mailing, cliquer le bouton ToAddRecipientsChooseHere=Pour ajouter des destinataires, choisir dans les listes ci-dessous -NbOfEMailingsReceived=Mailings de masse reçus +NbOfEMailingsReceived=EMailings de masse reçus IdRecord=ID enregistrement DeliveryReceipt=Accusé de réception YouCanUseCommaSeparatorForSeveralRecipients=Vous pouvez utiliser le caractère de séparation virgule pour spécifier plusieurs destinataires.