Can use alternate document roots directories

This commit is contained in:
Laurent Destailleur 2009-07-06 12:46:20 +00:00
parent 35f6bda428
commit 371401dad5

View File

@ -1,5 +1,5 @@
<?php <?php
/* Copyright (C) 2005-2008 Laurent Destailleur <eldy@users.sourceforge.net> /* Copyright (C) 2005-2009 Laurent Destailleur <eldy@users.sourceforge.net>
* Copyright (C) 2007 Rodolphe Quiedeville <rodolphe@quiedeville.org> * Copyright (C) 2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -45,21 +45,24 @@ print "<br>\n";
print $langs->trans("ToActivateModule").'<br>'; print $langs->trans("ToActivateModule").'<br>';
print "<br>\n"; print "<br>\n";
// Charge les modules
$dir = DOL_DOCUMENT_ROOT . "/includes/modules/";
$handle=opendir($dir);
$modules = array(); $modules = array();
$modules_names = array(); $modules_names = array();
$modules_files = array(); $modules_files = array();
// Load list of modules
foreach($conf->file->dol_document_root as $searchdir)
{
$dirtoscan=$searchdir.'/includes/modules/';
$handle=opendir($dirtoscan);
while (($file = readdir($handle))!==false) while (($file = readdir($handle))!==false)
{ {
if (is_readable($dir.$file) && substr($file, 0, 3) == 'mod' && substr($file, strlen($file) - 10) == '.class.php') if (is_readable($dirtoscan.$file) && substr($file, 0, 3) == 'mod' && substr($file, strlen($file) - 10) == '.class.php')
{ {
$modName = substr($file, 0, strlen($file) - 10); $modName = substr($file, 0, strlen($file) - 10);
if ($modName) if ($modName)
{ {
include_once(DOL_DOCUMENT_ROOT."/includes/modules/".$file); include_once($dirtoscan.$file);
$objMod = new $modName($db); $objMod = new $modName($db);
$modules[$objMod->numero]=$objMod; $modules[$objMod->numero]=$objMod;
@ -69,6 +72,7 @@ while (($file = readdir($handle))!==false)
} }
} }
} }
}
print '<table class="noborder" width="100%">'; print '<table class="noborder" width="100%">';
print '<tr class="liste_titre">'; print '<tr class="liste_titre">';
print '<td>'.$langs->trans("Modules").'</td>'; print '<td>'.$langs->trans("Modules").'</td>';