DolibarrModules.class.php

Go to the documentation of this file.

<?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-2013  Laurent Destailleur     <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2012  Regis Houssin           <regis.houssin@capnetworks.com>
 * Copyright (C) 2014       Raphaël Doursenaud      <rdoursenaud@gpcsolutions.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 3 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, see <http://www.gnu.org/licenses/>.
 */

class DolibarrModules           // Can not be abstract, because we need to instantiate it into unActivateModule to be able to disable a module whose files were removed.
{
  public $db;

  public $numero;

  public $editor_name;

  public $editor_url;

  public $family;

  public $familyinfo;

  public $module_position=500;

  public $name;

  public $dirs = array();

  public $boxes = array();

  public $const = array();

  public $cronjobs = array();

  public $rights;

  public $rights_class;

  public $menu = array();

  public $module_parts = array();

  public $docs;

  public $dbversion = "-";

  public $error;

  public $version;

  public $description;

  public $descriptionlong;


  // For exports

  public $export_code;

  public $export_label;

  public $export_permission;
  public $export_fields_array;
  public $export_TypeFields_array;
  public $export_entities_array;
  public $export_special_array;           // special or computed field
  public $export_dependencies_array;
  public $export_sql_start;
  public $export_sql_end;
  public $export_sql_order;


  // For import

  public $import_code;

  public $import_label;


  public $const_name;

  public $always_enabled;

  public $core_enabled;

  public $style_sheet = '';

  public $special;

  public $picto;

  public $config_page_url;


  public $depends;

  public $requiredby;

  public $conflictwith;

  public $langfiles;

  public $warnings_activation;

  public $warnings_activation_ext;


  public $phpmin;

  public $need_dolibarr_version;

  public $hidden = false;





  public function __construct($db)
  {
    $this->db = $db;
  }
  // We should but can't set this as abstract because this will make dolibarr hang
  // after migration due to old module not implementing. We must wait PHP is able to make
  // a try catch on Fatal error to manage this correctly.
  // We need constructor into function unActivateModule into admin.lib.php


