<?php
/* Copyright (C) 2003-2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2004      Sebastien Di Cintio  <sdicintio@ressource-toi.org>
 * Copyright (C) 2004      Benoit Mortier       <benoit.mortier@opensides.be>
 * Copyright (C) 2004      Eric Seigne          <eric.seigne@ryxeo.com>
 * Copyright (C) 2005-2010 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2010 Regis Houssin        <regis@dolibarr.fr>
 *
 * 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
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

/**
 *	\file       	htdocs/includes/modules/DolibarrModules.class.php
 *	\brief 			Fichier de description et activation des modules Dolibarr
 *	\version		$Id$
 */


/**
 *	\class      DolibarrModules
 *	\brief      Classe mere des classes de description et activation des modules Dolibarr
 */
class DolibarrModules
{
	//! Database handler
	var $db;
	//! Relative path to module style sheet
	var $style_sheet = '';
	//! Path to create when module activated
	var $dirs = array();
	//! Tableau des boites
	var $boxes;
	//! Tableau des constantes
	var $const;
	//! Tableau des droits
	var $rights;
	//! Tableau des menus
	var $menu=array();
	//! Tableau des documents ???
	var $docs;

	var $dbversion;


	/**
	 *      \brief      Constructeur
	 *      \param      DB      handler d'acces base
	 */
	function DolibarrModules($DB)
	{
		$this->db = $DB ;
		$this->dbversion = "-";
	}


	/**
	 *      \brief      Fonction d'activation. Insere en base les constantes et boites du module
	 *      \param      array_sql       Tableau de requete sql a executer a l'activation
	 *      \param		options			Options when enabling module
	 * 		\return     int             1 if OK, 0 if KO
	 */
	function _init($array_sql, $options='')
	{
		global $langs;
		$err=0;

		$this->db->begin();

		// Insert line in module table
		if (! $err) $err+=$this->_dbactive();

		// Insert activation module constant
		if (! $err) $err+=$this->_active();

		// Insere le nom de la feuille de style
		if (! $err) $err+=$this->insert_style_sheet();

		// Insert new pages for tabs into llx_const
		if (! $err) $err+=$this->insert_tabs();

		// Insert activation triggers
		if (! $err) $err+=$this->insert_triggers();

		// Insere les constantes associees au module dans llx_const
		if (! $err) $err+=$this->insert_const();

		// Insere les boites dans llx_boxes_def
		if (! $err && $options != 'noboxes') $err+=$this->insert_boxes();

		// Insere les permissions associees au module actif dans llx_rights_def
		if (! $err) $err+=$this->insert_permissions();

		// Insere les constantes associees au module dans llx_const
		if (! $err) $err+=$this->insert_menus();

		// Create module's directories
		if (! $err) $err+=$this->create_dirs();

		// Execute les requetes sql complementaires
		if (! $err)
		{
			for ($i = 0 ; $i < sizeof($array_sql) ; $i++)
			{
				if (! $err)
				{
					$val=$array_sql[$i];
					$sql='';
					$ignoreerror=0;
					if (is_array($val))
					{
						$sql=$val['sql'];
						$ignoreerror=$val['ignoreerror'];
					}
					else
					{
						$sql=$val;
					}

					dol_syslog("DolibarrModules::_init ignoreerror=".$ignoreerror." sql=".$sql, LOG_DEBUG);
					$result=$this->db->query($sql);
					if (! $result)
					{
						if (! $ignoreerror)
						{
							$this->error=$this->db->lasterror();
							dol_syslog("DolibarrModules::_init Error ".$this->error, LOG_ERR);
							$err++;
						}
						else
						{
							dol_syslog("DolibarrModules::_init Warning ".$this->db->lasterror(), LOG_WARNING);
						}
					}
				}
			}
		}

		// Return code
		if (! $err)
		{
			$this->db->commit();
			return 1;
		}
		else
		{
			$this->db->rollback();
			return 0;
		}
	}

