html.formwebportal.class.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2023-2024  Laurent Destailleur   <eldy@users.sourceforge.net>
 * Copyright (C) 2023-2024  Lionel Vessiller    <lvessiller@easya.solutions>
 * Copyright (C) 2023-2024  Patrice Andreani    <pandreani@easya.solutions>
 * Copyright (C) 2024-2026  MDW           <mdeweerd@users.noreply.github.com>
 * Copyright (C) 2024-2026  Frédéric France         <frederic.france@free.fr>
 * Copyright (C) 2026   Charlene Benke          <charlene@patas-monkey.com>
 *
 * 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/>.
 */
 
 
require_once DOL_DOCUMENT_ROOT . '/core/class/html.form.class.php';
 
class FormWebPortal extends Form
{
  public $db;
 
  public $infofiles; // Used to return information by function getDocumentsLink
 
 
  public function __construct($db)
  {
    $this->db = $db;
  }
 
  public function inputDate($name, $value = '', $placeholder = '', $id = '', $morecss = '', $moreparam = '')
  {
    $out = '';
 
    // Disabled: Use of native browser date input field as it is not compliant with multilanguagedate format,
    // nor with timezone management.
    /*
    $out .= '<input';
    if ($placeholder != '' && $value == '') {
      // to show a placeholder on date input
      $out .= ' type="text" placeholder="' . $placeholder . '" onfocus="(this.type=\'date\')"';
    } else {
      $out .= ' type="date"';
    }
    $out .= ($morecss ? ' class="' . $morecss . '"' : '');
    if ($id != '') {
      $out .= ' id="' . $id . '"';
    }
    $out .= ' name="' . $name . '"';
    $out .= ' value="' . $value . '"';
    $out .= ($moreparam ? ' ' . $moreparam : '');
 
    $out .= '>';
    */
 
    $out = $this->selectDate($value === '' ? -1 : $value, $name, 0, 0, 0, "", 1, 0, 0, '', '', '', '', 1, '', $placeholder, 'auto', DOL_URL_ROOT . "/theme/common/object_calendarday.png");
 
    return $out;
  }
 
  public static function selectarray($htmlname, $array, $id = '', $show_empty = 0, $key_in_label = 0, $value_as_key = 0, $moreparam = '', $translate = 0, $maxlen = 0, $disabled = 0, $sort = '', $morecss = 'minwidth75', $addjscombo = 1, $moreparamonempty = '', $disablebademail = 0, $nohtmlescape = 0)
  {
    global $langs;
 
    if ($value_as_key) {
      $array = array_combine($array, $array);
    }
 
    $out = '';
 
    $idname = str_replace(array('[', ']'), array('', ''), $htmlname);
    $out .= '<select id="' . preg_replace('/^\./', '', $idname) . '"' . ($disabled ? ' disabled="disabled"' : '') . ' class="' . ($morecss ? ' ' . $morecss : '') . '"';
    $out .= ' name="' . preg_replace('/^\./', '', $htmlname) . '"' . ($moreparam ? ' ' . $moreparam : '');
    $out .= '>' . "\n";
 
    if ($show_empty) {
      $textforempty = ' ';
      if (!is_numeric($show_empty)) {
        $textforempty = $show_empty;
      }
      $out .= '<option value="' . ($show_empty < 0 ? $show_empty : -1) . '"' . ($id == $show_empty ? ' selected' : '') . '>' . $textforempty . '</option>' . "\n";
    }
 
    if (is_array($array)) {
      // Translate
      if ($translate) {
        foreach ($array as $key => $value) {
          if (!is_array($value)) {
            $array[$key] = $langs->trans($value);
          } else {
            $array[$key]['label'] = $langs->trans($value['label']);
          }
        }
      }
 
      // Sort
      if ($sort == 'ASC') {
        asort($array);
      } elseif ($sort == 'DESC') {
        arsort($array);
      }
 
      foreach ($array as $key => $tmpvalue) {
        if (is_array($tmpvalue)) {
          $value = $tmpvalue['label'];
          $disabled = empty($tmpvalue['disabled']) ? '' : ' disabled';
        } else {
          $value = $tmpvalue;
          $disabled = '';
        }
 
        if ($key_in_label) {
          $selectOptionValue = dol_escape_htmltag($key . ' - ' . ($maxlen ? dol_trunc($value, $maxlen) : $value));
        } else {
          $selectOptionValue = dol_escape_htmltag($maxlen ? dol_trunc($value, $maxlen) : $value);
          if ($value == '' || $value == '-') {
            $selectOptionValue = '&nbsp;';
          }
        }
 
        $out .= '<option value="' . $key . '"';
        $out .= $disabled;
        $out .= is_array($tmpvalue) && !empty($tmpvalue['parent']) ? ' parent="' . dolPrintHTMLForAttribute($tmpvalue['parent']) . '"' : '';
        if (is_array($id)) {
          if (in_array($key, $id) && !$disabled) {
            $out .= ' selected'; // To preselect a value
          }
        } else {
          $id = (string) $id; // if $id = 0, then $id = '0'
          if ($id != '' && ($id == $key || ($id == 'ifone' && count($array) == 1)) && !$disabled) {
            $out .= ' selected'; // To preselect a value
          }
        }
        if (is_array($tmpvalue)) {
          foreach ($tmpvalue as $keyforvalue => $valueforvalue) {
            if (preg_match('/^data-/', $keyforvalue)) {
              $out .= ' ' . $keyforvalue . '="' . dol_escape_htmltag($valueforvalue) . '"';
            }
          }
        }
        $out .= '>';
        $out .= $selectOptionValue;
        $out .= "</option>\n";
      }
    }
 
    $out .= "</select>";
 
    return $out;
  }
 
  public function getDocumentsLink($modulepart, $modulesubdir, $filedir, $filter = '', $morecss = '', $allfiles = 0)
  {
    include_once DOL_DOCUMENT_ROOT . '/core/lib/files.lib.php';
 
    $out = '';
 
    $context = Context::getInstance();
    if (!$context) {
      return '';
    }
 
    $this->infofiles = array('nboffiles' => 0, 'extensions' => array(), 'files' => array());
 
    $entity = 1; // Without multicompany
 
    // Get object entity
    if (isModEnabled('multicompany')) {
      $regs = array();
      preg_match('/\/([0-9]+)\/[^\/]+\/' . preg_quote($modulesubdir, '/') . '$/', $filedir, $regs);
      $entity = ((!empty($regs[1]) && $regs[1] > 1) ? $regs[1] : 1); // If entity id not found in $filedir this is entity 1 by default
    }
 
    // Get list of files starting with name of ref (Note: files with '^ref\.extension' are generated files, files with '^ref-...' are uploaded files)
    if ($allfiles || getDolGlobalString('MAIN_SHOW_ALL_FILES_ON_DOCUMENT_TOOLTIP')) {
      $filterforfilesearch = '^' . preg_quote(basename($modulesubdir), '/');
    } else {
      $filterforfilesearch = '^' . preg_quote(basename($modulesubdir), '/') . '\.';
    }
    $file_list = dol_dir_list($filedir, 'files', 0, $filterforfilesearch, '\.meta$|\.png$'); // We also discard .meta and .png preview
 
    //var_dump($file_list);
    // For ajax treatment
    $out .= '<!-- html.formwebportal::getDocumentsLink -->' . "\n";
    if (!empty($file_list)) {
      $tmpout = '';
 
      // Loop on each file found
      $found = 0;
      $i = 0;
      foreach ($file_list as $file) {
        $i++;
        if ($filter && !preg_match('/' . $filter . '/i', $file["name"])) {
          continue; // Discard this. It does not match provided filter.
        }
 
        $found++;
        // Define relative path for download link (depends on module)
        $relativepath = $file["name"]; // Cas general
        if ($modulesubdir) {
          $relativepath = $modulesubdir . "/" . $file["name"]; // Cas propal, facture...
        }
        // Autre cas
        if ($modulepart == 'donation') {
          $relativepath = get_exdir($modulesubdir, 2, 0, 0, null, 'donation') . $file["name"];
        }
        if ($modulepart == 'export') {
          $relativepath = $file["name"];
        }
 
        $this->infofiles['nboffiles']++;
        $this->infofiles['files'][] = $file['fullname'];
        $ext = pathinfo($file["name"], PATHINFO_EXTENSION);
        if (empty($this->infofiles['extensions'][$ext])) {
          $this->infofiles['extensions'][$ext] = 1;
        } else {
          // @phan-suppress-next-line PhanTypeInvalidDimOffset
          $this->infofiles['extensions'][$ext]++;
        }
 
        // Download
        $url = $context->getControllerUrl('document') . '&modulepart=' . $modulepart . '&entity=' . $entity . '&file=' . urlencode($relativepath) . '&soc_id=' . $context->logged_thirdparty->id;
 
        $tmpout .= '<a href="' . $url . '"  class="btn-download-link ' . $morecss . '" role="downloadlink"';
        $mime = dol_mimetype($relativepath, '', 0);
        if (preg_match('/text/', $mime)) {
          $tmpout .= ' target="_blank" rel="noopener noreferrer"';
        }
        $tmpout .= '>';
        $tmpout .= img_mime($relativepath, $file["name"]);
        $tmpout .= strtoupper($ext);
        $tmpout .= '</a>';
      }
 
      if ($found) {
        $out .= $tmpout;
      }
    }
 
    return $out;
  }
 