  function _init($array_sql, $options='')
  {
    global $conf;
    $err=0;

    $this->db->begin();

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

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

    // Insert activation of module's parts
    if (! $err) $err+=$this->insert_module_parts();

    // Insert constant defined by modules (into llx_const)
    if (! $err && ! preg_match('/newboxdefonly/',$options)) $err+=$this->insert_const();  // Test on newboxdefonly to avoid to erase value during upgrade

    // Insert boxes def into llx_boxes_def and boxes setup (into llx_boxes)
    if (! $err && ! preg_match('/noboxes/',$options)) $err+=$this->insert_boxes($options);

    // Insert cron job entries (entry in llx_cronjobs)
    if (! $err) $err+=$this->insert_cronjobs();

    // Insert permission definitions of module into llx_rights_def. If user is admin, grant this permission to user.
    if (! $err) $err+=$this->insert_permissions(1, null, 1);

    // Insert specific menus entries into database
    if (! $err) $err+=$this->insert_menus();

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

    // Execute addons requests
    $num=count($array_sql);
    for ($i = 0; $i < $num; $i++)
    {
      if (! $err)
      {
        $val=$array_sql[$i];
        $sql=$val;
        $ignoreerror=0;
        if (is_array($val))
        {
          $sql=$val['sql'];
          $ignoreerror=$val['ignoreerror'];
        }
        // Add current entity id
        $sql=str_replace('__ENTITY__', $conf->entity, $sql);

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

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

  function _remove($array_sql, $options='')
  {
    $err=0;

    $this->db->begin();

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

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

    // Remove activation of module's parts (MAIN_MODULE_MYMODULE_XXX in llx_const)
    if (! $err) $err+=$this->delete_module_parts();

    // Remove constants defined by modules
    if (! $err) $err+=$this->delete_const();

    // Remove list of module's available boxes (entry in llx_boxes)
    if (! $err && ! preg_match('/(newboxdefonly|noboxes)/',$options)) $err+=$this->delete_boxes();  // We don't have to delete if option ask to keep boxes safe or ask to add new box def only

    // Remove list of module's cron job entries (entry in llx_cronjobs)
    if (! $err) $err+=$this->delete_cronjobs();

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

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

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

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

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


  function getName()
  {
    global $langs;
    $langs->load("admin");

    if ($langs->transnoentitiesnoconv("Module".$this->numero."Name") != ("Module".$this->numero."Name"))
    {
      // If module name translation exists
      return $langs->transnoentitiesnoconv("Module".$this->numero."Name");
    }
    else
    {
      // If module name translation using it's unique id does not exists, we try to use its name to find translation
      if (is_array($this->langfiles))
      {
        foreach($this->langfiles as $val)
        {
          if ($val) $langs->load($val);
        }
      }

      if ($langs->trans("Module".$this->name."Name") != ("Module".$this->name."Name"))
      {
        // If module name translation exists
        return $langs->transnoentitiesnoconv("Module".$this->name."Name");
      }

      // Last chance with simple label
      return $langs->transnoentitiesnoconv($this->name);
    }
  }


  function getDesc()
  {
    global $langs;
    $langs->load("admin");

    if ($langs->transnoentitiesnoconv("Module".$this->numero."Desc") != ("Module".$this->numero."Desc"))
    {
      // If module description translation exists
      return $langs->transnoentitiesnoconv("Module".$this->numero."Desc");
    }
    else
    {
      // If module description translation does not exist using its unique id, we can use its name to find translation
      if (is_array($this->langfiles))
      {
        foreach($this->langfiles as $val)
        {
          if ($val) $langs->load($val);
        }
      }

      if ($langs->transnoentitiesnoconv("Module".$this->name."Desc") != ("Module".$this->name."Desc"))
      {
        // If module name translation exists
        return $langs->trans("Module".$this->name."Desc");
      }

      // Last chance with simple label
      return $langs->trans($this->description);
    }
  }

  function getDescLong()
  {
    global $langs;
    $langs->load("admin");

    include_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
    include_once DOL_DOCUMENT_ROOT.'/core/lib/geturl.lib.php';

    $pathoffile = $this->getDescLongReadmeFound();

    if ($pathoffile)     // Mostly for external modules
    {
      $content = file_get_contents($pathoffile);

      if ((float) DOL_VERSION >= 6.0)
      {
        @include_once DOL_DOCUMENT_ROOT.'/core/lib/parsemd.lib.php';

        $content = dolMd2Html($content, 'parsedown',
          array(
            'doc/'=>dol_buildpath(strtolower($this->name).'/doc/', 1),
            'img/'=>dol_buildpath(strtolower($this->name).'/img/', 1),
            'images/'=>dol_buildpath(strtolower($this->name).'/imgages/', 1),
          ));
      }
      else
      {
        $content = nl2br($content);
      }
    }
    else                // Mostly for internal modules
    {
      if (! empty($this->descriptionlong))
      {
        if (is_array($this->langfiles))
        {
          foreach($this->langfiles as $val)
          {
            if ($val) $langs->load($val);
          }
        }

        $content = $langs->transnoentitiesnoconv($this->descriptionlong);
      }
    }

    return $content;
  }

  function getDescLongReadmeFound()
  {
    global $langs;

    $filefound= false;

    // Define path to file README.md.
    // First check README-la_LA.md then README-la.md then README.md
    $pathoffile = dol_buildpath(strtolower($this->name).'/README-'.$langs->defaultlang.'.md', 0);
    if (dol_is_file($pathoffile))
    {
      $filefound = true;
    }
    if (! $filefound)
    {
      $tmp=explode('_', $langs->defaultlang);
      $pathoffile = dol_buildpath(strtolower($this->name).'/README-'.$tmp[0].'.md', 0);
      if (dol_is_file($pathoffile))
      {
        $filefound = true;
      }
    }
    if (! $filefound)
    {
      $pathoffile = dol_buildpath(strtolower($this->name).'/README.md', 0);
      if (dol_is_file($pathoffile))
      {
        $filefound = true;
      }
    }

    return ($filefound?$pathoffile:'');
  }


  function getChangeLog()
  {
    global $langs;
    $langs->load("admin");

    include_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
    include_once DOL_DOCUMENT_ROOT.'/core/lib/geturl.lib.php';

    $filefound= false;

    // Define path to file README.md.
    // First check README-la_LA.md then README.md
    $pathoffile = dol_buildpath(strtolower($this->name).'/ChangeLog-'.$langs->defaultlang.'.md', 0);
    if (dol_is_file($pathoffile))
    {
      $filefound = true;
    }
    if (! $filefound)
    {
      $pathoffile = dol_buildpath(strtolower($this->name).'/ChangeLog.md', 0);
      if (dol_is_file($pathoffile))
      {
        $filefound = true;
      }
    }

    if ($filefound)     // Mostly for external modules
    {
      $content = file_get_contents($pathoffile);

      if ((float) DOL_VERSION >= 6.0)
      {
        @include_once DOL_DOCUMENT_ROOT.'/core/lib/parsemd.lib.php';
        $content = dolMd2Html($content, 'parsedown', array('doc/'=>dol_buildpath(strtolower($this->name).'/doc/', 1)));
      }
      else
      {
        $content = nl2br($content);
      }
    }

    return $content;
  }

  function getPublisher()
  {
    return $this->editor_name;
  }

  function getPublisherUrl()
  {
    return $this->editor_url;
  }

  function getVersion($translated=1)
  {
    global $langs;
    $langs->load("admin");

    $ret='';

    $newversion=preg_replace('/_deprecated/','',$this->version);
    if ($newversion == 'experimental') $ret=($translated?$langs->transnoentitiesnoconv("VersionExperimental"):$newversion);
    elseif ($newversion == 'development') $ret=($translated?$langs->transnoentitiesnoconv("VersionDevelopment"):$newversion);
    elseif ($newversion == 'dolibarr') $ret=DOL_VERSION;
    elseif ($newversion) $ret=$newversion;
    else $ret=($translated?$langs->transnoentitiesnoconv("VersionUnknown"):'unknown');

    if (preg_match('/_deprecated/',$this->version)) $ret.=($translated?' ('.$langs->transnoentitiesnoconv("Deprecated").')':$this->version);
    return $ret;
  }


  function isCoreOrExternalModule()
  {
    if ($this->version == 'dolibarr' || $this->version == 'dolibarr_deprecated') return 'core';
    if (! empty($this->version) && ! in_array($this->version,array('experimental','development'))) return 'external';
    if (! empty($this->editor_name) || ! empty($this->editor_url)) return 'external';
    if ($this->numero >= 100000) return 'external';
    return 'unknown';
  }


  function getLangFilesArray()
  {
    return $this->langfiles;
  }

  function getExportDatasetLabel($r)
  {
    global $langs;

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


  function getImportDatasetLabel($r)
  {
    global $langs;

    $langstring="ImportDataset_".$this->import_code[$r];
    //print "x".$langstring;
    if ($langs->trans($langstring) == $langstring)
    {
      // Translation not found
      return $langs->transnoentitiesnoconv($this->import_label[$r]);
    }
    else
    {
      // Translation found
      return $langs->transnoentitiesnoconv($langstring);
    }
  }


  function getLastActivationDate()
  {
    global $conf;

    $sql = "SELECT tms FROM ".MAIN_DB_PREFIX."const";
    $sql.= " WHERE ".$this->db->decrypt('name')." = '".$this->db->escape($this->const_name)."'";
    $sql.= " AND entity IN (0, ".$conf->entity.")";

    dol_syslog(get_class($this)."::getLastActiveDate", LOG_DEBUG);
    $resql=$this->db->query($sql);
    if (! $resql) $err++;
    else
    {
      $obj=$this->db->fetch_object($resql);
      if ($obj) return $this->db->jdate($obj->tms);
    }

    return '';
  }


  function getLastActivationInfo()
  {
    global $conf;

    $sql = "SELECT tms, note FROM ".MAIN_DB_PREFIX."const";
    $sql.= " WHERE ".$this->db->decrypt('name')." = '".$this->db->escape($this->const_name)."'";
    $sql.= " AND entity IN (0, ".$conf->entity.")";

    dol_syslog(get_class($this)."::getLastActiveDate", LOG_DEBUG);
    $resql=$this->db->query($sql);
    if (! $resql) $err++;
    else
    {
      $obj=$this->db->fetch_object($resql);
      $tmp=array();
      if ($obj->note)
      {
        $tmp=json_decode($obj->note, true);
      }
      if ($obj) return array('authorid'=>$tmp['authorid'], 'ip'=>$tmp['ip'], 'lastactivationdate'=>$this->db->jdate($obj->tms));
    }

    return array();
  }


  function _active()
  {
    global $conf, $user;

    $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->db->escape($this->const_name)."'";
    $sql.= " AND entity IN (0, ".$entity.")";

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

    $note=json_encode(array('authorid'=>(is_object($user)?$user->id:0), 'ip'=>(empty($_SERVER['REMOTE_ADDR'])?'':$_SERVER['REMOTE_ADDR'])));

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

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

    return $err;
  }


  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->db->escape($this->const_name)."'";
    $sql.= " AND entity IN (0, ".$entity.")";

    dol_syslog(get_class($this)."::_unactive", LOG_DEBUG);
    $this->db->query($sql);

    return $err;
  }


  function _load_tables($reldir)
  {
    global $conf;

    $error=0;
    $dirfound=0;

    if (empty($reldir)) return 1;

    include_once DOL_DOCUMENT_ROOT . '/core/lib/admin.lib.php';

    $ok = 1;
    foreach($conf->file->dol_document_root as $dirroot)
    {
      if ($ok)
      {
        $dir = $dirroot.$reldir;
        $ok = 0;

        $handle=@opendir($dir);         // Dir may not exists
        if (is_resource($handle))
        {
          $dirfound++;

          // Run llx_mytable.sql files, then llx_mytable_*.sql
          $files = array();
          while (($file = readdir($handle))!==false)
          {
            $files[] = $file;
          }
          sort($files);
          foreach ($files as $file)
          {
            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,'',1);
              if ($result <= 0) $error++;
            }
          }

          rewinddir($handle);

          // Run llx_mytable.key.sql files (Must be done after llx_mytable.sql) then then llx_mytable_*.key.sql
          $files = array();
          while (($file = readdir($handle))!==false)
          {
            $files[] = $file;
          }
          sort($files);
          foreach ($files as $file)
          {
            if (preg_match('/\.key\.sql$/i',$file) && substr($file,0,4) == 'llx_' && substr($file,0,4) != 'data')
            {
              $result=run_sql($dir.$file,1,'',1);
              if ($result <= 0) $error++;
            }
          }

          rewinddir($handle);

          // Run data_xxx.sql files (Must be done after llx_mytable.key.sql)
          $files = array();
          while (($file = readdir($handle))!==false)
          {
            $files[] = $file;
          }
          sort($files);
          foreach ($files as $file)
          {
            if (preg_match('/\.sql$/i',$file) && ! preg_match('/\.key\.sql$/i',$file) && substr($file,0,4) == 'data')
            {
              $result=run_sql($dir.$file,1,'',1);
              if ($result <= 0) $error++;
            }
          }

          rewinddir($handle);

          // Run update_xxx.sql files
          $files = array();
          while (($file = readdir($handle))!==false)
          {
            $files[] = $file;
          }
          sort($files);
          foreach ($files as $file)
          {
            if (preg_match('/\.sql$/i',$file) && ! preg_match('/\.key\.sql$/i',$file) && substr($file,0,6) == 'update')
            {
              $result=run_sql($dir.$file,1,'',1);
              if ($result <= 0) $error++;
            }
          }

          closedir($handle);
        }

        if ($error == 0)
        {
          $ok = 1;
        }
      }
    }

    if (! $dirfound) dol_syslog("A module ask to load sql files into ".$reldir." but this directory was not found.", LOG_WARNING);
    return $ok;
  }


  function insert_boxes($option='')
  {
    require_once DOL_DOCUMENT_ROOT . '/core/class/infobox.class.php';

    global $conf;

    $err=0;

    if (is_array($this->boxes))
    {
      $pos_name = InfoBox::getListOfPagesForBoxes();

      foreach ($this->boxes as $key => $value)
      {
        $file  = isset($this->boxes[$key]['file'])?$this->boxes[$key]['file']:'';
        $note  = isset($this->boxes[$key]['note'])?$this->boxes[$key]['note']:'';
        $enabledbydefaulton = isset($this->boxes[$key]['enabledbydefaulton'])?$this->boxes[$key]['enabledbydefaulton']:'Home';

        if (empty($file)) $file  = isset($this->boxes[$key][1])?$this->boxes[$key][1]:''; // For backward compatibility
        if (empty($note)) $note  = isset($this->boxes[$key][2])?$this->boxes[$key][2]:''; // For backward compatibility

        // Search if boxes def already present
        $sql = "SELECT count(*) as nb FROM ".MAIN_DB_PREFIX."boxes_def";
        $sql.= " WHERE file = '".$this->db->escape($file)."'";
        $sql.= " AND entity = ".$conf->entity;
        if ($note) $sql.=" AND note ='".$this->db->escape($note)."'";

        dol_syslog(get_class($this)."::insert_boxes", LOG_DEBUG);
        $result=$this->db->query($sql);
        if ($result)
        {
          $obj = $this->db->fetch_object($result);
          if ($obj->nb == 0)
          {
            $this->db->begin();

            if (! $err)
            {
              $sql = "INSERT INTO ".MAIN_DB_PREFIX."boxes_def (file, entity, note)";
              $sql.= " VALUES ('".$this->db->escape($file)."', ";
              $sql.= $conf->entity.", ";
              $sql.= $note?"'".$this->db->escape($note)."'":"null";
              $sql.= ")";

              dol_syslog(get_class($this)."::insert_boxes", LOG_DEBUG);
              $resql=$this->db->query($sql);
              if (! $resql) $err++;

            }
            if (! $err && ! preg_match('/newboxdefonly/',$option))
            {
              $lastid=$this->db->last_insert_id(MAIN_DB_PREFIX."boxes_def","rowid");

              foreach ($pos_name as $key2 => $val2)
              {
                //print 'key2='.$key2.'-val2='.$val2."<br>\n";
                if ($enabledbydefaulton && $val2 != $enabledbydefaulton) continue;    // Not enabled by default onto this page.

                $sql = "INSERT INTO ".MAIN_DB_PREFIX."boxes (box_id,position,box_order,fk_user,entity)";
                $sql.= " VALUES (".$lastid.", ".$key2.", '0', 0, ".$conf->entity.")";

                dol_syslog(get_class($this)."::insert_boxes onto page ".$key2."=".$val2."", LOG_DEBUG);
                $resql=$this->db->query($sql);
                if (! $resql) $err++;
              }
            }

            if (! $err)
            {
              $this->db->commit();
            }
            else
            {
              $this->error=$this->db->lasterror();
              $this->db->rollback();
            }
          }
          // else box already registered into database
        }
        else
        {
          $this->error=$this->db->lasterror();
          $err++;
        }
      }
    }

    return $err;
  }


  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]['file'];
        //$note  = $this->boxes[$key][2];

        // TODO If the box is also included by another module and the other module is still on, we should not remove it.
        // For the moment, we manage this with hard coded exception
        //print "Remove box ".$file.'<br>';
        if ($file == 'box_graph_product_distribution.php')
        {
          if (! empty($conf->produit->enabled) || ! empty($conf->service->enabled))
          {
            dol_syslog("We discard disabling of module ".$file." because another module still active require it.");
            continue;
          }
        }

        if (empty($file)) $file  = isset($this->boxes[$key][1])?$this->boxes[$key][1]:''; // For backward compatibility

        if ($this->db->type == 'sqlite3') {
          // sqlite doesn't support "USING" syntax.
          // TODO: remove this dependency.
          $sql = "DELETE FROM ".MAIN_DB_PREFIX."boxes ";
          $sql .= "WHERE ".MAIN_DB_PREFIX."boxes.box_id IN (";
          $sql .= "SELECT ".MAIN_DB_PREFIX."boxes_def.rowid ";
          $sql .= "FROM ".MAIN_DB_PREFIX."boxes_def ";
          $sql .= "WHERE ".MAIN_DB_PREFIX."boxes_def.file = '".$this->db->escape($file)."') ";
          $sql .= "AND ".MAIN_DB_PREFIX."boxes.entity = ".$conf->entity;
        } else {
          $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 = '".$this->db->escape($file)."'";
          $sql.= " AND ".MAIN_DB_PREFIX."boxes.entity = ".$conf->entity;
        }

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

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

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

    return $err;
  }