	/**
	 *  \brief      Fonction de desactivation. Supprime de la base les constantes et boites du module
	 *  \param      array_sql       tableau de requete sql a executer a la desactivation
	 *  \param		options			Options when disabling module
	 *  \return     int             1 if OK, 0 if KO
	 */
	function _remove($array_sql, $options='')
	{
		global $langs;
		$err=0;

		$this->db->begin();

		// Remove line in activation module
		if (! $err) $err+=$this->_dbunactive();

		// Remove activation module line
		if (! $err) $err+=$this->_unactive();

		// Remove activation of module's style sheet
		if (! $err) $err+=$this->delete_style_sheet();

		// Remove activation of module's new tabs
		if (! $err) $err+=$this->delete_tabs();

		// Remove activation of module's triggers
		if (! $err) $err+=$this->delete_triggers();

		// Remove list of module's available boxes
		if (! $err && $options != 'noboxes') $err+=$this->delete_boxes();

		// Remove module's permissions from list of available permissions
		if (! $err) $err+=$this->delete_permissions();

		// Remove module's menus
		if (! $err) $err+=$this->delete_menus();

		// Remove module's directories
		if (! $err) $err+=$this->delete_dirs();

		// Run complementary sql requests
		for ($i = 0 ; $i < sizeof($array_sql) ; $i++)
		{
			if (! $err)
			{
				dol_syslog("DolibarrModules::_remove sql=".$array_sql[$i], LOG_DEBUG);
				$result=$this->db->query($array_sql[$i]);
				if (! $result)
				{
					$this->error=$this->db->error();
					dol_syslog("DolibarrModules::_remove Error ".$this->error, LOG_ERR);
					$err++;
				}
			}
		}

		// Return code
		if (! $err)
		{
			$this->db->commit();
			return 1;
		}
		else
		{
			$this->db->rollback();
			return 0;
		}
	}


	/**
	 *	\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;
		$langs->load("admin");

		if ($langs->trans("Module".$this->numero."Name") != ("Module".$this->numero."Name"))
		{
			// Si traduction du nom du module existe
			return $langs->trans("Module".$this->numero."Name");
		}
		else
		{
			// If translation of module with its numero does not exists, we take its name
			return $this->name;
		}
	}


	/**
	 *	\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;
		$langs->load("admin");

		if ($langs->trans("Module".$this->numero."Desc") != ("Module".$this->numero."Desc"))
		{
			// Si traduction de la description du module existe
			return $langs->trans("Module".$this->numero."Desc");
		}
		else
		{
			// Si traduction de la description du module n'existe pas, on prend definition en dur dans module
			return $this->description;
		}
	}


	/**
	 *	\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;
		$langs->load("admin");

		if ($this->version == 'experimental') return $langs->trans("VersionExperimental");
		elseif ($this->version == 'development') return $langs->trans("VersionDevelopment");
		elseif ($this->version == 'dolibarr') return DOL_VERSION;
		elseif ($this->version) return $this->version;
		else return $langs->trans("VersionUnknown");
	}


	/**
	 *	\brief      Retourne la liste des fichiers lang en rapport avec le module
	 *	\return     array       Tableau des fichier lang
	 */
	function getLangFilesArray()
	{
		return $this->langfiles;
	}

	/**
	 *	\brief      Retourne le libelle d'un lot de donnees exportable
	 *	\return     string      Libelle du lot de donnees
	 */
	function getDatasetLabel($r)
	{
		global $langs;

		$langstring="ExportDataset_".$this->export_code[$r];
		if ($langs->trans($langstring) == $langstring)
		{
			// Traduction non trouvee
			return $langs->trans($this->export_label[$r]);
		}
		else
		{
			// Traduction trouvee
			return $langs->trans($langstring);
		}
	}


	/**
	 *	\brief      Insert line in dolibarr_modules table.
	 *	\return     int		Nb of errors (0 if OK)
	 * 	\remarks	Storage is made for information only, table is not required for Dolibarr usage.
	 */
	function _dbactive()
	{
		global $conf;

		$err = 0;

		$sql = "DELETE FROM ".MAIN_DB_PREFIX."dolibarr_modules";
		$sql.= " WHERE numero = ".$this->numero;
		$sql.= " AND entity = ".$conf->entity;

		dol_syslog("DolibarrModules::_dbactive sql=".$sql, LOG_DEBUG);
		$this->db->query($sql);

		$sql = "INSERT INTO ".MAIN_DB_PREFIX."dolibarr_modules (";
		$sql.= "numero";
		$sql.= ", entity";
		$sql.= ", active";
		$sql.= ", active_date";
		$sql.= ", active_version";
		$sql.= ")";
		$sql.= " VALUES (";
		$sql.= $this->numero;
		$sql.= ", ".$conf->entity;
		$sql.= ", 1";
		$sql.= ", '".$this->db->idate(gmmktime())."'";
		$sql.= ", '".$this->version."'";
		$sql.= ")";

		dol_syslog("DolibarrModules::_dbactive sql=".$sql, LOG_DEBUG);
		$this->db->query($sql);

		return $err;
	}


