lainwir3d/dolibarr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Module for mailing selection can be in two different root locations

Browse Source
This commit is contained in:
Laurent Destailleur 2008-05-15 17:59:37 +00:00
parent 6b4fc8c6e9
commit b3fb3c684b
1 changed files with 97 additions and 88 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

161
htdocs/comm/mailing/cibles.php
View File

@ -32,7 +32,9 @@ if (! $user->rights->mailing->lire || $user->societe_id > 0)
accessforbidden(); accessforbidden();
$dir=DOL_DOCUMENT_ROOT."/includes/modules/mailings"; $dirmod=DOL_DOCUMENT_ROOT."/includes/modules/mailings";
if (defined('DOL_DOCUMENT_ROOT_BIS')) $dirmod2=DOL_DOCUMENT_ROOT_BIS."/includes/modules/mailings";
$mesg = ''; $mesg = '';
@ -59,7 +61,7 @@ if ($_GET["action"] == 'add')
$modulename=$_GET["module"]; $modulename=$_GET["module"];
// Chargement de la classe // Chargement de la classe
$file = $dir."/".$modulename.".modules.php"; $file = $dirmod."/".$modulename.".modules.php";
$classname = "mailing_".$modulename; $classname = "mailing_".$modulename;
require_once($file); require_once($file);
@ -88,7 +90,7 @@ if ($_GET["action"] == 'add')
if ($_GET["action"] == 'clear') if ($_GET["action"] == 'clear')
{ {
// Chargement de la classe // Chargement de la classe
$file = $dir."/modules_mailings.php"; $file = $dirmod."/modules_mailings.php";
$classname = "MailingTargets"; $classname = "MailingTargets";
require_once($file); require_once($file);
@ -106,7 +108,7 @@ if ($_GET["action"] == 'delete')
$resql=$db->query($sql); $resql=$db->query($sql);
if ($resql) if ($resql)
{ {
$file = $dir."/modules_mailings.php"; $file = $dirmod."/modules_mailings.php";
$classname = "MailingTargets"; $classname = "MailingTargets";
require_once($file); require_once($file);
@ -187,92 +189,99 @@ if ($mil->fetch($_REQUEST["id"]) >= 0)
clearstatcache(); clearstatcache();
$handle=opendir($dir); $listdir=array();
$listdir[]=$dirmod;
if (! empty($dirmod2)) $listdir[]=$dirmod2;
$var=True; foreach ($listdir as $dir)
while (($file = readdir($handle))!==false)
{ {
if (substr($file, 0, 1) <> '.' && substr($file, 0, 3) <> 'CVS') $handle=opendir($dir);
{
if (eregi("(.*)\.modules\.php$",$file,$reg))
{
$modulename=$reg[1];
if ($modulename == 'example') continue;
// Chargement de la classe $var=True;
$file = $dir."/".$modulename.".modules.php"; while (($file = readdir($handle))!==false)
$classname = "mailing_".$modulename; {
require_once($file); if (substr($file, 0, 1) <> '.' && substr($file, 0, 3) <> 'CVS')
{
if (eregi("(.*)\.modules\.php$",$file,$reg))
{
$modulename=$reg[1];
if ($modulename == 'example') continue;
$obj = new $classname($db); // Chargement de la classe
$file = $dir."/".$modulename.".modules.php";
$classname = "mailing_".$modulename;
require_once($file);
$qualified=1; $obj = new $classname($db);
foreach ($obj->require_module as $key)
{
if (! $conf->$key->enabled || (! $user->admin && $obj->require_admin))
{
$qualified=0;
//print "Les prérequis d'activation du module mailing ne sont pas respectés. Il ne sera pas actif";
break;
}
}
// Si le module mailing est qualifié $qualified=1;
if ($qualified) foreach ($obj->require_module as $key)
{ {
$var = !$var; if (! $conf->$key->enabled || (! $user->admin && $obj->require_admin))
print '<tr '.$bc[$var].'>'; {
$qualified=0;
//print "Les prérequis d'activation du module mailing ne sont pas respectés. Il ne sera pas actif";
break;
}
}
if ($mil->statut == 0) print '<form action="cibles.php?action=add&rowid='.$mil->id.'&module='.$modulename.'" method="POST">'; // Si le module mailing est qualifié
if ($qualified)
{
$var = !$var;
print '<tr '.$bc[$var].'>';
print '<td>'; if ($mil->statut == 0) print '<form action="cibles.php?action=add&rowid='.$mil->id.'&module='.$modulename.'" method="POST">';
if (! $obj->picto) $obj->picto='generic';
print img_object('',$obj->picto).' '.$obj->getDesc();
print '</td>';
/* print '<td>';
print '<td width=\"100\">'; if (! $obj->picto) $obj->picto='generic';
print $modulename; print img_object('',$obj->picto).' '.$obj->getDesc();
print "</td>"; print '</td>';
*/
$nbofrecipient=$obj->getNbOfRecipients();
print '<td align="center">';
if ($nbofrecipient >= 0)
{
print $nbofrecipient;
}
else
{
print $langs->trans("Error").' '.img_error($obj->error);
}
print '</td>';
print '<td align="center">'; /*
$filter=$obj->formFilter(); print '<td width=\"100\">';
if ($filter) print $filter; print $modulename;
else print $langs->trans("None"); print "</td>";
print '</td>'; */
$nbofrecipient=$obj->getNbOfRecipients();
print '<td align="center">';
if ($nbofrecipient >= 0)
{
print $nbofrecipient;
}
else
{
print $langs->trans("Error").' '.img_error($obj->error);
}
print '</td>';
print '<td align="center">'; print '<td align="center">';
if ($mil->statut == 0) $filter=$obj->formFilter();
{ if ($filter) print $filter;
print '<input type="submit" class="button" value="'.$langs->trans("Add").'">'; else print $langs->trans("None");
} print '</td>';
else
{
//print $langs->trans("MailNoChangePossible");
print "&nbsp;";
}
print '</td>';
if ($mil->statut == 0) print '</form>'; print '<td align="center">';
if ($mil->statut == 0)
{
print '<input type="submit" class="button" value="'.$langs->trans("Add").'">';
}
else
{
//print $langs->trans("MailNoChangePossible");
print "&nbsp;";
}
print '</td>';
print "</tr>\n"; if ($mil->statut == 0) print '</form>';
}
} print "</tr>\n";
} }
}
}
}
closedir($handle);
} }
closedir($handle);
print '</table>'; print '</table>';
print '<br>'; print '<br>';