diff --git a/dev/skeletons/modMyModule.class.php b/dev/skeletons/modMyModule.class.php
index 34888b521c2..50e9f7f1103 100644
--- a/dev/skeletons/modMyModule.class.php
+++ b/dev/skeletons/modMyModule.class.php
@@ -194,57 +194,13 @@ class modMyModule extends DolibarrModules
/**
* \brief Create tables and keys required by module
* Files mymodule.sql and mymodule.key.sql with create table and create keys
- * commands must be stored in directory /mysql/tables/mymodule/.
+ * commands must be stored in directory /mymodule/sql/
* This function is called by this->init.
* \return int <=0 if KO, >0 if OK
*/
function load_tables()
{
- include_once(DOL_DOCUMENT_ROOT ."/lib/admin.lib.php");
-
- global $db;
-
- $ok = 1;
- if ($ok)
- {
- $dir = DOL_DOCUMENT_ROOT.'/mymodule/sql/';
- $ok = 0;
-
- // Run llx_mytable.sql files
- $handle=opendir($dir);
- if ($hanlde)
- {
- while (($file = readdir($handle))!==false)
- {
- if (eregi('\.sql$',$file) && substr($file,0,4) == 'llx_' && substr($file, -8) <> '.key.sql')
- {
- $result=run_sql($dir.$file,1);
- }
- }
- closedir($handle);
- }
-
- // Run llx_mytable.key.sql files
- if ($hanlde)
- {
- $handle=opendir($dir);
- while (($file = readdir($handle))!==false)
- {
- if (eregi('\.sql$',$file) && substr($file,0,4) == 'llx_' && substr($file, -8) == '.key.sql')
- {
- $result=run_sql($dir.$file,1);
- }
- }
- closedir($handle);
- }
-
- if ($error == 0)
- {
- $ok = 1;
- }
- }
-
- return $ok;
+ return $this->_load_tables('/mymodule/sql/');
}
}
diff --git a/htdocs/admin/modules.php b/htdocs/admin/modules.php
index a3c6feee616..297d5799ab4 100644
--- a/htdocs/admin/modules.php
+++ b/htdocs/admin/modules.php
@@ -131,7 +131,7 @@ function Activate($value,$withdeps=1)
*/
function UnActivate($value,$requiredby=1)
{
- global $db, $modules;
+ global $db, $modules, $conf;
$modName = $value;
diff --git a/htdocs/includes/modules/DolibarrModules.class.php b/htdocs/includes/modules/DolibarrModules.class.php
index c2b52aa2cc7..04ea64e8983 100644
--- a/htdocs/includes/modules/DolibarrModules.class.php
+++ b/htdocs/includes/modules/DolibarrModules.class.php
@@ -107,11 +107,12 @@ class DolibarrModules
{
$sql=$array_sql[$i];
+ dolibarr_syslog("DolibarrModules::_init sql=".$sql, LOG_DEBUG);
$result=$this->db->query($sql);
if (! $result)
{
$this->error=$this->db->error();
- dolibarr_syslog("DolibarrModules::_init Error sql=".$sql." - ".$this->error, LOG_ERR);
+ dolibarr_syslog("DolibarrModules::_init Error ".$this->error, LOG_ERR);
$err++;
}
}
@@ -216,10 +217,10 @@ class DolibarrModules
/**
- \brief Retourne le nom traduit du module si la traduction existe dans admin.lang,
- sinon le nom defini par defaut dans le module.
- \return string Nom du module traduit
- */
+ * \brief Retourne le nom traduit du module si la traduction existe dans admin.lang,
+ * sinon le nom defini par defaut dans le module.
+ * \return string Nom du module traduit
+ */
function getName()
{
global $langs;
@@ -239,10 +240,10 @@ class DolibarrModules
/**
- \brief Retourne la description traduite du module si la traduction existe dans admin.lang,
- sinon la description definie par defaut dans le module.
- \return string Nom du module traduit
- */
+ * \brief Retourne la description traduite du module si la traduction existe dans admin.lang,
+ * sinon la description definie par defaut dans le module.
+ * \return string Nom du module traduit
+ */
function getDesc()
{
global $langs;
@@ -262,12 +263,12 @@ class DolibarrModules
/**
- \brief Retourne la version du module.
- Pour les modules a l'etat 'experimental', retourne la traduction de 'experimental'
- Pour les modules 'dolibarr', retourne la version de Dolibarr
- Pour les autres modules, retourne la version du module
- \return string Version du module
- */
+ * \brief Retourne la version du module.
+ * Pour les modules a l'etat 'experimental', retourne la traduction de 'experimental'
+ * Pour les modules 'dolibarr', retourne la version de Dolibarr
+ * Pour les autres modules, retourne la version du module
+ * \return string Version du module
+ */
function getVersion()
{
global $langs;
@@ -282,8 +283,8 @@ class DolibarrModules
/**
- \brief Retourne la version en base du module.
- \return string Version du module
+ * \brief Retourne la version en base du module.
+ * \return string Version du module
*/
function getDbVersion()
{
@@ -318,8 +319,8 @@ class DolibarrModules
/**
- \brief Retourne la liste des fichiers lang en rapport avec le module
- \return array Tableau des fichier lang
+ * \brief Retourne la liste des fichiers lang en rapport avec le module
+ * \return array Tableau des fichier lang
*/
function getLangFilesArray()
{
@@ -327,8 +328,8 @@ class DolibarrModules
}
/**
- \brief Retourne le libelle d'un lot de donnees exportable
- \return string Libelle du lot de donnees
+ * \brief Retourne le libelle d'un lot de donnees exportable
+ * \return string Libelle du lot de donnees
*/
function getDatasetLabel($r)
{
@@ -424,8 +425,68 @@ class DolibarrModules
/**
- \brief Insere les boites associees au module dans llx_boxes_def
- \return int Nombre d'erreurs (0 si ok)
+ * \brief Create tables and keys required by module
+ * Files module.sql and module.key.sql with create table and create keys
+ * commands must be stored in directory reldir='/module/sql/'
+ * This function is called by this->init.
+ * \return int <=0 if KO, >0 if OK
+ */
+ function _load_tables($reldir)
+ {
+ global $db,$conf;
+
+ include_once(DOL_DOCUMENT_ROOT ."/lib/admin.lib.php");
+
+ $ok = 1;
+ foreach($conf->dol_document_root as $dirroot)
+ {
+ if ($ok)
+ {
+ $dir = $dirroot.$reldir;
+ $ok = 0;
+
+ // Run llx_mytable.sql files
+ $handle=opendir($dir);
+ if ($handle)
+ {
+ while (($file = readdir($handle))!==false)
+ {
+ if (eregi('\.sql$',$file) && substr($file,0,4) == 'llx_' && substr($file, -8) <> '.key.sql')
+ {
+ $result=run_sql($dir.$file,1);
+ }
+ }
+ closedir($handle);
+ }
+
+ // Run llx_mytable.key.sql files
+ $handle=opendir($dir);
+ if ($handle)
+ {
+ while (($file = readdir($handle))!==false)
+ {
+ if (eregi('\.sql$',$file) && substr($file,0,4) == 'llx_' && substr($file, -8) == '.key.sql')
+ {
+ $result=run_sql($dir.$file,1);
+ }
+ }
+ closedir($handle);
+ }
+
+ if ($error == 0)
+ {
+ $ok = 1;
+ }
+ }
+ }
+
+ return $ok;
+ }
+
+
+ /**
+ * \brief Insere les boites associees au module dans llx_boxes_def
+ * \return int Nombre d'erreurs (0 si ok)
*/
function insert_boxes()
{
@@ -473,8 +534,8 @@ class DolibarrModules
/**
- \brief Supprime les documents
- \return int Nombre d'erreurs (0 si ok)
+ * \brief Supprime les documents
+ * \return int Nombre d'erreurs (0 si ok)
*/
function delete_docs()
{
@@ -503,9 +564,9 @@ class DolibarrModules
/**
- \brief Supprime les boites
- \return int Nombre d'erreurs (0 si ok)
- */
+ * \brief Supprime les boites
+ * \return int Nombre d'erreurs (0 si ok)
+ */
function delete_boxes()
{
$err=0;
diff --git a/htdocs/includes/modules/modCashDesk.class.php b/htdocs/includes/modules/modCashDesk.class.php
index 2d6f5fdadd4..9bb247c762c 100644
--- a/htdocs/includes/modules/modCashDesk.class.php
+++ b/htdocs/includes/modules/modCashDesk.class.php
@@ -153,51 +153,13 @@ class modCashDesk extends DolibarrModules
/**
* \brief Create tables and keys required by module
* Files mymodule.sql and mymodule.key.sql with create table and create keys
- * commands must be stored in directory /mysql/tables/mymodule/.
+ * commands must be stored in directory /mymodule/sql/
* This function is called by this->init.
* \return int <=0 if KO, >0 if OK
*/
function load_tables()
{
- include_once(DOL_DOCUMENT_ROOT ."/lib/admin.lib.php");
-
- global $db;
-
- $ok = 1;
- if ($ok)
- {
- $dir = DOL_DOCUMENT_ROOT.'/cashdesk/sql/';
- $ok = 0;
-
- // Run llx_mytable.sql files
- $handle=opendir($dir);
- while (($file = readdir($handle))!==false)
- {
- if (eregi('\.sql$',$file) && substr($file,0,4) == 'llx_' && substr($file, -8) <> '.key.sql')
- {
- $result=run_sql($dir.$file,1);
- }
- }
- closedir($handle);
-
- // Run llx_mytable.key.sql files
- $handle=opendir($dir);
- while (($file = readdir($handle))!==false)
- {
- if (eregi('\.sql$',$file) && substr($file,0,4) == 'llx_' && substr($file, -8) == '.key.sql')
- {
- $result=run_sql($dir.$file,1);
- }
- }
- closedir($handle);
-
- if ($error == 0)
- {
- $ok = 1;
- }
- }
-
- return $ok;
+ return $this->_load_tables('/cashdesk/sql/');
}
}
diff --git a/htdocs/includes/modules/modTelephonie.class.php b/htdocs/includes/modules/modTelephonie.class.php
index 103327fc0a9..10162dd7571 100644
--- a/htdocs/includes/modules/modTelephonie.class.php
+++ b/htdocs/includes/modules/modTelephonie.class.php
@@ -302,160 +302,17 @@ class modTelephonie extends DolibarrModules
return $this->_remove($sql);
}
- /*
- *
- *
- */
+
+ /**
+ * \brief Create tables and keys required by module
+ * Files mymodule.sql and mymodule.key.sql with create table and create keys
+ * commands must be stored in directory /mymodule/sql/.
+ * This function is called by this->init.
+ * \return int <=0 if KO, >0 if OK
+ */
function load_tables()
{
- /**************************************************************************************
- *
- * Chargement fichiers tables/*.sql (non *.key.sql)
- * A faire avant les fichiers *.key.sql
- *
- ***************************************************************************************/
- $ok = 1;
- if ($ok)
- {
- $dir = DOL_DOCUMENT_ROOT.'/telephonie/sql/';
-
- $ok = 0;
- $handle=opendir($dir);
- $table_exists = 0;
- while (($file = readdir($handle))!==false)
- {
- if (substr($file, strlen($file) - 4) == '.sql' && substr($file,0,4) == 'llx_' && substr($file, -8) <> '.key.sql')
- {
- $name = substr($file, 0, strlen($file) - 4);
- $buffer = '';
- $fp = fopen($dir.$file,"r");
- if ($fp)
- {
- while (!feof ($fp))
- {
- $buf = fgets($fp, 4096);
- if (substr($buf, 0, 2) <> '--')
- {
- $buffer .= $buf;
- }
- }
- fclose($fp);
-
- }
-
- //print "| Creation de la table $name/td>";
- $requestnb++;
- if (@$this->db->query($buffer))
- {
- //print " | OK requete ==== $buffer |
";
- }
- else
- {
- if ($this->db->errno() == 'DB_ERROR_TABLE_ALREADY_EXISTS')
- {
- //print "Deje existante | ";
- $table_exists = 1;
- }
- else
- {
- $error++;
- }
- }
- }
-
- }
- closedir($handle);
-
- if ($error == 0)
- {
- $ok = 1;
- }
- }
-
-
- /***************************************************************************************
- *
- * Chargement fichiers tables/*.key.sql
- * A faire apres les fichiers *.sql
- *
- ***************************************************************************************/
- if ($ok)
- {
- $okkeys = 0;
- $handle=opendir($dir);
- $table_exists = 0;
- while (($file = readdir($handle))!==false)
- {
- if (substr($file, strlen($file) - 4) == '.sql' && substr($file,0,4) == 'llx_' && substr($file, -8) == '.key.sql')
- {
- $name = substr($file, 0, strlen($file) - 4);
- $buffer = '';
- $fp = fopen($dir.$file,"r");
- if ($fp)
- {
- while (!feof ($fp))
- {
- $buf = fgets($fp, 4096);
-
- // Cas special de lignes autorisees pour certaines versions uniquement
- if (eregi('^-- V([0-9\.]+)',$buf,$reg))
- {
- $versioncommande=split('\.',$reg[1]);
- //print var_dump($versioncommande);
- //print var_dump($versionarray);
- if (sizeof($versioncommande) && sizeof($versionarray)
- && versioncompare($versioncommande,$versionarray) <= 0)
- {
- // Version qualified, delete SQL comments
- $buf=eregi_replace('^-- V([0-9\.]+)','',$buf);
- //print "Ligne $i qualifiee par version: ".$buf.'
';
- }
- }
-
- // Ajout ligne si non commentaire
- if (! eregi('^--',$buf)) $buffer .= $buf;
- }
- fclose($fp);
- }
-
- // Si plusieurs requetes, on boucle sur chaque
- $listesql=split(';',$buffer);
- foreach ($listesql as $buffer)
- {
- if (trim($buffer))
- {
- $requestnb++;
- if (@$this->db->query(trim($buffer)))
- {
- //print "OK requete ==== $buffer | ";
- }
- else
- {
- if ($this->db->errno() == 'DB_ERROR_KEY_NAME_ALREADY_EXISTS' ||
- $this->db->errno() == 'DB_ERROR_CANNOT_CREATE' ||
- $this->db->errno() == 'DB_ERROR_PRIMARY_KEY_ALREADY_EXISTS' ||
- eregi('duplicate key name',$this->db->error()))
- {
- $key_exists = 1;
- }
- else
- {
- $error++;
- }
- }
- }
- }
- }
-
- }
- closedir($handle);
-
- if ($error == 0)
- {
- $okkeys = 1;
- }
- }
-
+ return $this->_load_tables('/telephonie/sql/');
}
}
?>