	/**
	 *	\brief      Remove line in dolibarr_modules table
	 *	\return     int     Nb of errors (0 if OK)
	 * 	\remarks	Storage is made for information only, table is not required for Dolibarr usage.
	 */
	function _dbunactive()
	{
		global $conf;

		$err = 0;

		$sql = "DELETE FROM ".MAIN_DB_PREFIX."dolibarr_modules";
		$sql.= " WHERE numero = ".$this->numero;
		$sql.= " AND entity in (0, ".$conf->entity.")";

		dol_syslog("DolibarrModules::_dbunactive sql=".$sql, LOG_DEBUG);
		$this->db->query($sql);

		return $err;
	}


	/**
	 *	\brief      Insert constant to activate module
	 *	\return     int     Nb of errors (0 if OK)
	 */
	function _active()
	{
		global $conf;

		$err = 0;

		// Common module
		$entity = ((! empty($this->always_enabled) || ! empty($this->core_enabled)) ? 0 : $conf->entity);

		$sql = "DELETE FROM ".MAIN_DB_PREFIX."const";
		$sql.= " WHERE ".$this->db->decrypt('name')." = '".$this->const_name."'";
		$sql.= " AND entity in (0, ".$entity.")";

		dol_syslog("DolibarrModules::_active sql=".$sql, LOG_DEBUG);
		$this->db->query($sql);

		$sql = "INSERT INTO ".MAIN_DB_PREFIX."const (name,value,visible,entity) VALUES";
		$sql.= " (".$this->db->encrypt($this->const_name,1);
		$sql.= ",".$this->db->encrypt('1',1);
		$sql.= ",0,".$entity.")";

		dol_syslog("DolibarrModules::_active sql=".$sql, LOG_DEBUG);
		if (!$this->db->query($sql))
		{
			$err++;
		}

		return $err;
	}


	/**
	 *	\brief      Remove activation line
	 *	\return     int     Nb of errors (0 if OK)
	 **/
	function _unactive()
	{
		global $conf;

		$err = 0;

		// Common module
		$entity = ((! empty($this->always_enabled) || ! empty($this->core_enabled)) ? 0 : $conf->entity);

		$sql = "DELETE FROM ".MAIN_DB_PREFIX."const";
		$sql.= " WHERE ".$this->db->decrypt('name')." = '".$this->const_name."'";
		$sql.= " AND entity in (0, ".$entity.")";

		dol_syslog("DolibarrModules::_unactive sql=".$sql);
		$this->db->query($sql);

		return $err;
	}