  function insert_cronjobs()
  {
    require_once DOL_DOCUMENT_ROOT . '/core/class/infobox.class.php';

    global $conf;

    $err=0;

    if (is_array($this->cronjobs))
    {
      foreach ($this->cronjobs as $key => $value)
      {
        $label  = isset($this->cronjobs[$key]['label'])?$this->cronjobs[$key]['label']:'';
        $jobtype  = isset($this->cronjobs[$key]['jobtype'])?$this->cronjobs[$key]['jobtype']:'';
        $class  = isset($this->cronjobs[$key]['class'])?$this->cronjobs[$key]['class']:'';
        $objectname  = isset($this->cronjobs[$key]['objectname'])?$this->cronjobs[$key]['objectname']:'';
        $method = isset($this->cronjobs[$key]['method'])?$this->cronjobs[$key]['method']:'';
        $command  = isset($this->cronjobs[$key]['command'])?$this->cronjobs[$key]['command']:'';
        $parameters  = isset($this->cronjobs[$key]['parameters'])?$this->cronjobs[$key]['parameters']:'';
        $comment = isset($this->cronjobs[$key]['comment'])?$this->cronjobs[$key]['comment']:'';
        $frequency = isset($this->cronjobs[$key]['frequency'])?$this->cronjobs[$key]['frequency']:'';
        $unitfrequency = isset($this->cronjobs[$key]['unitfrequency'])?$this->cronjobs[$key]['unitfrequency']:'';
        $status = isset($this->cronjobs[$key]['status'])?$this->cronjobs[$key]['status']:'';
        $priority = isset($this->cronjobs[$key]['priority'])?$this->cronjobs[$key]['priority']:'';
        $test = isset($this->cronjobs[$key]['test'])?$this->cronjobs[$key]['test']:'';                              // Line must be visible

        // Search if boxes def already present
        $sql = "SELECT count(*) as nb FROM ".MAIN_DB_PREFIX."cronjob";
        $sql.= " WHERE module_name = '".$this->db->escape($this->rights_class)."'";
        if ($class) $sql.= " AND classesname = '".$this->db->escape($class)."'";
        if ($objectname) $sql.= " AND objectname = '".$this->db->escape($objectname)."'";
        if ($method) $sql.= " AND methodename = '".$this->db->escape($method)."'";
        if ($command) $sql.= " AND command = '".$this->db->escape($command)."'";
        $sql.= " AND entity = ".$conf->entity;

        $now=dol_now();

        dol_syslog(get_class($this)."::insert_cronjobs", LOG_DEBUG);
        $result=$this->db->query($sql);
        if ($result)
        {
          $obj = $this->db->fetch_object($result);
          if ($obj->nb == 0)
          {
            $this->db->begin();

            if (! $err)
            {
              $sql = "INSERT INTO ".MAIN_DB_PREFIX."cronjob (module_name, datec, datestart, label, jobtype, classesname, objectname, methodename, command, params, note,";
              if(is_int($frequency)){ $sql.= ' frequency,'; }
              if(is_int($unitfrequency)){ $sql.= ' unitfrequency,'; }
              if(is_int($priority)){ $sql.= ' priority,'; }
              if(is_int($status)){ $sql.= ' status,'; }
              $sql.= " entity, test)";
              $sql.= " VALUES (";
              $sql.= "'".$this->db->escape($this->rights_class)."', ";
              $sql.= "'".$this->db->idate($now)."', ";
              $sql.= "'".$this->db->idate($now)."', ";
              $sql.= "'".$this->db->escape($label)."', ";
              $sql.= "'".$this->db->escape($jobtype)."', ";
              $sql.= ($class?"'".$this->db->escape($class)."'":"null").",";
              $sql.= ($objectname?"'".$this->db->escape($objectname)."'":"null").",";
              $sql.= ($method?"'".$this->db->escape($method)."'":"null").",";
              $sql.= ($command?"'".$this->db->escape($command)."'":"null").",";
              $sql.= ($parameters?"'".$this->db->escape($parameters)."'":"null").",";
              $sql.= ($comment?"'".$this->db->escape($comment)."'":"null").",";
              if(is_int($frequency)){ $sql.= "'".$this->db->escape($frequency)."', "; }
              if(is_int($unitfrequency)){ $sql.= "'".$this->db->escape($unitfrequency)."', "; }
              if(is_int($priority)) {$sql.= "'".$this->db->escape($priority)."', ";}
              if(is_int($status)){ $sql.= "'".$this->db->escape($status)."', "; }
              $sql.= $conf->entity.",";
              $sql.= "'".$this->db->escape($test)."'";
              $sql.= ")";

              dol_syslog(get_class($this)."::insert_cronjobs", LOG_DEBUG);
              $resql=$this->db->query($sql);
              if (! $resql) $err++;

            }

            if (! $err)
            {
              $this->db->commit();
            }
            else
            {
              $this->error=$this->db->lasterror();
              $this->db->rollback();
            }
          }
          // else box already registered into database
        }
        else
        {
          $this->error=$this->db->lasterror();
          $err++;
        }
      }
    }

    return $err;
  }