  public function getSignatureLink($modulepart, $object, $morecss = '')
  {
    global $langs;
    require_once DOL_DOCUMENT_ROOT.'/core/lib/signature.lib.php';
    $out = '<!-- html.formwebportal::getSignatureLink -->' . "\n";
    $url = getOnlineSignatureUrl(0, $modulepart, $object->ref, 1, $object);
    if (!empty($url)) {
      $out .= '<a target="_blank" rel="noopener noreferrer" href="' . $url . '"' . ($morecss ? ' class="' . $morecss . '"' : '') . ' role="signaturelink">';
      $out .= '<i class="fa fa-file-signature"></i>';
      $out .= $langs->trans("Sign");
      $out .= '</a>';
    }
    return $out;
  }
 
  public function selectForForms($objectdesc, $htmlname, $preselectedvalue, $showempty = '', $searchkey = '', $placeholder = '', $morecss = '', $moreparams = '', $forcecombo = 0, $disabled = 0, $selected_input_value = '', $objectfield = '')
  {
    global $conf;
 
    $objecttmp = null;
 
    // Example of value for $objectdec:
    // Bom:bom/class/bom.class.php:0:t.status=1
    // Bom:bom/class/bom.class.php:0:t.status=1:ref
    // Bom:bom/class/bom.class.php:0:(t.status:=:1):ref
    $InfoFieldList = explode(":", $objectdesc, 4);
    $vartmp = (empty($InfoFieldList[3]) ? '' : $InfoFieldList[3]);
    $reg = array();
    if (preg_match('/^.*:(\w*)$/', $vartmp, $reg)) {
      $InfoFieldList[4] = $reg[1];    // take the sort field
    }
    $InfoFieldList[3] = preg_replace('/:\w*$/', '', $vartmp);    // take the filter field
 
    $classname = $InfoFieldList[0];
    $classpath = $InfoFieldList[1];
    $filter = empty($InfoFieldList[3]) ? '' : $InfoFieldList[3];
    $sortfield = empty($InfoFieldList[4]) ? '' : $InfoFieldList[4];
    if (!empty($classpath)) {
      dol_include_once($classpath);
 
      if ($classname && class_exists($classname)) {
        $objecttmp = new $classname($this->db);
 
        // Make some replacement
        $sharedentities = getEntity(strtolower($classname));
        $filter = str_replace(
          array('__ENTITY__', '__SHARED_ENTITIES__'),
          array($conf->entity, $sharedentities),
          $filter
        );
      }
    }
    if (!is_object($objecttmp)) {
      dol_syslog('Error bad setup of type for field ' . implode(',', $InfoFieldList), LOG_WARNING);
      return 'Error bad setup of type for field ' . implode(',', $InfoFieldList);
    }
 
    dol_syslog(__METHOD__ . ' filter=' . $filter, LOG_DEBUG);
    $out = '';
    // Immediate load of table record.
    $out .= $this->selectForFormsList($objecttmp, $htmlname, $preselectedvalue, $showempty, $searchkey, $placeholder, $morecss, $moreparams, $forcecombo, 0, $disabled, $sortfield, $filter);
 
    return $out;
  }
 