	/**
	 *		\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->file->dol_document_root as $dirroot)
		{
			if ($ok)
			{
				$dir = $dirroot.$reldir;
				$ok = 0;

				// Run llx_mytable.sql files
				$handle=@opendir($dir);			// Dir may not exists
				if ($handle)
				{
					while (($file = readdir($handle))!==false)
					{
						if (preg_match('/\.sql$/i',$file) && ! preg_match('/\.key\.sql$/i',$file) && substr($file,0,4) == 'llx_' && substr($file,0,4) != 'data')
						{
							$result=run_sql($dir.$file,1);
						}
					}
					closedir($handle);
				}

				// Run llx_mytable.key.sql files
				$handle=@opendir($dir);			// Dir may not exist
				if ($handle)
				{
					while (($file = readdir($handle))!==false)
					{
						if (preg_match('/\.key\.sql$/i',$file) && substr($file,0,4) == 'llx_' && substr($file,0,4) != 'data')
						{
							$result=run_sql($dir.$file,1);
						}
					}
					closedir($handle);
				}

				// Run .sql files
				$handle=@opendir($dir);			// Dir may not exist
				if ($handle)
				{
					while (($file = readdir($handle))!==false)
					{
						if (preg_match('/\.sql$/i',$file) && ! preg_match('/\.key\.sql$/i',$file) && substr($file,0,4) == 'data')
						{
							$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()
	{
		global $conf;

		$err=0;

		if (is_array($this->boxes))
		{
			foreach ($this->boxes as $key => $value)
			{
				//$titre = $this->boxes[$key][0];
				$file  = isset($this->boxes[$key][1])?$this->boxes[$key][1]:'';
				$note  = isset($this->boxes[$key][2])?$this->boxes[$key][2]:'';

				$sql = "SELECT count(*) FROM ".MAIN_DB_PREFIX."boxes_def";
				$sql.= " WHERE file = '".$file."'";
				$sql.= " AND entity = ".$conf->entity;

				if ($note) $sql.=" AND note ='".addslashes($note)."'";

				$result=$this->db->query($sql);
				if ($result)
				{
					$row = $this->db->fetch_row($result);
					if ($row[0] == 0)
					{
						$sql = "INSERT INTO ".MAIN_DB_PREFIX."boxes_def (file,entity,note)";
						$sql.= " VALUES ('".addslashes($file)."',";
						$sql.= $conf->entity.",";
						$sql.= $note?"'".addslashes($note)."'":"null";
						$sql.= ")";

						dol_syslog("DolibarrModules::insert_boxes sql=".$sql);
						if (! $this->db->query($sql))
						{
							$err++;
						}
					}
				}
				else
				{
					$this->error=$this->db->lasterror();
					dol_syslog("DolibarrModules::insert_boxes ".$this->error, LOG_ERR);
					$err++;
				}
			}
		}

		return $err;
	}


	/**
	 *	\brief      Supprime les boites
	 *	\return     int     Nombre d'erreurs (0 si ok)
	 */
	function delete_boxes()
	{
		global $conf;

		$err=0;

		if (is_array($this->boxes))
		{
			foreach ($this->boxes as $key => $value)
			{
				//$titre = $this->boxes[$key][0];
				$file  = $this->boxes[$key][1];
				//$note  = $this->boxes[$key][2];

				$sql = "DELETE FROM ".MAIN_DB_PREFIX."boxes";
				$sql.= " USING ".MAIN_DB_PREFIX."boxes, ".MAIN_DB_PREFIX."boxes_def";
				$sql.= " WHERE ".MAIN_DB_PREFIX."boxes.box_id = ".MAIN_DB_PREFIX."boxes_def.rowid";
				$sql.= " AND ".MAIN_DB_PREFIX."boxes_def.file = '".addslashes($file)."'";
				$sql.= " AND ".MAIN_DB_PREFIX."boxes_def.entity = ".$conf->entity;

				dol_syslog("DolibarrModules::delete_boxes sql=".$sql);
				$resql=$this->db->query($sql);
				if (! $resql)
				{
					$this->error=$this->db->lasterror();
					dol_syslog("DolibarrModules::delete_boxes ".$this->error, LOG_ERR);
					$err++;
				}

				$sql = "DELETE FROM ".MAIN_DB_PREFIX."boxes_def";
				$sql.= " WHERE file = '".addslashes($file)."'";
				$sql.= " AND entity = ".$conf->entity;

				dol_syslog("DolibarrModules::delete_boxes sql=".$sql);
				$resql=$this->db->query($sql);
				if (! $resql)
				{
					$this->error=$this->db->lasterror();
					dol_syslog("DolibarrModules::delete_boxes ".$this->error, LOG_ERR);
					$err++;
				}
			}
		}

		return $err;
	}

	/**
	 *	\brief      Desactive feuille de style du module par suppression ligne dans llx_const
	 *	\return     int     Nombre d'erreurs (0 si ok)
	 */
	function delete_style_sheet()
	{
		global $conf;

		$err=0;

		if ($this->style_sheet)
		{
			$sql = "DELETE FROM ".MAIN_DB_PREFIX."const";
			$sql.= " WHERE ".$this->db->decrypt('name')." = '".$this->const_name."_CSS'";
			$sql.= " AND entity = ".$conf->entity;

			dol_syslog("DolibarrModules::delete_style_sheet sql=".$sql);
			if (! $this->db->query($sql))
			{
				$this->error=$this->db->lasterror();
				dol_syslog("DolibarrModules::delete_style_sheet ".$this->error, LOG_ERR);
				$err++;
			}
		}

		return $err;
	}

	/**
	 *	\brief      Remove links to new module page present in llx_const
	 *	\return     int     Nombre d'erreurs (0 si ok)
	 */
	function delete_tabs()
	{
		global $conf;

		$err=0;

		$sql = "DELETE FROM ".MAIN_DB_PREFIX."const";
		$sql.= " WHERE ".$this->db->decrypt('name')." like '".$this->const_name."_TABS_%'";
		$sql.= " AND entity = ".$conf->entity;

		dol_syslog("DolibarrModules::delete_tabs sql=".$sql);
		if (! $this->db->query($sql))
		{
			$this->error=$this->db->lasterror();
			dol_syslog("DolibarrModules::delete_tabs ".$this->error, LOG_ERR);
			$err++;
		}

		return $err;
	}

