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

Qual: Mutualize code

Browse Source
This commit is contained in:
Laurent Destailleur 2008-12-07 20:10:59 +00:00
parent 8b263e4b16
commit 7e0fbd02a1
5 changed files with 103 additions and 267 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
dev/skeletons/modMyModule.class.php
View File

@ -194,57 +194,13 @@ class modMyModule extends DolibarrModules
/** /**
* \brief Create tables and keys required by module * \brief Create tables and keys required by module
* Files mymodule.sql and mymodule.key.sql with create table and create keys * 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. * This function is called by this->init.
* \return int <=0 if KO, >0 if OK * \return int <=0 if KO, >0 if OK
*/ */
function load_tables() function load_tables()
{ {
include_once(DOL_DOCUMENT_ROOT ."/lib/admin.lib.php"); return $this->_load_tables('/mymodule/sql/');
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;
} }
} }

2
htdocs/admin/modules.php
View File

@ -131,7 +131,7 @@ function Activate($value,$withdeps=1)
*/ */
function UnActivate($value,$requiredby=1) function UnActivate($value,$requiredby=1)
{ {
global $db, $modules; global $db, $modules, $conf;
$modName = $value; $modName = $value;

109
htdocs/includes/modules/DolibarrModules.class.php
View File

@ -107,11 +107,12 @@ class DolibarrModules
{ {
$sql=$array_sql[$i]; $sql=$array_sql[$i];
dolibarr_syslog("DolibarrModules::_init sql=".$sql, LOG_DEBUG);
$result=$this->db->query($sql); $result=$this->db->query($sql);
if (! $result) if (! $result)
{ {
$this->error=$this->db->error(); $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++; $err++;
} }
} }
@ -216,9 +217,9 @@ class DolibarrModules
/** /**
\brief Retourne le nom traduit du module si la traduction existe dans admin.lang, * \brief Retourne le nom traduit du module si la traduction existe dans admin.lang,
sinon le nom defini par defaut dans le module. * sinon le nom defini par defaut dans le module.
\return string Nom du module traduit * \return string Nom du module traduit
*/ */
function getName() function getName()
{ {
@ -239,9 +240,9 @@ class DolibarrModules
/** /**
\brief Retourne la description traduite du module si la traduction existe dans admin.lang, * \brief Retourne la description traduite du module si la traduction existe dans admin.lang,
sinon la description definie par defaut dans le module. * sinon la description definie par defaut dans le module.
\return string Nom du module traduit * \return string Nom du module traduit
*/ */
function getDesc() function getDesc()
{ {
@ -262,11 +263,11 @@ class DolibarrModules
/** /**
\brief Retourne la version du module. * \brief Retourne la version du module.
Pour les modules a l'etat 'experimental', retourne la traduction de 'experimental' * Pour les modules a l'etat 'experimental', retourne la traduction de 'experimental'
Pour les modules 'dolibarr', retourne la version de Dolibarr * Pour les modules 'dolibarr', retourne la version de Dolibarr
Pour les autres modules, retourne la version du module * Pour les autres modules, retourne la version du module
\return string Version du module * \return string Version du module
*/ */
function getVersion() function getVersion()
{ {
@ -282,8 +283,8 @@ class DolibarrModules
/** /**
\brief Retourne la version en base du module. * \brief Retourne la version en base du module.
\return string Version du module * \return string Version du module
*/ */
function getDbVersion() function getDbVersion()
{ {
@ -318,8 +319,8 @@ class DolibarrModules
/** /**
\brief Retourne la liste des fichiers lang en rapport avec le module * \brief Retourne la liste des fichiers lang en rapport avec le module
\return array Tableau des fichier lang * \return array Tableau des fichier lang
*/ */
function getLangFilesArray() function getLangFilesArray()
{ {
@ -327,8 +328,8 @@ class DolibarrModules
} }
/** /**
\brief Retourne le libelle d'un lot de donnees exportable * \brief Retourne le libelle d'un lot de donnees exportable
\return string Libelle du lot de donnees * \return string Libelle du lot de donnees
*/ */
function getDatasetLabel($r) function getDatasetLabel($r)
{ {
@ -424,8 +425,68 @@ class DolibarrModules
/** /**
\brief Insere les boites associees au module dans llx_boxes_def * \brief Create tables and keys required by module
\return int Nombre d'erreurs (0 si ok) * 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() function insert_boxes()
{ {
@ -473,8 +534,8 @@ class DolibarrModules
/** /**
\brief Supprime les documents * \brief Supprime les documents
\return int Nombre d'erreurs (0 si ok) * \return int Nombre d'erreurs (0 si ok)
*/ */
function delete_docs() function delete_docs()
{ {
@ -503,8 +564,8 @@ class DolibarrModules
/** /**
\brief Supprime les boites * \brief Supprime les boites
\return int Nombre d'erreurs (0 si ok) * \return int Nombre d'erreurs (0 si ok)
*/ */
function delete_boxes() function delete_boxes()
{ {

42
htdocs/includes/modules/modCashDesk.class.php
View File

@ -153,51 +153,13 @@ class modCashDesk extends DolibarrModules
/** /**
* \brief Create tables and keys required by module * \brief Create tables and keys required by module
* Files mymodule.sql and mymodule.key.sql with create table and create keys * 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. * This function is called by this->init.
* \return int <=0 if KO, >0 if OK * \return int <=0 if KO, >0 if OK
*/ */
function load_tables() function load_tables()
{ {
include_once(DOL_DOCUMENT_ROOT ."/lib/admin.lib.php"); return $this->_load_tables('/cashdesk/sql/');
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;
} }
} }

159
htdocs/includes/modules/modTelephonie.class.php
View File

@ -302,160 +302,17 @@ class modTelephonie extends DolibarrModules
return $this->_remove($sql); 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() function load_tables()
{ {
/************************************************************************************** return $this->_load_tables('/telephonie/sql/');
*
* 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 "<tr><td>Creation de la table $name/td>";
$requestnb++;
if (@$this->db->query($buffer))
{
//print "<td>OK requete ==== $buffer</td></tr>";
}
else
{
if ($this->db->errno() == 'DB_ERROR_TABLE_ALREADY_EXISTS')
{
//print "<td>Deje existante</td></tr>";
$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.'<br>';
}
}
// 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 "<td>OK requete ==== $buffer</td></tr>";
}
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;
}
}
} }
} }
?> ?>