  public function showInputFieldForObject($object, $val, $key, $value, $moreparam = '', $keysuffix = '', $keyprefix = '', $morecss = '')
  {
    // TODO Replace code with
    //return $object->showInputField($val, $key, $value, '', '', '', 0);
 
    global $conf, $langs;
 
    $out = '';
    $param = array();
    $reg = array();
    $size = !empty($val['size']) ? $val['size'] : 0;
    // see common object class
    if (preg_match('/^(integer|link):(.*):(.*):(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[2] . ':' . $reg[3] . ':' . $reg[4] . ':' . $reg[5] => 'N');
      $type = 'link';
    } elseif (preg_match('/^(integer|link):(.*):(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[2] . ':' . $reg[3] . ':' . $reg[4] => 'N');
      $type = 'link';
    } elseif (preg_match('/^(integer|link):(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[2] . ':' . $reg[3] => 'N');
      $type = 'link';
    } elseif (preg_match('/^(sellist):(.*):(.*):(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[2] . ':' . $reg[3] . ':' . $reg[4] . ':' . $reg[5] => 'N');
      $type = 'sellist';
    } elseif (preg_match('/^(sellist):(.*):(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[2] . ':' . $reg[3] . ':' . $reg[4] => 'N');
      $type = 'sellist';
    } elseif (preg_match('/^(sellist):(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[2] . ':' . $reg[3] => 'N');
      $type = 'sellist';
    } elseif (preg_match('/^varchar\‍((\d+)\‍)/', $val['type'], $reg)) {
      $param['options'] = array();
      $type = 'text';
      $size = $reg[1];
    } elseif (preg_match('/^varchar/', $val['type'])) {
      $param['options'] = array();
      $type = 'text';
    } elseif (preg_match('/^double(\‍([0-9],[0-9]\‍)){0,1}/', $val['type'])) {
      $param['options'] = array();
      $type = 'double';
    } else {
      $param['options'] = array();
      $type = $val['type'];
    }
 
    // Special case that force options and type ($type can be integer, varchar, ...)
    if (!empty($val['arrayofkeyval']) && is_array($val['arrayofkeyval'])) {
      $param['options'] = $val['arrayofkeyval'];
      $type = $val['type'] == 'checkbox' ? 'checkbox' : 'select';
    }
 
    //$label = $val['label'];
    $default = (!empty($val['default']) ? $val['default'] : '');
    $computed = (!empty($val['computed']) ? $val['computed'] : '');
    //$unique = (!empty($val['unique']) ? $val['unique'] : 0);
    $required = (!empty($val['required']) ? $val['required'] : 0);
    $notNull = (!empty($val['notnull']) ? $val['notnull'] : 0);
 
    //$langfile = (!empty($val['langfile']) ? $val['langfile'] : '');
    //$list = (!empty($val['list']) ? $val[$key]['list'] : 0);
    $hidden = (in_array(abs($val['visible']), array(0, 2)) ? 1 : 0);
 
    //$objectid = $this->id;
 
    if ($computed) {
      if (!preg_match('/^search_/', $keyprefix)) {
        return '<span>' . $langs->trans("AutomaticallyCalculated") . '</span>';
      } else {
        return '';
      }
    }
 
    // Set value of $morecss. For this, we use in priority showsize from parameters, then $val['css'] then autodefine
    if (empty($morecss) && !empty($val['css'])) {
      $morecss = $val['css'];
    }
 
    $htmlName = $keyprefix . $key . $keysuffix;
    $htmlId = $htmlName;
    //$moreparam .= (!empty($required)  ? ' required' : '');
    switch ($type) {
      case 'date':
      case 'datetime':
        // separate value YYYY-MM-DD HH:ii:ss to date and time
        $valueDate = '';
        $valueTime = '';
        $dateArr = explode(' ', $value);
        if (count($dateArr) > 0) {
          $valueDate = $dateArr[0];
          if (isset($dateArr[1])) {
            $valueTime = $dateArr[1];
          }
        }
        $out = $this->inputDate($htmlName, $valueDate, '', $htmlId, $morecss, $moreparam);
 
        if ($type == 'datetime') {
          //$moreparam .= ' step="1"'; to show seconds
          $out .= ' ' . $this->inputType('time', $htmlName.'_time', $valueTime, $htmlId, $morecss, $moreparam);
        }
        break;
 
      case 'integer':
        $out = $this->inputType('number', $htmlName, dol_escape_htmltag($value), $htmlId, $morecss, $moreparam);
        break;
 
      case 'text':
      case 'html':
        $moreparam .= ($size > 0 ? ' maxlength="' . $size . '"' : '');
        $out = $this->inputType('text', $htmlName, dol_escape_htmltag($value), $htmlId, $morecss, $moreparam);
        break;
 
      case 'email':
        $out = $this->inputType('email', $htmlName, dol_escape_htmltag($value), $htmlId, $morecss, $moreparam);
        break;
 
      case 'tel':
        $out = $this->inputType('tel', $htmlName, dol_escape_htmltag($value), $htmlId, $morecss, $moreparam);
        break;
 
      case 'phone':
        if (preg_match('/^search_/', $keyprefix)) {
          $out = $this->inputType('text', $htmlName, dol_escape_htmltag($value), $htmlId, $morecss, $moreparam);
        } else {
          $out = $this->showPhoneInput($value, $htmlName, !empty($object->country_id) ? $object->country_id : 0);
        }
        break;
 
      case 'url':
        $out = $this->inputType('url', $htmlName, dol_escape_htmltag($value), $htmlId, $morecss, $moreparam);
        break;
 
      case 'price':
        if (!empty($value)) {
          $value = price($value); // $value in memory is a php numeric, we format it into user number format.
        }
        $addInputLabel = ' ' . $langs->getCurrencySymbol();
        $out = $this->inputType('text', $htmlName, $value, $htmlId, $morecss, $moreparam, '', $addInputLabel);
        break;
 
      case 'double':
        if (!empty($value)) {
          $value = price($value); // $value in memory is a php numeric, we format it into user number format.
        }
        $out = $this->inputType('text', $htmlName, $value, $htmlId, $morecss, $moreparam);
        break;
 
      case 'password':
        $out = $this->inputType('password', $htmlName, $value, $htmlId, $morecss, $moreparam);
        break;
 
      case 'radio':
        foreach ($param['options'] as $keyopt => $valopt) {
          $htmlId = $htmlName . '_' . $keyopt;
          $htmlMoreParam = $moreparam . ($value == $keyopt ? ' checked' : '');
          $out .= $this->inputType('radio', $htmlName, $keyopt, $htmlId, $morecss, $htmlMoreParam, $valopt) . '<br>';
        }
        break;
 
      case 'select':
        $out = '<select class="' . $morecss . '" name="' . $htmlName . '" id="' . $htmlId . '"' . ($moreparam ? ' ' . $moreparam : '') . ' >';
        if ($default == '' || $notNull != 1) {
          $out .= '<option value="0">&nbsp;</option>';
        }
        foreach ($param['options'] as $keyb => $valb) {
          if ($keyb == '') {
            continue;
          }
          if (strpos($valb, "|") !== false) {
            list($valb, $parent) = explode('|', $valb);
          }
          $out .= '<option value="' . $keyb . '"';
          $out .= (((string) $value == $keyb) ? ' selected' : '');
          $out .= (!empty($parent) ? ' parent="' . $parent . '"' : '');
          $out .= '>' . $valb . '</option>';
        }
        $out .= '</select>';
        break;
      case 'sellist':
        $out = '<select class="' . $morecss . '" name="' . $htmlName . '" id="' . $htmlId . '"' . ($moreparam ? ' ' . $moreparam : '') . '>';
 
        $param_list = array_keys($param['options']);
        $InfoFieldList = explode(":", $param_list[0]);
        $parentName = '';
        $parentField = '';
        // 0 : tableName
        // 1 : label field name
        // 2 : key fields name (if differ of rowid)
        // 3 : key field parent (for dependent lists)
        // 4 : where clause filter on column or table extrafield, syntax field='value' or extra.field=value
        // 5 : id category type
        // 6 : ids categories list separated by comma for category root
        $keyList = (empty($InfoFieldList[2]) ? 'rowid' : $InfoFieldList[2] . ' as rowid');
 
        if (count($InfoFieldList) > 4 && !empty($InfoFieldList[4])) {
          if (strpos($InfoFieldList[4], 'extra.') !== false) {
            $keyList = 'main.' . $InfoFieldList[2] . ' as rowid';
          } else {
            $keyList = $InfoFieldList[2] . ' as rowid';
          }
        }
        if (count($InfoFieldList) > 3 && !empty($InfoFieldList[3])) {
          list($parentName, $parentField) = explode('|', $InfoFieldList[3]);
          if (!empty($InfoFieldList[4]) && strpos($InfoFieldList[4], 'extra.') !== false) {
            $keyList .= ', main.'.$parentField;
          } else {
            $keyList .= ', '.$parentField;
          }
        }
 
        $filter_categorie = false;
        if (count($InfoFieldList) > 5) {
          if ($InfoFieldList[0] == 'categorie') {
            $filter_categorie = true;
          }
        }
 
        if (!$filter_categorie) {
          $fields_label = isset($InfoFieldList[1]) ? explode('|', $InfoFieldList[1]) : array();
          if (!empty($fields_label)) {
            $keyList .= ', ';
            $keyList .= implode(', ', $fields_label);
          }
 
          $sqlwhere = '';
          $sql = "SELECT " . $this->db->sanitize($keyList, 0, 0, 1);
          $sql .= " FROM " . $this->db->prefix() . $this->db->sanitize($InfoFieldList[0]);
          if (!empty($InfoFieldList[4])) {
            // can use SELECT request
            if (strpos($InfoFieldList[4], '$SEL$') !== false) {
              $InfoFieldList[4] = str_replace('$SEL$', 'SELECT', $InfoFieldList[4]);
            }
 
            // current object id can be use into filter
            $InfoFieldList[4] = str_replace('$ID$', '0', $InfoFieldList[4]);
 
            //We have to join on extrafield table
            if (strpos($InfoFieldList[4], 'extra') !== false) {
              $sql .= " as main, " . $this->db->prefix() . $this->db->sanitize($InfoFieldList[0]) . "_extrafields as extra";
              // We trust this argument `$InfoFieldList[4]` @phan-suppress-next-line SqlInjection
              $sqlwhere .= " WHERE extra.fk_object=main." . $this->db->sanitize($InfoFieldList[2]) . " AND " . $InfoFieldList[4];
            } else {
              // We trust this argument `$InfoFieldList[4]` @phan-suppress-next-line SqlInjection
              $sqlwhere .= " WHERE " . $InfoFieldList[4];
            }
          } else {
            $sqlwhere .= ' WHERE 1=1';
          }
          // Some tables may have field, some other not. For the moment we disable it.
          if (in_array($InfoFieldList[0], array('tablewithentity'))) {
            $sqlwhere .= " AND entity = " . ((int) $conf->entity);
          }
          $sql .= $sqlwhere;
          //print $sql;
 
          $sql .= ' ORDER BY ' . implode(', ', $fields_label);
 
          dol_syslog(get_class($this) . '::showInputField type=sellist', LOG_DEBUG);
          $resql = $this->db->query($sql);
          if ($resql) {
            $out .= '<option value="0">&nbsp;</option>';
            $num = $this->db->num_rows($resql);
            $i = 0;
            while ($i < $num) {
              $labeltoshow = '';
              $obj = $this->db->fetch_object($resql);
 
              // Several field into label (eq table:code|libelle:rowid)
              $notrans = false;
              $fields_label = explode('|', $InfoFieldList[1]);
              if (count($fields_label) > 1) {
                $notrans = true;
                foreach ($fields_label as $field_toshow) {
                  $labeltoshow .= $obj->$field_toshow . ' ';
                }
              } else {
                $labeltoshow = $obj->{$InfoFieldList[1]};
              }
              $labeltoshow = dol_trunc($labeltoshow, 45);
 
              if ($value == $obj->rowid) {
                foreach ($fields_label as $field_toshow) {
                  $translabel = $langs->trans($obj->$field_toshow);
                  if ($translabel != $obj->$field_toshow) {
                    $labeltoshow = dol_trunc($translabel) . ' ';
                  } else {
                    $labeltoshow = dol_trunc($obj->$field_toshow) . ' ';
                  }
                }
                $out .= '<option value="' . $obj->rowid . '" selected>' . $labeltoshow . '</option>';
              } else {
                if (!$notrans) {
                  $translabel = $langs->trans($obj->{$InfoFieldList[1]});
                  if ($translabel != $obj->{$InfoFieldList[1]}) {
                    $labeltoshow = dol_trunc($translabel, 18);
                  } else {
                    $labeltoshow = dol_trunc($obj->{$InfoFieldList[1]});
                  }
                }
                if (empty($labeltoshow)) {
                  $labeltoshow = '(not defined)';
                }
                if ($value == $obj->rowid) {
                  $out .= '<option value="' . $obj->rowid . '" selected>' . $labeltoshow . '</option>';
                }
 
                if (!empty($InfoFieldList[3]) && $parentField) {
                  $parent = $parentName . ':' . $obj->{$parentField};
                  $isDependList = 1;
                }
 
                $out .= '<option value="' . $obj->rowid . '"';
                $out .= ($value == $obj->rowid ? ' selected' : '');
                $out .= (!empty($parent) ? ' parent="' . $parent . '"' : '');
                $out .= '>' . $labeltoshow . '</option>';
              }
 
              $i++;
            }
            $this->db->free($resql);
          } else {
            $out .= 'Error in request ' . $sql . ' ' . $this->db->lasterror() . '. Check setup of extra parameters.<br>';
          }
        } else {
          require_once DOL_DOCUMENT_ROOT . '/categories/class/categorie.class.php';
          $categorytype = $InfoFieldList[5];
          if (is_numeric($categorytype)) {  // deprecated: must use the category code instead of id. For backward compatibility.
            $tmpcategory = new Categorie($this->db);
            $MAP_ID_TO_CODE = array_flip($tmpcategory->MAP_ID);
            $categorytype = $MAP_ID_TO_CODE[(int) $categorytype];
          }
 
          $data = $this->select_all_categories($categorytype, '', 'parent', 64, $InfoFieldList[6], 1, 1);
          $out .= '<option value="0">&nbsp;</option>';
          foreach ($data as $data_key => $data_value) {
            $out .= '<option value="' . $data_key . '"';
            $out .= ($value == $data_key ? ' selected' : '');
            $out .= '>' . $data_value . '</option>';
          }
        }
        $out .= '</select>';
        break;
 
      case 'link':
        $param_list = array_keys($param['options']); // $param_list='ObjectName:classPath[:AddCreateButtonOrNot[:Filter[:Sortfield]]]'
        $showempty = (($required && $default != '') ? '0' : '1');
 
        $out = $this->selectForForms($param_list[0], $htmlName, (int) $value, $showempty, '', '', $morecss, $moreparam, 0, empty($val['disabled']) ? 0 : 1);
 
        break;
 
      default:
        if (!empty($hidden)) {
          $out = $this->inputType('hidden', $htmlName, $value, $htmlId);
        }
        break;
    }
 
    return $out;
  }
 
  public function showOutputFieldForObject($object, $val, $key, $value, $moreparam = '', $keysuffix = '', $keyprefix = '', $morecss = '')
  {
    // TODO Replace code with
    //return $object->showOutputField($val, $key, $value, '', '', '', 0);
    // We must just implement different case like output a ref that must not include the link into backoffice
 
    global $conf, $langs;
 
    $label = empty($val['label']) ? '' : $val['label'];
    $type = empty($val['type']) ? '' : $val['type'];
    $css = empty($val['css']) ? '' : $val['css'];
    $picto = empty($val['picto']) ? '' : $val['picto'];
    $reg = array();
 
    // Convert var to be able to share same code than showOutputField of extrafields
    if (preg_match('/varchar\‍((\d+)\‍)/', $type, $reg)) {
      $type = 'varchar'; // convert varchar(xx) int varchar
      $css = $reg[1];
    } elseif (preg_match('/varchar/', $type)) {
      $type = 'varchar'; // convert varchar(xx) int varchar
    }
    if (!empty($val['arrayofkeyval']) && is_array($val['arrayofkeyval'])) {
      $type = $val['type'] == 'checkbox' ? 'checkbox' : 'select';
    }
    if (preg_match('/^integer:(.*):(.*)/i', $val['type'], $reg)) {
      $type = 'link';
    }
 
    $default = empty($val['default']) ? '' : $val['default'];
    $computed = empty($val['computed']) ? '' : $val['computed'];
    $unique = empty($val['unique']) ? '' : $val['unique'];
    $required = empty($val['required']) ? '' : $val['required'];
    $param = array();
    $param['options'] = array();
 
    if (!empty($val['arrayofkeyval']) && is_array($val['arrayofkeyval'])) {
      $param['options'] = $val['arrayofkeyval'];
    }
    if (preg_match('/^integer:(.*):(.*)/i', $val['type'], $reg)) {
      $type = 'link';
      $stringforoptions = $reg[1] . ':' . $reg[2];
      if ($reg[1] == 'User') {
        $stringforoptions .= ':-1';
      }
      $param['options'] = array($stringforoptions => $stringforoptions);
    } elseif (preg_match('/^sellist:(.*):(.*):(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[1] . ':' . $reg[2] . ':' . $reg[3] . ':' . $reg[4] => 'N');
      $type = 'sellist';
    } elseif (preg_match('/^sellist:(.*):(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[1] . ':' . $reg[2] . ':' . $reg[3] => 'N');
      $type = 'sellist';
    } elseif (preg_match('/^sellist:(.*):(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[1] . ':' . $reg[2] => 'N');
      $type = 'sellist';
    } elseif (preg_match('/^chkbxlst:(.*)/i', $val['type'], $reg)) {
      $param['options'] = array($reg[1] => 'N');
      $type = 'chkbxlst';
    }
 
    $langfile = empty($val['langfile']) ? '' : $val['langfile'];
    $list = (empty($val['list']) ? '' : $val['list']);
    $help = (empty($val['help']) ? '' : $val['help']);
    $hidden = (($val['visible'] == 0) ? 1 : 0); // If zero, we are sure it is hidden, otherwise we show. If it depends on mode (view/create/edit form or list, this must be filtered by caller)
 
    if ($hidden) {
      return '';
    }
 
    // If field is a computed field, value must become result of compute
    if ($computed) {
      // Make the eval of compute string
      //var_dump($computed);
      $value = (string) dol_eval((string) $computed, 1, 0, '2');
    }
 
    // Format output value differently according to properties of field
    //
    // First the cases that do not use $value from the arguments:
    //
    if (in_array($key, array('rowid', 'ref'))) {
      if (property_exists($object, 'ref')) {
        $value = (string) $object->ref;
      } elseif (property_exists($object, 'id')) {
        $value = $object->id;
      } else {
        $value = '';
      }
    } elseif ($key == 'status' && method_exists($object, 'getLibStatut')) {
      $value = $object->getLibStatut(3);
      //
      // Then the cases where $value is an array
      //
    } elseif (is_array($value)) {
      // Handle array early to get type identification solve for static
      // analysis
      if ($type == 'array') {
        $value = implode('<br>', $value);
      } else {
        dol_syslog(__METHOD__."Unexpected type=".$type." for array value=".((string) json_encode($value)), LOG_ERR);
      }
      //
      // Then the cases where $value is not an array (hence string)
      //
    } elseif ($type == 'date') {
      if (!empty($value)) {
        $value = dol_print_date($value, 'day');    // We suppose dates without time are always gmt (storage of course + output)
      } else {
        $value = '';
      }
    } elseif ($type == 'datetime' || $type == 'timestamp') {
      if (!empty($value)) {
        $value = dol_print_date($value, 'dayhour', 'tzuserrel');
      } else {
        $value = '';
      }
    } elseif ($type == 'duration') {
      include_once DOL_DOCUMENT_ROOT . '/core/lib/date.lib.php';
      if (!is_null($value) && $value !== '') {
        $value = convertSecondToTime((int) $value, 'allhourmin');
      } else {
        // Resulting type must be string
        $value = '';
      }
    } elseif ($type == 'double' || $type == 'real') {
      if (!is_null($value) && $value !== '') {
        $value = price($value);
      } else {
        // Resulting type must be string
        $value = '';
      }
    } elseif ($type == 'boolean') {
      $checked = '';
      if (!empty($value)) {
        $checked = ' checked ';
      }
      $value = '<input type="checkbox" ' . $checked . ' ' . ($moreparam ? $moreparam : '') . ' readonly disabled>';
    } elseif ($type == 'mail' || $type == 'email') {
      $value = dol_print_email($value, 0, 0, 0, 64, 1, 1);
    } elseif ($type == 'url') {
      $value = dol_print_url($value, '_blank', 32, 1);
    } elseif ($type == 'phone') {
      $value = dol_print_phone($value, '', 0, 0, '', '&nbsp;', 'phone');
    } elseif ($type == 'ip') {
      $value = dol_print_ip($value, 0);
    } elseif ($type == 'price') {
      if (!is_null($value) && $value !== '') {
        $value = price($value, 0, $langs, 0, 0, -1, getDolCurrency());
      } else {
        // Resulting type must be string
        $value = '';
      }
    } elseif ($type == 'select') {
      $value = isset($param['options'][$value]) ? $param['options'][$value] : '';
    } elseif ($type == 'sellist') {
      $param_list = array_keys($param['options']);
      $InfoFieldList = explode(":", $param_list[0]);
 
      $selectkey = "rowid";
      $keyList = 'rowid';
 
      if (count($InfoFieldList) > 4 && !empty($InfoFieldList[4])) {
        $selectkey = $InfoFieldList[2];
        $keyList = $InfoFieldList[2] . ' as rowid';
      }
 
      $fields_label = explode('|', $InfoFieldList[1]);
      if (is_array($fields_label)) {
        $keyList .= ', ';
        $keyList .= implode(', ', $fields_label);
      }
 
      $filter_categorie = false;
      if (count($InfoFieldList) > 5) {
        if ($InfoFieldList[0] == 'categorie') {
          $filter_categorie = true;
        }
      }
 
      $sql = "SELECT " . $this->db->sanitize($keyList);
      $sql .= ' FROM ' . $this->db->prefix() . $this->db->sanitize($InfoFieldList[0]);
      if (strpos($InfoFieldList[4], 'extra') !== false) {
        $sql .= ' as main';
      }
      if ($selectkey == 'rowid' && empty($value)) {
        $sql .= " WHERE " . $this->db->sanitize($selectkey) . " = 0";
      } elseif ($selectkey == 'rowid') {
        $sql .= " WHERE " . $this->db->sanitize($selectkey) . " = " . ((int) $value);
      } else {
        $sql .= " WHERE " . $this->db->sanitize($selectkey) . " = '" . $this->db->escape($value) . "'";
      }
 
      dol_syslog(__METHOD__ . ' type=sellist', LOG_DEBUG);
      $resql = $this->db->query($sql);
      if ($resql) {
        if (!$filter_categorie) {
          $value = ''; // value was used, so now we reset it to use it to build final output
          $numrows = $this->db->num_rows($resql);
          if ($numrows) {
            $obj = $this->db->fetch_object($resql);
 
            // Several field into label (eq table:code|libelle:rowid)
            $fields_label = explode('|', $InfoFieldList[1]);
 
            if (is_array($fields_label) && count($fields_label) > 1) {
              foreach ($fields_label as $field_toshow) {
                $translabel = '';
                if (!empty($obj->$field_toshow)) {
                  $translabel = $langs->trans($obj->$field_toshow);
                }
                if ($translabel != $field_toshow) {
                  $value .= dol_trunc($translabel, 18) . ' ';
                } else {
                  $value .= $obj->$field_toshow . ' ';
                }
              }
            } else {
              $translabel = '';
              if (!empty($obj->{$InfoFieldList[1]})) {
                $translabel = $langs->trans($obj->{$InfoFieldList[1]});
              }
              if ($translabel != $obj->{$InfoFieldList[1]}) {
                $value = dol_trunc($translabel, 18);
              } else {
                $value = $obj->{$InfoFieldList[1]};
              }
            }
          }
        } else {
          require_once DOL_DOCUMENT_ROOT . '/categories/class/categorie.class.php';
 
          $toprint = array();
          $obj = $this->db->fetch_object($resql);
          $c = new Categorie($this->db);
          $c->fetch($obj->rowid);
          $ways = $c->print_all_ways(); // $ways[0] = "ccc2 >> ccc2a >> ccc2a1" with html formatted text
          foreach ($ways as $way) {
            $toprint[] = '<li>' . img_object('', 'category') . ' ' . $way . '</li>';
          }
          $value = '<div><ul>' . implode(' ', $toprint) . '</ul></div>';
        }
      } else {
        dol_syslog(__METHOD__ . ' error ' . $this->db->lasterror(), LOG_WARNING);
      }
    } elseif ($type == 'radio') {
      $value = (string) $param['options'][$value];
    } elseif ($type == 'checkbox') {
      $value_arr = explode(',', $value);
      $value = '';
      if (is_array($value_arr) && count($value_arr) > 0) {
        $toprint = array();
        foreach ($value_arr as $valueval) {
          if (!empty($valueval)) {
            $toprint[] = '<li>' . $param['options'][$valueval] . '</li>';
          }
        }
        if (!empty($toprint)) {
          $value = '<div><ul>' . implode(' ', $toprint) . '</ul></div>';
        }
      }
    } elseif ($type == 'chkbxlst') {
      $value_arr = explode(',', $value);
 
      $param_list = array_keys($param['options']);
      $InfoFieldList = explode(":", $param_list[0]);
 
      $selectkey = "rowid";
      $keyList = 'rowid';
 
      if (count($InfoFieldList) >= 3) {
        $selectkey = $InfoFieldList[2];
        $keyList = $InfoFieldList[2] . ' as rowid';
      }
 
      $fields_label = explode('|', $InfoFieldList[1]);
      if (is_array($fields_label)) {
        $keyList .= ', ';
        $keyList .= implode(', ', $fields_label);
      }
 
      $filter_categorie = false;
      if (count($InfoFieldList) > 5) {
        if ($InfoFieldList[0] == 'categorie') {
          $filter_categorie = true;
        }
      }
 
      $sql = "SELECT " . $this->db->sanitize($keyList);
      $sql .= ' FROM ' . $this->db->prefix() . $this->db->sanitize($InfoFieldList[0]);
      if (strpos($InfoFieldList[4], 'extra') !== false) {
        $sql .= ' as main';
      }
      // $sql.= " WHERE ".$selectkey."='".$this->db->escape($value)."'";
      // $sql.= ' AND entity = '.((int) $conf->entity);
 
      dol_syslog(__METHOD__ . ' type=chkbxlst', LOG_DEBUG);
      $resql = $this->db->query($sql);
      if ($resql) {
        if (!$filter_categorie) {
          $value = ''; // value was used, so now we reset it to use it to build final output
          $toprint = array();
          while ($obj = $this->db->fetch_object($resql)) {
            // Several field into label (eq table:code|libelle:rowid)
            $fields_label = explode('|', $InfoFieldList[1]);
            if (is_array($value_arr) && in_array($obj->rowid, $value_arr)) {
              if (is_array($fields_label) && count($fields_label) > 1) {
                foreach ($fields_label as $field_toshow) {
                  $translabel = '';
                  if (!empty($obj->$field_toshow)) {
                    $translabel = $langs->trans($obj->$field_toshow);
                  }
                  if ($translabel != $field_toshow) {
                    $toprint[] = '<li>' . dol_trunc($translabel, 18) . '</li>';
                  } else {
                    $toprint[] = '<li>' . $obj->$field_toshow . '</li>';
                  }
                }
              } else {
                $translabel = '';
                if (!empty($obj->{$InfoFieldList[1]})) {
                  $translabel = $langs->trans($obj->{$InfoFieldList[1]});
                }
                if ($translabel != $obj->{$InfoFieldList[1]}) {
                  $toprint[] = '<li>' . dol_trunc($translabel, 18) . '</li>';
                } else {
                  $toprint[] = '<li>' . $obj->{$InfoFieldList[1]} . '</li>';
                }
              }
            }
          }
        } else {
          require_once DOL_DOCUMENT_ROOT . '/categories/class/categorie.class.php';
 
          $toprint = array();
          while ($obj = $this->db->fetch_object($resql)) {
            if (is_array($value_arr) && in_array($obj->rowid, $value_arr)) {
              $c = new Categorie($this->db);
              $c->fetch($obj->rowid);
              $ways = $c->print_all_ways(); // $ways[0] = "ccc2 >> ccc2a >> ccc2a1" with html formatted text
              foreach ($ways as $way) {
                $toprint[] = '<li>' . img_object('', 'category') . ' ' . $way . '</li>';
              }
            }
          }
        }
        $value = '<div><ul>' . implode(' ', $toprint) . '</ul></div>';
      } else {
        dol_syslog(__METHOD__ . ' error ' . $this->db->lasterror(), LOG_WARNING);
      }
    } elseif ($type == 'link') {
      // only if something to display (perf)
      if ($value) {
        $param_list = array_keys($param['options']); // Example: $param_list='ObjectName:classPath:-1::customer'
 
        $InfoFieldList = explode(":", $param_list[0]);
        $classname = $InfoFieldList[0];
        $classpath = $InfoFieldList[1];
        if (!empty($classpath)) {
          dol_include_once($InfoFieldList[1]);
          if ($classname && class_exists($classname)) {
            $object = new $classname($this->db);
            '@phan-var-force CommonObject $object';
            $result = $object->fetch($value);
            $value = '';
            if ($result > 0) {
              if (property_exists($object, 'label')) {
                $value = (string) $object->label;  // @phan-suppress-current-line PhanUndeclaredProperty
              } elseif (property_exists($object, 'libelle')) {
                $value = (string) $object->libelle;  // @phan-suppress-current-line PhanUndeclaredProperty
              } elseif (property_exists($object, 'nom')) {
                $value = (string) $object->nom;  // @phan-suppress-current-line PhanUndeclaredProperty
              } elseif (property_exists($object, 'ref')) {
                $value = (string) $object->ref;  // @phan-suppress-current-line PhanUndeclaredProperty
              }
            }
          }
        } else {
          dol_syslog(__METHOD__ . ' Error bad setup of field', LOG_WARNING);
          return 'Error bad setup of field';
        }
      } else {
        $value = '';
      }
    } elseif ($type == 'password') {
      $value = preg_replace('/./i', '*', $value);
    } else {    // text|html|varchar
      $value = dol_htmlentitiesbr($value);
    }
 
    $out = $value;
 
    return $out;
  }
 
  public function inputType($type, $name, $value = '', $id = '', $morecss = '', $moreparam = '', $label = '', $addInputLabel = '')
  {
    $out = '';
    if ($label != '') {
      $out .= '<label for="' . dolPrintHTMLForAttribute($id) . '">';
    }
    $out .= '<input type="' . dolPrintHTMLForAttribute($type) . '"';
    $out .= ' class="flat valignmiddle maxwidthonsmartphone ' . dolPrintHTMLForAttribute($morecss) . '"';
    if ($id != '') {
      $out .= ' id="' . dolPrintHTMLForAttribute($id) . '"';
    }
    $out .= ' name="' . dolPrintHTMLForAttribute($name) . '"';
    $out .= ' value="' . dolPrintHTMLForAttribute($value) . '" ';
    $out .= ($moreparam ? ' ' . $moreparam : '');
    $out .= ' />' . $addInputLabel;
    if ($label != '') {
      $out .= $label . '</label>';
    }
 
    return $out;
  }
 
  public function inputSelectAjax($htmlName, $array, $id, $ajaxUrl, $ajaxData = [], $morecss = 'minwidth75', $moreparam = '')
  {
    $out = "
          <script>
          $(document).ready(function () {
            $('#" . dol_escape_js($htmlName) . "').select2({
              ajax: {
                url: '" . dol_escape_js($ajaxUrl) . "',
                dataType: 'json',
                delay: 250, // wait 250 milliseconds before triggering the request
                data: function (params) {
                  var query = {
                    search: params.term,
                    page: params.page || 1";
    if (!empty($ajaxData) && is_array($ajaxData)) {
      foreach ($ajaxData as $key => $value) {
        $out .= ", " . preg_replace('/[^a-z0-9_]/i', '', $key) . ": '" . dol_escape_js($value) . "'";
      }
    }
    $out .= "
                  }
                  return query;
                }
              }
            })
          });
          </script>";
 
    $out .= $this->selectarray($htmlName, $array, $id, 0, 0, 0, $moreparam, 0, 0, 0, '', $morecss);
 
    return $out;
  }
 
  public function inputHtml($htmlName, $value, $morecss = '', $moreparam = '')
  {
    require_once DOL_DOCUMENT_ROOT . '/core/class/doleditor.class.php';
    $doleditor = new DolEditor($htmlName, $value, '', 200, 'dolibarr_notes', 'In', false, false, isModEnabled('fckeditor') && getDolGlobalInt('FCKEDITOR_ENABLE_SOCIETE'), ROWS_5, '90%');
 
    return (string) $doleditor->Create(1, '', true, '', '', $moreparam, $morecss);
  }
 
  public function inputText($htmlName, $value, $morecss = '', $moreparam = '', $options = array())
  {
    global $langs;
    $out = '';
    if (!empty($options)) {
      // If the textarea field has a list of arrayofkeyval into its definition, we suggest a combo with possible values to fill the textarea.
      $out .= '<div class="text-area-multi-input-add-group" >';
      $out .= $this->selectarray($htmlName . "_multiinput", $options, '', 1, 0, 0, $moreparam, 0, 0, 0, '', "flat maxwidthonphone" . $morecss);
      $out .= '<input id="' . $htmlName . '_multiinputadd" type="button" class="button" value="' . $langs->trans("Add") . '">';
      $out .= '</div>';
      $out .= "<script>";
      $out .= '
          function handlemultiinputdisabling(htmlname){
            console.log("We handle the disabling of used options for "+htmlname+"_multiinput");
            multiinput = $("#"+htmlname+"_multiinput");
            multiinput.find("option").each(function(){
              tmpval = $("#"+htmlname).val();
              tmpvalarray = tmpval.split("\n");
              valtotest = $(this).val();
              if(tmpvalarray.includes(valtotest)){
                $(this).prop("disabled",true);
              } else {
                if($(this).prop("disabled") == true){
                  console.log(valtotest)
                  $(this).prop("disabled", false);
                }
              }
            });
          }
 
          $(document).ready(function () {
            $("#' . $htmlName . '_multiinputadd").on("click",function() {
              tmpval = $("#' . $htmlName . '").val();
              tmpvalarray = tmpval.split(",");
              valtotest = $("#' . $htmlName . '_multiinput").val();
              if(valtotest != -1 && !tmpvalarray.includes(valtotest)){
                console.log("We add the selected value to the text area ' . $htmlName . '");
                if(tmpval == ""){
                  tmpval = valtotest;
                } else {
                  tmpval = tmpval + "\n" + valtotest;
                }
                $("#' . $htmlName . '").val(tmpval);
                handlemultiinputdisabling("' . $htmlName . '");
                $("#' . $htmlName . '_multiinput").val(-1);
              } else {
                console.log("We add nothing the text area ' . $htmlName . '");
              }
            });
            $("#' . $htmlName . '").on("change",function(){
              handlemultiinputdisabling("' . $htmlName . '");
            });
            handlemultiinputdisabling("' . $htmlName . '");
          })';
      $out .= "</script>";
      $value = str_replace(',', "\n", $value);
    }
 
    require_once DOL_DOCUMENT_ROOT . '/core/class/doleditor.class.php';
    $doleditor = new DolEditor($htmlName, (string) $value, '', 200, 'dolibarr_notes', 'In', false, false, false, ROWS_5);
    $out .= (string) $doleditor->Create(1, '', true, '', '', $moreparam, $morecss);
 
    return $out;
  }
 
  public function inputRadio($htmlName, $options, $selectedValue, $morecss = '', $moreparam = '')
  {
    $out = '';
    foreach ($options as $optionKey => $optionLabel) {
      $selected = ((string) $selectedValue) === ((string) $optionKey) ? ' checked="checked"' : '';
      $optionId = $htmlName . '_' . $optionKey;
      $out .= '<input class="flat' . $morecss . '" type="radio" name="' . $htmlName . '" id="' . $optionId . '" value="' . dolPrintHTMLForAttribute((string) $optionKey) . '"' . $selected . $moreparam . '/><label for="' . $optionId . '">' . $optionLabel . '</label><br>';
    }
 
    return $out;
  }
 
  public function inputStars($htmlName, $size, $value, $morecss = '', $moreparam = '')
  {
    $out = '<input type="hidden" class="flat ' . $morecss . '" name="' . $htmlName . '" id="' . $htmlName . '" value="' . dolPrintHTMLForAttribute((string) $value) . '"' . $moreparam . '>';
    $out .= '<div class="star-selection" id="' . $htmlName . '_selection">';
    for ($i = 1; $i <= $size; $i++) {
      $out .= '<span class="star" data-value="' . $i . '">' . img_picto('', 'fontawesome_star_fas') . '</span>';
    }
    $out .= '</div>';
    $out .= '<script>
        jQuery(function($) {  /* commonobject.class.php 1 */
          let container = $("#' . $htmlName . '_selection");
          let selectedStars = parseInt($("#' . $htmlName . '").val()) || 0;
          container.find(".star").each(function() {
            $(this).toggleClass("active", $(this).data("value") <= selectedStars);
          });
          container.find(".star").on("mouseover", function() {
            let selectedStar = $(this).data("value");
            container.find(".star").each(function() {
              $(this).toggleClass("active", $(this).data("value") <= selectedStar);
            });
          });
          container.on("mouseout", function() {
            container.find(".star").each(function() {
              $(this).toggleClass("active", $(this).data("value") <= selectedStars);
            });
          });
          container.find(".star").off("click").on("click", function() {
            selectedStars = $(this).data("value");
            if (selectedStars === 1 && $("#' . $htmlName . '").val() == 1) {
              selectedStars = 0;
            }
            $("#' . $htmlName . '").val(selectedStars);
            container.find(".star").each(function() {
              $(this).toggleClass("active", $(this).data("value") <= selectedStars);
            });
          });
        });
      </script>';
 
    return $out;
  }
 
  public function inputIcon($htmlName, $value, $morecss = '', $moreparam = '')
  {
    global $langs;
 
    /* External lib inclusion are not allowed in backoffice. Also lib is included several time if there is several icon file.
     Some code must be added into main when MAIN_ADD_ICONPICKER_JS is set to add of lib in html header
     $out ='<link rel="stylesheet" href="'.dol_buildpath('/myfield/css/fontawesome-iconpicker.min.css', 1).'">';
     $out.='<script src="'.dol_buildpath('/myfield/js/fontawesome-iconpicker.min.js', 1).'"></script>';
     */
    $out = '<input type="text" class="form-control icp icp-auto iconpicker-element iconpicker-input flat ' . $morecss . ' maxwidthonsmartphone"';
    $out .= ' name="' . $htmlName . '" id="' . $htmlName . '" value="' . dolPrintHTMLForAttribute((string) $value) . '" ' . ((string) $moreparam) . '>';
    if (getDolGlobalInt('MAIN_ADD_ICONPICKER_JS')) {
      $out .= '<script>';
      $options = "{ title: '<b>" . $langs->trans("IconFieldSelector") . "</b>', placement: 'right', showFooter: false, templates: {";
      $options .= "iconpicker: '<div class=\"iconpicker\"><div style=\"background-color:#EFEFEF;\" class=\"iconpicker-items\"></div></div>',";
      $options .= "iconpickerItem: '<a role=\"button\" href=\"#\" class=\"iconpicker-item\" style=\"background-color:#DDDDDD;\"><i></i></a>',";
      // $options.="buttons: '<button style=\"background-color:#FFFFFF;\" class=\"iconpicker-btn iconpicker-btn-cancel btn btn-default btn-sm\">".$langs->trans("Cancel")."</button>";
      // $options.="<button style=\"background-color:#FFFFFF;\" class=\"iconpicker-btn iconpicker-btn-accept btn btn-primary btn-sm\">".$langs->trans("Save")."</button>',";
      $options .= "footer: '<div class=\"popover-footer\" style=\"background-color:#EFEFEF;\"></div>',";
      $options .= "search: '<input type=\"search\" class\"form-control iconpicker-search\" placeholder=\"" . $langs->trans("TypeToFilter") . "\" />',";
      $options .= "popover: '<div class=\"iconpicker-popover popover\">";
      $options .= "   <div class=\"arrow\" ></div>";
      $options .= "   <div class=\"popover-title\" style=\"text-align:center;background-color:#EFEFEF;\"></div>";
      $options .= "   <div class=\"popover-content \" ></div>";
      $options .= "</div>'}}";
      $out .= "$('#" . $htmlName . "').iconpicker(" . $options . ");";
      $out .= '</script>';
    }
 
    return $out;
  }
 
  public function inputGeoPoint($htmlName, $value, $type = '')
  {
    require_once DOL_DOCUMENT_ROOT . '/core/class/dolgeophp.class.php';
    require_once DOL_DOCUMENT_ROOT . '/core/class/geomapeditor.class.php';
    $dolgeophp = new DolGeoPHP($this->db);
    $geomapeditor = new GeoMapEditor();
 
    $geojson = '{}';
    $centroidjson = getDolGlobalString('MAIN_INFO_SOCIETE_GEO_COORDINATES', '{}');
    if (!empty($value)) {
      $tmparray = $dolgeophp->parseGeoString($value);
      $geojson = $tmparray['geojson'];
      $centroidjson = $tmparray['centroidjson'];
    }
 
    return $geomapeditor->getHtml($htmlName, $geojson, $centroidjson, $type);
  }
 
  public function outputMultiValues($values)
  {
    $out = '';
    $toPrint = array();
    $values = is_array($values) ? $values : array();
 
    foreach ($values as $value) {
      $toPrint[] = '<li class="select2-search-choice-dolibarr noborderoncategories" style="background: #bbb">' . $value . '</li>';
    }
    if (!empty($toPrint)) {
      $out = '<div class="select2-container-multi-dolibarr" style="width: 90%;"><ul class="select2-choices-dolibarr">' . implode(' ', $toPrint) . '</ul></div>';
    }
 
    return $out;
  }
 
  public function outputStars($size, $value)
  {
    $out = '<div class="star-selection" data-value="' . dolPrintHTMLForAttribute((string) $value) . '">';
    for ($i = 1; $i <= $size; $i++) {
      $out .= '<span class="star' . ($i <= $value ? ' active' : '') . '" data-value="' . $i . '">' . img_picto('', 'fontawesome_star_fas') . '</span>';
    }
    $out .= '</div>';
 
    return $out;
  }
 
  public function outputIcon($value)
  {
    $out = '<span class="' . dolPrintHTMLForAttribute((string) $value) . '"></span>';
 
    return $out;
  }
 
  public function outputGeoPoint($value, $type)
  {
    $out = '';
 
    if (!empty($value)) {
      require_once DOL_DOCUMENT_ROOT . '/core/class/dolgeophp.class.php';
      $dolgeophp = new DolGeoPHP($this->db);
      if ($type == 'point') {
        $out = $dolgeophp->getXYString($value);
      } else { // multipts, linestrg, polygon
        $out = $dolgeophp->getPointString($value);
      }
    }
 
    return $out;
  }
 
  public function getNomUrl(&$object, $withpicto = 0, $option = '', $maxlength = 0, $save_lastsearch_value = -1, $notooltip = 0, $morecss = '', $add_label = 0, $sep = ' - ')
  {
    if (is_object($object) && method_exists($object, 'getNomUrl')) {
      $out = $object->getNomUrl($withpicto, $option, $maxlength, $save_lastsearch_value, $notooltip, $morecss, $add_label, $sep);
      $out = dol_string_nohtmltag($out);
      return $out;
    } else {
      return '';
    }
  }
 
  public static function showphoto($modulepart, $object, $width = 100, $height = 0, $caneditfield = 0, $cssclass = 'photowithmargin', $imagesize = '', $addlinktofullsize = 1, $cache = 0, $forcecapture = '', $noexternsourceoverwrite = 0, $usesharelinkifavailable = 0)
  {
    $out = parent::showphoto($modulepart, $object, $width, $height, $caneditfield, $cssclass, $imagesize, $addlinktofullsize, $cache, $forcecapture, $noexternsourceoverwrite, $usesharelinkifavailable);
    $out = self::convertAllLink($out);
 
    return $out;
  }
 
  public function printFieldCell($key, $label, $value, $params = array())
  {
    $required = !empty($params['required']) ? ' required' : '';
    $cell_class = !empty($params['cell_class']) ? ' ' . dolPrintHTMLForAttribute(trim($params['cell_class'])) : '';
    $cell_attributes = !empty($params['cell_attributes']) ? ' ' . trim($params['cell_attributes']) : '';
    $label_class = !empty($params['label_class']) ? ' ' . dolPrintHTMLForAttribute(trim($params['label_class'])) : '';
    $label_attributes = !empty($params['label_attributes']) ? ' ' . trim($params['label_attributes']) : '';
    $value_class = !empty($params['value_class']) ? ' ' . dolPrintHTMLForAttribute(trim($params['value_class'])) : '';
    $value_attributes = !empty($params['value_attributes']) ? ' ' . trim($params['value_attributes']) : '';
 
    $out = '<div class="grid field_' . dolPrintHTMLForAttribute(strtolower($key)) . $cell_class . '"' . $cell_attributes . '>';
    $out .= '<div class="' . $required . $label_class . '"' . $label_attributes . '>';
    $out .= $label;
    $out .= '</div>';
    $out .= '<div class="' . $value_class . '"' . $value_attributes . '>';
    $out .= $value;
    $out .= '</div>';
    $out .= '</div>';
 
    return $out;
  }
 
  public static function convertAllLink($html, $additionalViewImageParams = '', $additionalDocumentParams = '')
  {
    require_once DOL_DOCUMENT_ROOT . '/webportal/class/context.class.php';
    $context = Context::getInstance();
 
    $html = str_replace(DOL_URL_ROOT . '/viewimage.php?', $context->getControllerUrl('viewimage') . $additionalViewImageParams . '&', $html);
    $html = str_replace(urlencode(DOL_URL_ROOT . '/viewimage.php?'), urlencode($context->getControllerUrl('viewimage') . $additionalViewImageParams . '&'), $html);
    $html = str_replace(DOL_URL_ROOT . '/document.php?', $context->getControllerUrl('document') . $additionalDocumentParams . '&', $html);
    $html = str_replace(urlencode(DOL_URL_ROOT . '/document.php?'), urlencode($context->getControllerUrl('document') . $additionalDocumentParams . '&'), $html);
 
    return $html;
  }
 
  public function selectCurrency($selected = '', $htmlname = 'currency_id', $mode = 0, $useempty = '')
  {
 
    return '<span class="form-select-currency-container">'.parent::selectCurrency($selected, $htmlname, $mode, $useempty).'</span>';
  }
}