	/**
	 *	\brief      Active la feuille de style associee au module par insertion ligne dans llx_const
	 *	\return     int     Nombre d'erreurs (0 si ok)
	 */
	function insert_style_sheet()
	{
		global $conf;

		$err=0;

		if ($this->style_sheet)
		{
			$sql = "INSERT INTO ".MAIN_DB_PREFIX."const (";
			$sql.= "name";
			$sql.= ", type";
			$sql.= ", value";
			$sql.= ", note";
			$sql.= ", visible";
			$sql.= ", entity";
			$sql.= ")";
			$sql.= " VALUES (";
			$sql.= $this->db->encrypt($this->const_name."_CSS",1);
			$sql.= ", 'chaine'";
			$sql.= ", ".$this->db->encrypt($this->style_sheet,1);
			$sql.= ", 'Style sheet for module ".$this->name."'";
			$sql.= ", '0'";
			$sql.= ", ".$conf->entity;
			$sql.= ")";

			dol_syslog("DolibarrModules::insert_style_sheet sql=".$sql);
			$resql=$this->db->query($sql);
			/* Allow duplicate key
			 if (! $resql)
			 {
				$err++;
				}
				*/
		}

		return $err;
	}

	/**
	 *	\brief      Add links of new pages from modules in llx_const
	 *	\return     int     Number of errors (0 if ok)
	 */
	function insert_tabs()
	{
		global $conf;

		$err=0;

		if (! empty($this->tabs))
		{
			$i=0;
			foreach ($this->tabs as $key => $value)
			{
				if ($value)
				{
					$sql = "INSERT INTO ".MAIN_DB_PREFIX."const (";
					$sql.= "name";
					$sql.= ", type";
					$sql.= ", value";
					$sql.= ", note";
					$sql.= ", visible";
					$sql.= ", entity";
					$sql.= ")";
					$sql.= " VALUES (";
					$sql.= $this->db->encrypt($this->const_name."_TABS_".$i,1);
					$sql.= ", 'chaine'";
					$sql.= ", ".$this->db->encrypt($value,1);
					$sql.= ", null";
					$sql.= ", '0'";
					$sql.= ", ".$conf->entity;
					$sql.= ")";

					dol_syslog("DolibarrModules::insert_tabs sql=".$sql);
					$resql=$this->db->query($sql);
					/* Allow duplicate key
					 if (! $resql)
					 {
						$err++;
						}
						*/
				}
				$i++;
			}
		}
		return $err;
	}

	/**
	 *	\brief      Insert constants defined into $this->const array into table llx_const
	 *	\return     int     Number of errors (0 if OK)
	 */
	function insert_const()
	{
		global $conf;

		$err=0;

		foreach ($this->const as $key => $value)
		{
			$name      = $this->const[$key][0];
			$type      = $this->const[$key][1];
			$val       = $this->const[$key][2];
			$note      = $this->const[$key][3];
			$visible   = $this->const[$key][4];
			$entity    = ! empty($this->const[$key][5])?0:$conf->entity;

			// Clean
			if (empty($visible)) $visible='0';
			if (empty($val)) $val='';

			$sql = "SELECT count(*)";
			$sql.= " FROM ".MAIN_DB_PREFIX."const";
			$sql.= " WHERE ".$this->db->decrypt('name')." = '".$name."'";
			$sql.= " AND entity = ".$entity;

			$result=$this->db->query($sql);
			if ($result)
			{
				$row = $this->db->fetch_row($result);

				if ($row[0] == 0)	// If not found
				{
					$sql = "INSERT INTO ".MAIN_DB_PREFIX."const (name,type,value,note,visible,entity)";
					$sql.= " VALUES (";
					$sql.= $this->db->encrypt($name,1);
					$sql.= ",'".$type."'";
					$sql.= ",".($val?$this->db->encrypt($val,1):"''");
					$sql.= ",".($note?"'".addslashes($note)."'":"null");
					$sql.= ",'".$visible."'";
					$sql.= ",".$entity;
					$sql.= ")";


					dol_syslog("DolibarrModules::insert_const sql=".$sql);
					if (! $this->db->query($sql) )
					{
						dol_syslog("DolibarrModules::insert_const ".$this->db->lasterror(), LOG_ERR);
						$err++;
					}
				}
				else
				{
					dol_syslog("DolibarrModules::insert_const constant '".$name."' already exists", LOG_WARNING);
				}
			}
			else
			{
				$err++;
			}
		}

		return $err;
	}

