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@inodbox.com>
 * Copyright (C) 2014       Raphaël Doursenaud      <rdoursenaud@gpcsolutions.fr>
 * Copyright (C) 2018       Josep Lluís Amador      <joseplluis@lliuretic.cat>
 * Copyright (C) 2019       Frédéric France         <frederic.france@netlogic.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 <https://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 = '50';
 
  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 $lastVersion = '';
 
  public $needUpdate = false;
 
  public $description;
 
  public $descriptionlong;
 
 
  // For exports
 
  public $export_code;
 
  public $export_label;
 
  public $export_icon;
 
  public $export_permission;
  public $export_fields_array;
  public $export_TypeFields_array; // Array of key=>type where type can be 'Numeric', 'Date', 'Text', 'Boolean', 'Status', 'List:xxx:login:rowid'
  public $export_entities_array;
  public $export_help_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 $import_icon;
 
  public $import_entities_array;
  public $import_tables_array;
  public $import_fields_array;
  public $import_fieldshidden_array;
  public $import_convertvalue_array;
  public $import_regex_array;
  public $import_examplevalues_array;
  public $import_updatekeys_array;
 
 
  public $const_name;
 
  public $always_enabled;
 
  public $disabled;
 
  public $core_enabled;
 
  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 $url_last_version;
 
 
  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
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.PublicUnderscore
  protected function _init($array_sql, $options = '')
  {
    // phpcs:enable
    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;
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.PublicUnderscore
  protected function _remove($array_sql, $options = '')
  {
    // phpcs:enable
    $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;
    }
  }
 
 
  public 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 exist, 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);
    }
  }
 
 
  public 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);
    }
  }
 
  public 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';
 
    $content='';
    $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).'/images/', 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;
  }
 
  public 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 : '');
  }
 
 
  public 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 ChangeLog-la_LA.md then ChangeLog.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;
  }
 
  public function getPublisher()
  {
    return $this->editor_name;
  }
 
  public function getPublisherUrl()
  {
    return $this->editor_url;
  }
 
  public 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;
  }
 
  public function getModulePosition()
  {
    if (in_array($this->version, array('dolibarr', 'experimental', 'development'))) { // core module
      return $this->module_position;
    } else {                                      // external module
      if ($this->module_position >= 100000) {
        return $this->module_position;
      } else {
        return $this->module_position + 100000;
      }
    }
  }
 
  public 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';
  }
 
 
  public function getLangFilesArray()
  {
    return $this->langfiles;
  }
 
  public 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);
    }
  }
 
 
  public 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);
    }
  }
 
 
  public function getLastActivationDate()
  {
    global $conf;
 
    $err = 0;
 
    $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 '';
  }
 
 
  public function getLastActivationInfo()
  {
    global $conf;
 
    $err = 0;
 
    $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);
      if ($obj) {
        $tmp = array();
        if ($obj->note) {
          $tmp = json_decode($obj->note, true);
        }
        return array(
          'authorid' => $tmp['authorid'],
          'ip' => $tmp['ip'],
          'lastactivationdate' => $this->db->jdate($obj->tms),
          'lastactivationversion' => (!empty($tmp['lastactivationversion']) ? $tmp['lastactivationversion'] : 'unknown'),
        );
      }
    }
 
    return array();
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.PublicUnderscore
  protected function _active()
  {
    // phpcs:enable
    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 delete activation constant", 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']),
        'lastactivationversion' => $this->version,
      )
    );
 
    $sql = "INSERT INTO ".MAIN_DB_PREFIX."const (name, value, visible, entity, note) VALUES";
    $sql .= " (".$this->db->encrypt($this->const_name);
    $sql .= ", ".$this->db->encrypt('1');
    $sql .= ", 0, ".((int) $entity);
    $sql .= ", '".$this->db->escape($note)."')";
 
    dol_syslog(get_class($this)."::_active insert activation constant", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if (!$resql) {
      $err++;
    }
 
    return $err;
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.PublicUnderscore
  protected function _unactive()
  {
    // phpcs:enable
    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;
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps,PEAR.NamingConventions.ValidFunctionName.PublicUnderscore
  protected function _load_tables($reldir, $onlywithsuffix = '')
  {
    // phpcs:enable
    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) {
        $dirsql = $dirroot.$reldir;
        $ok = 0;
 
        // We will loop on xxx/, xxx/tables/, xxx/data/
        $listofsubdir = array('', 'tables/', 'data/');
        if ($this->db->type == 'pgsql') {
          $listofsubdir[] = '../pgsql/functions/';
        }
 
        foreach ($listofsubdir as $subdir) {
          $dir = $dirsql.$subdir;
 
          $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 ($onlywithsuffix) {
                if (!preg_match('/\-'.preg_quote($onlywithsuffix, '/').'\./i', $file)) {
                  //print 'File '.$file.' does not match suffix '.$onlywithsuffix.' so it is discarded<br>'."\n";
                  continue;
                } else {
                  //print 'File '.$file.' match suffix '.$onlywithsuffix.' so we keep it<br>'."\n";
                }
              }
              if (preg_match('/\.sql$/i', $file) && !preg_match('/\.key\.sql$/i', $file) && substr($file, 0, 4) == 'llx_') {
                $result = run_sql($dir.$file, empty($conf->global->MAIN_DISPLAY_SQL_INSTALL_LOG) ? 1 : 0, '', 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 ($onlywithsuffix) {
                if (!preg_match('/\-'.preg_quote($onlywithsuffix, '/').'\./i', $file)) {
                  //print 'File '.$file.' does not match suffix '.$onlywithsuffix.' so it is discarded<br>'."\n";
                  continue;
                } else {
                  //print 'File '.$file.' match suffix '.$onlywithsuffix.' so we keep it<br>'."\n";
                }
              }
              if (preg_match('/\.key\.sql$/i', $file) && substr($file, 0, 4) == 'llx_') {
                $result = run_sql($dir.$file, empty($conf->global->MAIN_DISPLAY_SQL_INSTALL_LOG) ? 1 : 0, '', 1);
                if ($result <= 0) {
                  $error++;
                }
              }
            }
 
            rewinddir($handle);
 
            // Run functions-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 ($onlywithsuffix) {
                if (!preg_match('/\-'.preg_quote($onlywithsuffix, '/').'\./i', $file)) {
                  //print 'File '.$file.' does not match suffix '.$onlywithsuffix.' so it is discarded<br>'."\n";
                  continue;
                } else {
                  //print 'File '.$file.' match suffix '.$onlywithsuffix.' so we keep it<br>'."\n";
                }
              }
              if (preg_match('/\.sql$/i', $file) && !preg_match('/\.key\.sql$/i', $file) && substr($file, 0, 9) == 'functions') {
                $result = run_sql($dir.$file, empty($conf->global->MAIN_DISPLAY_SQL_INSTALL_LOG) ? 1 : 0, '', 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 ($onlywithsuffix) {
                if (!preg_match('/\-'.preg_quote($onlywithsuffix, '/').'\./i', $file)) {
                  //print 'File '.$file.' does not match suffix '.$onlywithsuffix.' so it is discarded<br>'."\n";
                  continue;
                } else {
                  //print 'File '.$file.' match suffix '.$onlywithsuffix.' so we keep it<br>'."\n";
                }
              }
              if (preg_match('/\.sql$/i', $file) && !preg_match('/\.key\.sql$/i', $file) && substr($file, 0, 4) == 'data') {
                $result = run_sql($dir.$file, empty($conf->global->MAIN_DISPLAY_SQL_INSTALL_LOG) ? 1 : 0, '', 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 ($onlywithsuffix) {
                if (!preg_match('/\-'.preg_quote($onlywithsuffix, '/').'\./i', $file)) {
                  //print 'File '.$file.' does not match suffix '.$onlywithsuffix.' so it is discarded<br>'."\n";
                  continue;
                } else {
                  //print 'File '.$file.' match suffix '.$onlywithsuffix.' so we keep it<br>'."\n";
                }
              }
              if (preg_match('/\.sql$/i', $file) && !preg_match('/\.key\.sql$/i', $file) && substr($file, 0, 6) == 'update') {
                $result = run_sql($dir.$file, empty($conf->global->MAIN_DISPLAY_SQL_INSTALL_LOG) ? 1 : 0, '', 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;
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function insert_boxes($option = '')
  {
    // phpcs:enable
    include_once DOL_DOCUMENT_ROOT.'/core/class/infobox.class.php';
 
    global $conf;
 
    $err = 0;
 
    if (is_array($this->boxes)) {
      dol_syslog(get_class($this)."::insert_boxes", LOG_DEBUG);
 
      $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)."'";
        }
 
        $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 (".((int) $lastid).", ".((int) $key2).", '0', 0, ".((int) $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;
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function delete_boxes()
  {
    // phpcs:enable
    global $conf;
 
    $err = 0;
 
    if (is_array($this->boxes)) {
      foreach ($this->boxes as $key => $value) {
        //$titre = $this->boxes[$key][0];
        if (empty($this->boxes[$key]['file'])) {
          $file = isset($this->boxes[$key][1]) ? $this->boxes[$key][1] : ''; // For backward compatibility
        } else {
          $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 (isModEnabled("product") || isModEnabled("service")) {
            dol_syslog("We discard deleting module ".$file." because another module still active requires it.");
            continue;
          }
        }
 
        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;   // Do not use getEntity here, we want to delete only in current company
 
        dol_syslog(get_class($this)."::delete_boxes", LOG_DEBUG);
        $resql = $this->db->query($sql);
        if (!$resql) {
          $this->error = $this->db->lasterror();
          $err++;
        }
      }
    }
 
    return $err;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function insert_cronjobs()
  {
    // phpcs:enable
    include_once DOL_DOCUMENT_ROOT.'/core/class/infobox.class.php';
 
    global $conf;
 
    $err = 0;
 
    if (is_array($this->cronjobs)) {
      dol_syslog(get_class($this)."::insert_cronjobs", LOG_DEBUG);
 
      foreach ($this->cronjobs as $key => $value) {
        $entity = isset($this->cronjobs[$key]['entity']) ? $this->cronjobs[$key]['entity'] : $conf->entity;
        $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'] : '';
        $priority = isset($this->cronjobs[$key]['priority']) ? $this->cronjobs[$key]['priority'] : '';
        $datestart = isset($this->cronjobs[$key]['datestart']) ? $this->cronjobs[$key]['datestart'] : '';
        $dateend = isset($this->cronjobs[$key]['dateend']) ? $this->cronjobs[$key]['dateend'] : '';
        $status = isset($this->cronjobs[$key]['status']) ? $this->cronjobs[$key]['status'] : '';
        $test = isset($this->cronjobs[$key]['test']) ? $this->cronjobs[$key]['test'] : ''; // Line must be enabled or not (so visible or not)
 
        // Search if cron entry already present
        $sql = "SELECT count(*) as nb FROM ".MAIN_DB_PREFIX."cronjob";
        //$sql .= " WHERE module_name = '".$this->db->escape(empty($this->rights_class) ?strtolower($this->name) : $this->rights_class)."'";
        $sql .= " WHERE label = '".$this->db->escape($label)."'";
        /*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)."'";
        }
        if ($parameters) {
          $sql .= " AND params = '".$this->db->escape($parameters)."'";
        }*/
        $sql .= " AND entity = ".((int) $entity); // Must be exact entity
 
        $now = dol_now();
 
        $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, dateend, 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(empty($this->rights_class) ?strtolower($this->name) : $this->rights_class)."', ";
              $sql .= "'".$this->db->idate($now)."', ";
              $sql .= ($datestart ? "'".$this->db->idate($datestart)."'" : "'".$this->db->idate($now)."'").", ";
              $sql .= ($dateend ? "'".$this->db->idate($dateend)."'" : "NULL").", ";
              $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 .= ((int) $status).", ";
              }
              $sql .= $entity.",";
              $sql .= "'".$this->db->escape($test)."'";
              $sql .= ")";
 
              $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;
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function delete_cronjobs()
  {
    // phpcs:enable
    global $conf;
 
    $err = 0;
 
    if (is_array($this->cronjobs)) {
      $sql = "DELETE FROM ".MAIN_DB_PREFIX."cronjob";
      $sql .= " WHERE module_name = '".$this->db->escape(empty($this->rights_class) ?strtolower($this->name) : $this->rights_class)."'";
      $sql .= " AND entity = ".$conf->entity;
      $sql .= " AND test = '1'"; // We delete on lines that are not set with a complete test that is '$conf->module->enabled' so when module is disabled, the cron is also removed.
        // For crons declared with a '$conf->module->enabled', there is no need to delete the line, so we don't loose setup if we reenable module.
 
      dol_syslog(get_class($this)."::delete_cronjobs", LOG_DEBUG);
      $resql = $this->db->query($sql);
      if (!$resql) {
        $this->error = $this->db->lasterror();
        $err++;
      }
    }
 
    return $err;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function delete_tabs()
  {
    // phpcs:enable
    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;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function insert_tabs()
  {
    // phpcs:enable
    global $conf;
 
    $err = 0;
 
    if (!empty($this->tabs)) {
      dol_syslog(get_class($this)."::insert_tabs", LOG_DEBUG);
 
      $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);
          $sql .= ", 'chaine'";
          $sql .= ", ".$this->db->encrypt($newvalue);
          $sql .= ", null";
          $sql .= ", '0'";
          $sql .= ", ".((int) $entity);
          $sql .= ")";
 
          $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;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function insert_const()
  {
    // phpcs:enable
    global $conf;
 
    $err = 0;
 
    if (empty($this->const)) {
      return 0;
    }
 
    dol_syslog(get_class($this)."::insert_const", LOG_DEBUG);
 
    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 = ".((int) $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);
          $sql .= ",'".$this->db->escape($type)."'";
          $sql .= ",".(($val != '') ? $this->db->encrypt($val) : "''");
          $sql .= ",".($note ? "'".$this->db->escape($note)."'" : "null");
          $sql .= ",'".$this->db->escape($visible)."'";
          $sql .= ",".$entity;
          $sql .= ")";
 
          if (!$this->db->query($sql)) {
            $err++;
          }
        } else {
          dol_syslog(get_class($this)."::insert_const constant '".$name."' already exists", LOG_WARNING);
        }
      } else {
        $err++;
      }
    }
 
    return $err;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function delete_const()
  {
    // phpcs:enable
    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')." = '".$this->db->escape($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;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function insert_permissions($reinitadminperms = 0, $force_entity = null, $notrigger = 0)
  {
    // phpcs:enable
    global $conf, $user;
 
    $err = 0;
    $entity = (!empty($force_entity) ? $force_entity : $conf->entity);
 
    dol_syslog(get_class($this)."::insert_permissions", LOG_DEBUG);
 
    // 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.")";
 
    $resql = $this->db->query($sql_del);
 
    if ($resql) {
      $obj = $this->db->fetch_object($resql);
 
      if ($obj !== null && !empty($obj->value) && !empty($this->rights)) {
        include_once DOL_DOCUMENT_ROOT.'/user/class/user.class.php';
 
        // If the module is active
        foreach ($this->rights as $key => $value) {
          $r_id       = $this->rights[$key][0]; // permission id in llx_rights_def (not unique because primary key is couple id-entity)
          $r_desc     = $this->rights[$key][1];
          $r_type     = isset($this->rights[$key][2]) ? $this->rights[$key][2] : '';
          $r_def      = empty($this->rights[$key][3]) ? 0 : $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 = ".((int) $r_id)." AND entity = ".((int) $entity);
 
          $resqlselect = $this->db->query($sql);
          if ($resqlselect) {
            $objcount = $this->db->fetch_object($resqlselect);
            if ($objcount && $objcount->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)."','".$this->db->escape($r_modul)."','".$this->db->escape($r_type)."',".$r_def.",'".$this->db->escape($r_perms)."','".$this->db->escape($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)."','".$this->db->escape($r_modul)."','".$this->db->escape($r_type)."',".$r_def.",'".$this->db->escape($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)."','".$this->db->escape($r_modul)."','".$this->db->escape($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) {
            $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 id ".$r_id." to user id=".$obj2->rowid);
 
                $tmpuser = new User($this->db);
                $result = $tmpuser->fetch($obj2->rowid);
                if ($result > 0) {
                  $tmpuser->addrights($r_id, '', '', 0, 1);
                } else {
                  dol_syslog(get_class($this)."::insert_permissions Failed to add the permission to user because fetch return an error", LOG_ERR);
                }
                 $i++;
              }
            } else {
              dol_print_error($this->db);
            }
          }
        }
 
        if ($reinitadminperms && !empty($user->admin)) {  // Reload permission for current user if defined
          // We reload permissions
          $user->clearrights();
          $user->getrights();
        }
      }
      $this->db->free($resql);
    } else {
      $this->error = $this->db->lasterror();
      $err++;
    }
 
    return $err;
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function delete_permissions()
  {
    // phpcs:enable
    global $conf;
 
    $err = 0;
 
    $sql = "DELETE FROM ".MAIN_DB_PREFIX."rights_def";
    $sql .= " WHERE module = '".$this->db->escape(empty($this->rights_class) ?strtolower($this->name) : $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;
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function insert_menus()
  {
    // phpcs:enable
    global $user;
 
    if (!is_array($this->menu) || empty($this->menu)) {
      return 0;
    }
 
    include_once DOL_DOCUMENT_ROOT.'/core/class/menubase.class.php';
 
    dol_syslog(get_class($this)."::insert_menus", LOG_DEBUG);
 
    $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 = (empty($this->rights_class) ? strtolower($this->name) : $this->rights_class);
 
      if (!$this->menu[$key]['fk_menu']) {
        $menu->fk_menu = 0;
      } else {
        $foundparent = 0;
        $fk_parent = $this->menu[$key]['fk_menu'];
        $reg = array();
        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->title = $this->menu[$key]['titre'];
      $menu->prefix = isset($this->menu[$key]['prefix']) ? $this->menu[$key]['prefix'] : '';
      $menu->url = $this->menu[$key]['url'];
      $menu->langs = isset($this->menu[$key]['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;
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function delete_menus()
  {
    // phpcs:enable
    global $conf;
 
    $err = 0;
 
    //$module=strtolower($this->name);        TODO When right_class will be same than module name
    $module = empty($this->rights_class) ?strtolower($this->name) : $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;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function create_dirs()
  {
    // phpcs:enable
    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;
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function insert_dirs($name, $dir)
  {
    // phpcs:enable
    global $conf;
 
    $err = 0;
 
    $sql = "SELECT count(*)";
    $sql .= " FROM ".MAIN_DB_PREFIX."const";
    $sql .= " WHERE ".$this->db->decrypt('name')." = '".$this->db->escape($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).", 'chaine', ".$this->db->encrypt($dir).", '".$this->db->escape("Directory for module ".$this->name)."', '0', ".((int) $conf->entity).")";
 
        dol_syslog(get_class($this)."::insert_dirs", LOG_DEBUG);
        $this->db->query($sql);
      }
    } else {
      $this->error = $this->db->lasterror();
      $err++;
    }
 
    return $err;
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function delete_dirs()
  {
    // phpcs:enable
    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;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function insert_module_parts()
  {
    // phpcs:enable
    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
          // Example when $key='hooks', then $value is an array('data'=>array('hookcontext1','hookcontext2'), 'entity'=>X)
          if (isset($value['data']) && is_array($value['data'])) {
            $newvalue = json_encode($value['data']);
            if (isset($value['entity'])) {
              $entity = $value['entity'];
            }
          } elseif (isset($value['data']) && !is_array($value['data'])) {
            $newvalue = $value['data'];
            if (isset($value['entity'])) {
              $entity = $value['entity'];
            }
          } else { // when hook is declared with syntax 'hook'=>array('hookcontext1','hookcontext2',...)
            $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));
        $sql .= ", 'chaine'";
        $sql .= ", ".$this->db->encrypt($newvalue);
        $sql .= ", null";
        $sql .= ", '0'";
        $sql .= ", ".((int) $entity);
        $sql .= ")";
 
        dol_syslog(get_class($this)."::insert_module_parts for key=".$this->const_name."_".strtoupper($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_module_parts for ".$this->const_name."_".strtoupper($key)." Record already exists.", LOG_WARNING);
          }
        }
      }
    }
    return $error;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function delete_module_parts()
  {
    // phpcs:enable
    global $conf;
 
    $err = 0;
    $entity = $conf->entity;
 
    if (is_array($this->module_parts) && !empty($this->module_parts)) {
      dol_syslog(get_class($this)."::delete_module_parts", LOG_DEBUG);
 
      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 = ".((int) $entity);
 
        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);
  }
 
 
  public function getKanbanView($codeenabledisable = '', $codetoconfig = '')
  {
    global $conf, $langs;
 
    // Define imginfo
    $imginfo = "info";
    if ($this->isCoreOrExternalModule() == 'external') {
      $imginfo = "info_black";
    }
 
    $const_name = 'MAIN_MODULE_'.strtoupper(preg_replace('/^mod/i', '', get_class($this)));
 
    $version = $this->getVersion(0);
    $versiontrans = '';
    if (preg_match('/development/i', $version)) {
      $versiontrans .= 'warning';
    }
    if (preg_match('/experimental/i', $version)) {
      $versiontrans .= 'warning';
    }
    if (preg_match('/deprecated/i', $version)) {
      $versiontrans .= 'warning';
    }
 
    print '
      <div class="box-flex-item info-box-module'
      .(empty($conf->global->$const_name) ? ' --disabled' : '')
      .($this->isCoreOrExternalModule() == 'external' ? ' --external' : '')
      .($this->needUpdate ? ' --need-update' : '')
      .'">
      <div class="info-box info-box-sm info-box-module">
      <div class="info-box-icon'.(empty($conf->global->$const_name) ? '' : ' info-box-icon-module-enabled'.($versiontrans ? ' info-box-icon-module-warning' : '')).'">';
 
    $alttext = '';
    //if (is_array($objMod->need_dolibarr_version)) $alttext.=($alttext?' - ':'').'Dolibarr >= '.join('.',$objMod->need_dolibarr_version);
    //if (is_array($objMod->phpmin)) $alttext.=($alttext?' - ':'').'PHP >= '.join('.',$objMod->phpmin);
    if (!empty($this->picto)) {
      if (preg_match('/^\//i', $this->picto)) {
        print img_picto($alttext, $this->picto, 'class="inline-block valignmiddle"', 1);
      } else {
        print img_object($alttext, $this->picto, 'class="inline-block valignmiddle"');
      }
    } else {
      print img_object($alttext, 'generic', 'class="inline-block valignmiddle"');
    }
 
    if ($this->isCoreOrExternalModule() == 'external' || preg_match('/development|experimental|deprecated/i', $version)) {
      $versionTitle =  $langs->trans("Version").' '.$this->getVersion(1);
      if ($this->needUpdate) {
        $versionTitle.= '<br>'.$langs->trans('ModuleUpdateAvailable').' : '.$this->lastVersion;
      }
 
      print '<span class="info-box-icon-version'.($versiontrans ? ' '.$versiontrans : '').' classfortooltip" title="'.dol_escape_js($versionTitle).'" >';
      print $this->getVersion(1);
      print '</span>';
    }
 
    print '</div>
      <div class="info-box-content info-box-text-module'.(empty($conf->global->$const_name) ? '' : ' info-box-module-enabled'.($versiontrans ? ' info-box-content-warning' : '')).'">
      <span class="info-box-title">'.$this->getName().'</span>
      <span class="info-box-desc twolinesmax opacitymedium" title="'.dol_escape_htmltag($this->getDesc()).'">'.nl2br($this->getDesc()).'</span>';
 
    print '<div class="valignmiddle inline-block info-box-more">';
    //if ($versiontrans) print img_warning($langs->trans("Version").' '.$this->getVersion(1)).' ';
    print '<a class="valignmiddle inline-block" href="javascript:document_preview(\''.DOL_URL_ROOT.'/admin/modulehelp.php?id='.$this->numero.'\',\'text/html\',\''.dol_escape_js($langs->trans("Module")).'\')">'.img_picto(($this->isCoreOrExternalModule() == 'external' ? $langs->trans("ExternalModule").' - ' : '').$langs->trans("ClickToShowDescription"), $imginfo).'</a>';
    print '</div><br>';
 
    print '<div class="valignmiddle inline-block info-box-actions">';
    print '<div class="valignmiddle inline-block info-box-setup">';
    print $codetoconfig;
    print '</div>';
    print '<div class="valignmiddle inline-block marginleftonly marginrightonly">';
    print $codeenabledisable;
    print '</div>';
    print '</div>';
 
    print '
      </div><!-- /.info-box-content -->
      </div><!-- /.info-box -->
      </div>';
  }
 
  public function checkForUpdate()
  {
    require_once DOL_DOCUMENT_ROOT.'/core/lib/geturl.lib.php';
    if (!empty($this->url_last_version)) {
      $lastVersion = getURLContent($this->url_last_version, 'GET', '', 1, array(), array('http', 'https'), 0);  // Accept http or https links on external remote server only
      if (isset($lastVersion['content']) && strlen($lastVersion['content']) < 30) {
        // Security warning :  be careful with remote data content, the module editor could be hacked (or evil) so limit to a-z A-Z 0-9 _ . -
        $this->lastVersion = preg_replace("/[^a-zA-Z0-9_\.\-]+/", "", $lastVersion['content']);
        if (version_compare($this->lastVersion, $this->version) > 0) {
          $this->needUpdate = true;
          return 1;
        } else {
          $this->needUpdate = false;
          return 0;
        }
      } else {
        return -1;
      }
    }
    return 0;
  }
}