  function delete_cronjobs()
  {
    global $conf;

    $err=0;

    if (is_array($this->cronjobs))
    {
      $sql = "DELETE FROM ".MAIN_DB_PREFIX."cronjob";
      $sql.= " WHERE module_name = '".$this->db->escape($this->rights_class)."'";
      $sql.= " AND entity = ".$conf->entity;

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

    return $err;
  }

  function delete_tabs()
  {
    global $conf;

    $err=0;

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

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

    return $err;
  }

  function insert_tabs()
  {
    global $conf;

    $err=0;

    if (! empty($this->tabs))
    {
      $i=0;
      foreach ($this->tabs as $key => $value)
      {
        if (is_array($value) && count($value) == 0) continue; // Discard empty arrays

        $entity=$conf->entity;
        $newvalue = $value;

        if (is_array($value))
        {
          $newvalue = $value['data'];
          if (isset($value['entity'])) $entity = $value['entity'];
        }

        if ($newvalue)
        {
          $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($newvalue,1);
          $sql.= ", null";
          $sql.= ", '0'";
          $sql.= ", ".$entity;
          $sql.= ")";

          dol_syslog(get_class($this)."::insert_tabs", LOG_DEBUG);
          $resql = $this->db->query($sql);
          if (! $resql)
          {
            dol_syslog($this->db->lasterror(), LOG_ERR);
            if ($this->db->lasterrno() != 'DB_ERROR_RECORD_ALREADY_EXISTS')
            {
              $this->error = $this->db->lasterror();
              $this->errors[] = $this->db->lasterror();
              $err++;
              break;
            }
          }
        }
        $i++;
      }
    }
    return $err;
  }

  function insert_const()
  {
    global $conf;

    $err=0;

    if (empty($this->const)) return 0;

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

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

      $sql = "SELECT count(*)";
      $sql.= " FROM ".MAIN_DB_PREFIX."const";
      $sql.= " WHERE ".$this->db->decrypt('name')." = '".$this->db->escape($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?"'".$this->db->escape($note)."'":"null");
          $sql.= ",'".$visible."'";
          $sql.= ",".$entity;
          $sql.= ")";


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

    return $err;
  }

  function delete_const()
  {
    global $conf;

    $err=0;

    if (empty($this->const)) return 0;

    foreach ($this->const as $key => $value)
    {
      $name      = $this->const[$key][0];
      $deleteonunactive = (! empty($this->const[$key][6]))?1:0;

      if ($deleteonunactive)
      {
        $sql = "DELETE FROM ".MAIN_DB_PREFIX."const";
        $sql.= " WHERE ".$this->db->decrypt('name')." = '".$name."'";
        $sql.= " AND entity in (0, ".$conf->entity.")";
        dol_syslog(get_class($this)."::delete_const", LOG_DEBUG);
        if (! $this->db->query($sql))
        {
          $this->error=$this->db->lasterror();
          $err++;
        }
      }
    }

    return $err;
  }

  function insert_permissions($reinitadminperms=0, $force_entity=null, $notrigger=0)
  {
    global $conf,$user;

    $err=0;
    $entity=(! empty($force_entity) ? $force_entity : $conf->entity);

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

    dol_syslog(get_class($this)."::insert_permissions", LOG_DEBUG);
    $resql=$this->db->query($sql_del);

    if ($resql)
    {
      $obj=$this->db->fetch_object($resql);
      if ($obj !== null && ! empty($obj->value) && ! empty($this->rights))
      {
        // If the module is active
        foreach ($this->rights as $key => $value)
        {
          $r_id       = $this->rights[$key][0];
          $r_desc     = $this->rights[$key][1];
          $r_type     = isset($this->rights[$key][2])?$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    = empty($this->rights_class)?strtolower($this->name):$this->rights_class;

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

          // Search if perm already present
          $sql = "SELECT count(*) as nb FROM ".MAIN_DB_PREFIX."rights_def";
          $sql.= " WHERE id = ".$r_id." AND entity = ".$entity;
          $resqlselect=$this->db->query($sql);

          $obj = $this->db->fetch_object($resqlselect);
          if ($obj->nb == 0)
          {
            if (dol_strlen($r_perms) )
            {
              if (dol_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.",".$entity.",'".$this->db->escape($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.",".$entity.",'".$this->db->escape($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.",".$entity.",'".$this->db->escape($r_desc)."','".$r_modul."','".$r_type."',".$r_def.")";
            }

            $resqlinsert=$this->db->query($sql,1);

            if (! $resqlinsert)
            {
              if ($this->db->errno() != "DB_ERROR_RECORD_ALREADY_EXISTS")
              {
                $this->error=$this->db->lasterror();
                $err++;
                break;
              }
              else dol_syslog(get_class($this)."::insert_permissions record already exists", LOG_INFO);

            }

            $this->db->free($resqlinsert);
          }

          $this->db->free($resqlselect);

          // If we want to init permissions on admin users
          if ($reinitadminperms)
          {
            if (! class_exists('User')) {
              require_once DOL_DOCUMENT_ROOT . '/user/class/user.class.php';
            }
            $sql="SELECT rowid FROM ".MAIN_DB_PREFIX."user WHERE admin = 1";
            dol_syslog(get_class($this)."::insert_permissions Search all admin users", LOG_DEBUG);
            $resqlseladmin=$this->db->query($sql,1);
            if ($resqlseladmin)
            {
              $num=$this->db->num_rows($resqlseladmin);
              $i=0;
              while ($i < $num)
              {
                $obj2=$this->db->fetch_object($resqlseladmin);
                dol_syslog(get_class($this)."::insert_permissions Add permission to user id=".$obj2->rowid);
                $tmpuser=new User($this->db);
                $tmpuser->fetch($obj2->rowid);
                if (!empty($tmpuser->id)) {
                  $tmpuser->addrights($r_id, '', '', 0, 1);
                }
                $i++;
              }
              if (! empty($user->admin))  // Reload permission for current user if defined
              {
                // We reload permissions
                $user->clearrights();
                $user->getrights();
              }
            }
            else dol_print_error($this->db);
          }
        }
      }
      $this->db->free($resql);
    }
    else
    {
      $this->error=$this->db->lasterror();
      $err++;
    }

    return $err;
  }


  function delete_permissions()
  {
    global $conf;

    $err=0;

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

    return $err;
  }


  function insert_menus()
  {
    global $user;

    if (! is_array($this->menu) || empty($this->menu)) return 0;

    require_once DOL_DOCUMENT_ROOT . '/core/class/menubase.class.php';

    $err=0;

    $this->db->begin();

    foreach ($this->menu as $key => $value)
    {
      $menu = new Menubase($this->db);
      $menu->menu_handler='all';

      //$menu->module=strtolower($this->name);  TODO When right_class will be same than module name
      $menu->module=$this->rights_class;

      if (! $this->menu[$key]['fk_menu'])
      {
        $menu->fk_menu=0;
      }
      else
      {
        $foundparent=0;
        $fk_parent=$this->menu[$key]['fk_menu'];
        if (preg_match('/^r=/',$fk_parent)) // old deprecated method
        {
          $fk_parent=str_replace('r=','',$fk_parent);
          if (isset($this->menu[$fk_parent]['rowid']))
          {
            $menu->fk_menu=$this->menu[$fk_parent]['rowid'];
            $foundparent=1;
          }
        }
        elseif (preg_match('/^fk_mainmenu=([a-zA-Z0-9_]+),fk_leftmenu=([a-zA-Z0-9_]+)$/',$fk_parent,$reg))
        {
          $menu->fk_menu=-1;
          $menu->fk_mainmenu=$reg[1];
          $menu->fk_leftmenu=$reg[2];
          $foundparent=1;
        }
        elseif (preg_match('/^fk_mainmenu=([a-zA-Z0-9_]+)$/',$fk_parent,$reg))
        {
          $menu->fk_menu=-1;
          $menu->fk_mainmenu=$reg[1];
          $menu->fk_leftmenu='';
          $foundparent=1;
        }
        if (! $foundparent)
        {
          $this->error="ErrorBadDefinitionOfMenuArrayInModuleDescriptor";
          dol_syslog(get_class($this)."::insert_menus ".$this->error." ".$this->menu[$key]['fk_menu'], LOG_ERR);
          $err++;
        }
      }
      $menu->type=$this->menu[$key]['type'];
      $menu->mainmenu=isset($this->menu[$key]['mainmenu'])?$this->menu[$key]['mainmenu']:(isset($menu->fk_mainmenu)?$menu->fk_mainmenu:'');
      $menu->leftmenu=isset($this->menu[$key]['leftmenu'])?$this->menu[$key]['leftmenu']:'';
      $menu->titre=$this->menu[$key]['titre'];
      $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=isset($this->menu[$key]['target'])?$this->menu[$key]['target']:'';
      $menu->user=$this->menu[$key]['user'];
      $menu->enabled=isset($this->menu[$key]['enabled'])?$this->menu[$key]['enabled']:0;
      $menu->position=$this->menu[$key]['position'];

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

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

    return $err;
  }


  function delete_menus()
  {
    global $conf;

    $err=0;

    //$module=strtolower($this->name);    TODO When right_class will be same than module name
    $module=$this->rights_class;

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

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

    return $err;
  }

  function create_dirs()
  {
    global $langs, $conf;

    $err=0;

    if (isset($this->dirs) && 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 (! empty($forcename)) $constname = 'MAIN_MODULE_'.$forcename."_DIR_";
          if (! empty($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 (! empty($fulldir) && ! file_exists($fulldir))
        {
          if (dol_mkdir($fulldir, DOL_DATA_ROOT) < 0)
          {
            $this->error = $langs->trans("ErrorCanNotCreateDir",$fulldir);
            dol_syslog(get_class($this)."::_init ".$this->error, LOG_ERR);
            $err++;
          }
        }

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

    return $err;
  }


  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(get_class($this)."::insert_dirs", LOG_DEBUG);
    $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(get_class($this)."::insert_dirs", LOG_DEBUG);
        $this->db->query($sql);
      }
    }
    else
    {
      $this->error=$this->db->lasterror();
      $err++;
    }

    return $err;
  }


  function delete_dirs()
  {
    global $conf;

    $err=0;

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

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

    return $err;
  }

  function insert_module_parts()
  {
    global $conf;

    $error=0;

    if (is_array($this->module_parts) && ! empty($this->module_parts))
    {
      foreach($this->module_parts as $key => $value)
      {
        if (is_array($value) && count($value) == 0) continue; // Discard empty arrays

        $entity=$conf->entity; // Reset the current entity
        $newvalue = $value;

        // Serialize array parameters
        if (is_array($value))
        {
          // Can defined other parameters
          if (is_array($value['data']) && ! empty($value['data']))
          {
            $newvalue = json_encode($value['data']);
            if (isset($value['entity'])) $entity = $value['entity'];
          }
          else if (isset($value['data']) && !is_array($value['data']))
          {
            $newvalue = $value['data'];
            if (isset($value['entity'])) $entity = $value['entity'];
          }
          else
          {
            $newvalue = json_encode($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."_".strtoupper($key), 1);
        $sql.= ", 'chaine'";
        $sql.= ", ".$this->db->encrypt($newvalue, 1);
        $sql.= ", null";
        $sql.= ", '0'";
        $sql.= ", ".$entity;
        $sql.= ")";

        dol_syslog(get_class($this)."::insert_const_".$key."", LOG_DEBUG);
        $resql=$this->db->query($sql,1);
        if (! $resql)
        {
          if ($this->db->lasterrno() != 'DB_ERROR_RECORD_ALREADY_EXISTS')
          {
            $error++;
            $this->error=$this->db->lasterror();
          }
          else
          {
            dol_syslog(get_class($this)."::insert_const_".$key." Record already exists.", LOG_WARNING);
          }
        }
      }
    }
    return $error;
  }

  function delete_module_parts()
  {
    global $conf;

    $err=0;
    $entity=$conf->entity;

    if (is_array($this->module_parts) && ! empty($this->module_parts))
    {
      foreach($this->module_parts as $key => $value)
      {
        // If entity is defined
        if (is_array($value) && isset($value['entity'])) $entity = $value['entity'];

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

        dol_syslog(get_class($this)."::delete_const_".$key."", LOG_DEBUG);
        if (! $this->db->query($sql))
        {
          $this->error=$this->db->lasterror();
          $err++;
        }
      }
    }
    return $err;
  }

  public function init($options = '')
  {
    return $this->_init(array(), $options);
  }

  public function remove($options = '')
  {
    return $this->_remove(array(), $options);
  }
}