	/**
	 *	\brief      Insert permissions related to module to activate into llx_rights_def
	 *	\return     int     Number of error (0 if OK)
	 */
	function insert_permissions()
	{
		global $conf;

		$err=0;

		//print $this->rights_class." ".sizeof($this->rights)."<br>";

		// Test si module actif
		$sql_del = "SELECT ".$this->db->decrypt('value')." as value";
		$sql_del.= " FROM ".MAIN_DB_PREFIX."const";
		$sql_del.= " WHERE ".$this->db->decrypt('name')." = '".$this->const_name."'";
		$sql_del.= " AND entity IN (0,".$conf->entity.")";

		$resql=$this->db->query($sql_del);
		if ($resql)
		{
			$obj=$this->db->fetch_object($resql);
			if ($obj->value)
			{
				// Si module actif
				foreach ($this->rights as $key => $value)
				{
					$r_id       = $this->rights[$key][0];
					$r_desc     = $this->rights[$key][1];
					$r_type     = $this->rights[$key][2];
					$r_def      = $this->rights[$key][3];
					$r_perms    = $this->rights[$key][4];
					$r_subperms = isset($this->rights[$key][5])?$this->rights[$key][5]:'';
					$r_modul    = $this->rights_class;

					if (empty($r_type)) $r_type='w';

					if (strlen($r_perms) )
					{
						if (strlen($r_subperms) )
						{
							$sql = "INSERT INTO ".MAIN_DB_PREFIX."rights_def ";
							$sql .= " (id, entity, libelle, module, type, bydefault, perms, subperms)";
							$sql .= " VALUES ";
							$sql .= "(".$r_id.",".$conf->entity.",'".addslashes($r_desc)."','".$r_modul."','".$r_type."',".$r_def.",'".$r_perms."','".$r_subperms."')";
						}
						else
						{
							$sql = "INSERT INTO ".MAIN_DB_PREFIX."rights_def ";
							$sql .= " (id, entity, libelle, module, type, bydefault, perms)";
							$sql .= " VALUES ";
							$sql .= "(".$r_id.",".$conf->entity.",'".addslashes($r_desc)."','".$r_modul."','".$r_type."',".$r_def.",'".$r_perms."')";
						}
					}
					else
					{
						$sql = "INSERT INTO ".MAIN_DB_PREFIX."rights_def ";
						$sql .= " (id, entity, libelle, module, type, bydefault)";
						$sql .= " VALUES ";
						$sql .= "(".$r_id.",".$conf->entity.",'".addslashes($r_desc)."','".$r_modul."','".$r_type."',".$r_def.")";
					}

					dol_syslog("DolibarrModules::insert_permissions sql=".$sql, LOG_DEBUG);
					$resql=$this->db->query($sql);
					if (! $resql)
					{
						if ($this->db->errno() != "DB_ERROR_RECORD_ALREADY_EXISTS")
						{
							$this->error=$this->db->lasterror();
							dol_syslog("DolibarrModules::insert_permissions error ".$this->error, LOG_ERR);
							$err++;
							break;
						}
					}
				}
			}
		}
		else
		{
			$this->error=$this->db->lasterror();
			dol_syslog("DolibarrModules::insert_permissions ".$this->error, LOG_ERR);
			$err++;
		}

		return $err;
	}


	/**
	 \brief      Supprime les permissions
	 \return     int     Nombre d'erreurs (0 si ok)
	 */
	function delete_permissions()
	{
		global $conf;

		$err=0;

		$sql = "DELETE FROM ".MAIN_DB_PREFIX."rights_def";
		$sql.= " WHERE module = '".$this->rights_class."'";
		$sql.= " AND entity = ".$conf->entity;
		dol_syslog("DolibarrModules::delete_permissions sql=".$sql);
		if (! $this->db->query($sql))
		{
			$this->error=$this->db->lasterror();
			dol_syslog("DolibarrModules::delete_dirs ".$this->error, LOG_ERR);
			$err++;
		}

		return $err;
	}


	/**
	 *	\brief      Insere les menus dans llx_menu*
	 *	\return     int     Nombre d'erreurs (0 si ok)
	 */
	function insert_menus()
	{
		global $user;

		require_once(DOL_DOCUMENT_ROOT."/core/menubase.class.php");

		$err=0;

		$this->db->begin();

		//var_dump($this->menu); exit;
		foreach ($this->menu as $key => $value)
		{
			$menu = new Menubase($this->db);
			$menu->menu_handler='all';
			$menu->module=$this->rights_class;
			if (! $this->menu[$key]['fk_menu'])
			{
				$menu->fk_menu=0;
				//print 'aaa'.$this->menu[$key]['fk_menu'];
			}
			else
			{
				//print 'xxx'.$this->menu[$key]['fk_menu'];exit;
				$numparent=$this->menu[$key]['fk_menu'];
				$numparent=str_replace('r=','',$numparent);
				if (isset($this->menu[$numparent]['rowid']))
				{
					$menu->fk_menu=$this->menu[$numparent]['rowid'];
				}
				else
				{
					$this->error="BadDefinitionOfMenuArrayInModuleDescriptor";
					dol_syslog("DolibarrModules::insert_menus ".$this->error." ".$this->menu[$key]['fk_menu'], LOG_ERR);
					$err++;
				}
			}
			$menu->type=$this->menu[$key]['type'];
			$menu->mainmenu=$this->menu[$key]['mainmenu'];
			$menu->titre=$this->menu[$key]['titre'];
			$menu->leftmenu=isset($this->menu[$key]['leftmenu'])?$this->menu[$key]['leftmenu']:0;
			$menu->url=$this->menu[$key]['url'];
			$menu->langs=$this->menu[$key]['langs'];
			$menu->position=$this->menu[$key]['position'];
			$menu->perms=$this->menu[$key]['perms'];
			$menu->target=$this->menu[$key]['target'];
			$menu->user=$this->menu[$key]['user'];
			//$menu->constraint=$this->menu[$key]['constraint'];
			$menu->enabled=isset($this->menu[$key]['enabled'])?$this->menu[$key]['enabled']:0;

			if (! $err)
			{
				$result=$menu->create($user);
				if ($result > 0)
				{
					$this->menu[$key]['rowid']=$result;
				}
				else
				{
					$this->error=$menu->error;
					dol_syslog('DolibarrModules::insert_menus result='.$result." ".$this->error, LOG_ERR);
					$err++;
					break;
				}
			}
		}

		if (! $err)
		{
			$this->db->commit();
		}
		else
		{
			dol_syslog("DolibarrModules::insert_menus ".$this->error, LOG_ERR);
			$this->db->rollback();
		}

		return $err;
	}


	/**
	 *	\brief      Remove menus entries
	 *	\return     int     Nombre d'erreurs (0 si ok)
	 */
	function delete_menus()
	{
		global $conf;

		$err=0;

		$sql = "DELETE FROM ".MAIN_DB_PREFIX."menu";
		$sql.= " WHERE module = '".addslashes($this->rights_class)."'";
		$sql.= " AND entity = ".$conf->entity;

		dol_syslog("DolibarrModules::delete_menus sql=".$sql);
		$resql=$this->db->query($sql);
		if (! $resql)
		{
			$this->error=$this->db->lasterror();
			dol_syslog("DolibarrModules::delete_menus ".$this->error, LOG_ERR);
			$err++;
		}

		return $err;
	}

	/**
	 *	\brief      Create directories required by module
	 *	\return     int     Number of errors (0 if OK)
	 */
	function create_dirs()
	{
		global $langs, $conf;

		$err=0;

		if (is_array($this->dirs))
		{
			foreach ($this->dirs as $key => $value)
			{
				$addtodatabase=0;

				if (! is_array($value)) $dir=$value;	// Default simple mode
				else {
					$constname = $this->const_name."_DIR_";
					$dir       = $this->dirs[$key][1];
					$addtodatabase = empty($this->dirs[$key][2])?'':$this->dirs[$key][2]; // Create constante in llx_const
					$subname   = empty($this->dirs[$key][3])?'':strtoupper($this->dirs[$key][3]); // Add submodule name (ex: $conf->module->submodule->dir_output)
					$forcename = empty($this->dirs[$key][4])?'':strtoupper($this->dirs[$key][4]); // Change the module name if different

					if ($forcename) $constname = 'MAIN_MODULE_'.$forcename."_DIR_";
					if ($subname)   $constname = $constname.$subname."_";

					$name      = $constname.strtoupper($this->dirs[$key][0]);
				}

				// Define directory full path ($dir must start with "/")
				if (empty($conf->global->MAIN_MODULE_MULTICOMPANY) || $conf->entity == 1) $fulldir = DOL_DATA_ROOT.$dir;
				else $fulldir = DOL_DATA_ROOT."/".$conf->entity.$dir;
				// Create dir if it does not exists
				if ($fulldir && ! file_exists($fulldir))
				{
					if (create_exdir($fulldir) < 0)
					{
						$this->error = $langs->trans("ErrorCanNotCreateDir",$fulldir);
						dol_syslog("DolibarrModules::_init ".$this->error, LOG_ERR);
						$err++;
					}
				}

				// Define the constant in database if requested (not the default mode)
				if ($addtodatabase)
				{
					$result = $this->insert_dirs($name,$dir);
					if ($result) $err++;
				}
			}
		}

		return $err;
	}


	/**
	 *	\brief      Insert directories in llx_const
	 *	\return     int     Number of errors (0 if OK)
	 */
	function insert_dirs($name,$dir)
	{
		global $conf;

		$err=0;

		$sql = "SELECT count(*)";
		$sql.= " FROM ".MAIN_DB_PREFIX."const";
		$sql.= " WHERE ".$this->db->decrypt('name')." = '".$name."'";
		$sql.= " AND entity = ".$conf->entity;

		dol_syslog("DolibarrModules::insert_dirs sql=".$sql);
		$result=$this->db->query($sql);
		if ($result)
		{
			$row = $this->db->fetch_row($result);

			if ($row[0] == 0)
			{
				$sql = "INSERT INTO ".MAIN_DB_PREFIX."const (name,type,value,note,visible,entity)";
				$sql.= " VALUES (".$this->db->encrypt($name,1).",'chaine',".$this->db->encrypt($dir,1).",'Directory for module ".$this->name."','0',".$conf->entity.")";

				dol_syslog("DolibarrModules::insert_dirs sql=".$sql);
				$resql=$this->db->query($sql);
			}
		}
		else
		{
			$this->error=$this->db->lasterror();
			dol_syslog("DolibarrModules::insert_dirs ".$this->error, LOG_ERR);
			$err++;
		}

		return $err;
	}


	/**
	 *	\brief      Remove directory entries
	 *	\return     int     Number of errors (0 if OK)
	 */
	function delete_dirs()
	{
		global $conf;

		$err=0;

		$sql = "DELETE FROM ".MAIN_DB_PREFIX."const";
		$sql.= " WHERE ".$this->db->decrypt('name')." like '".$this->const_name."_DIR_%'";
		$sql.= " AND entity = ".$conf->entity;

		dol_syslog("DolibarrModules::delete_dirs sql=".$sql);
		if (! $this->db->query($sql))
		{
			$this->error=$this->db->lasterror();
			dol_syslog("DolibarrModules::delete_dirs ".$this->error, LOG_ERR);
			$err++;
		}

		return $err;
	}

	/**
	 *	\brief      Insert activation triggers from modules in llx_const
	 *	\return     int     Number of errors (0 if ok)
	 */
	function insert_triggers()
	{
		global $conf;

		$err=0;

		if (! empty($this->triggers))
		{
			$sql = "INSERT INTO ".MAIN_DB_PREFIX."const (";
			$sql.= "name";
			$sql.= ", type";
			$sql.= ", value";
			$sql.= ", note";
			$sql.= ", visible";
			$sql.= ", entity";
			$sql.= ")";
			$sql.= " VALUES (";
			$sql.= $this->db->encrypt($this->const_name."_TRIGGERS",1);
			$sql.= ", 'chaine'";
			$sql.= ", ".$this->db->encrypt($this->triggers,1);
			$sql.= ", null";
			$sql.= ", '0'";
			$sql.= ", ".$conf->entity;
			$sql.= ")";

			dol_syslog("DolibarrModules::insert_triggers sql=".$sql);
			$resql=$this->db->query($sql);
		}
		return $err;
	}

	/**
	 *	\brief      Remove activation triggers from modules in llx_const
	 *	\return     int     Nombre d'erreurs (0 si ok)
	 */
	function delete_triggers()
	{
		global $conf;

		$err=0;

		$sql = "DELETE FROM ".MAIN_DB_PREFIX."const";
		$sql.= " WHERE ".$this->db->decrypt('name')." LIKE '".$this->const_name."_TRIGGERS'";
		$sql.= " AND entity = ".$conf->entity;

		dol_syslog("DolibarrModules::delete_triggers sql=".$sql);
		if (! $this->db->query($sql))
		{
			$this->error=$this->db->lasterror();
			dol_syslog("DolibarrModules::delete_triggers ".$this->error, LOG_ERR);
			$err++;
		}

		return $err;
	}

}
?>