dolgraph.class.php

Go to the documentation of this file.

<?php
/* Copyright (c) 2003-2006 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (c) 2004-2015 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2024   MDW             <mdeweerd@users.noreply.github.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/>.
 */
 
class DolGraph
{
  public $type = array(); // Array with type of each series. Example: array('bars', 'horizontalbars', 'lines', 'pies', 'piesemicircle', 'polar'...)
  public $mode = 'side'; // Mode bars graph: side, depth
  private $_library; // Graphic library to use (jflot, chart, artichow)
 
  public $data; // Data of graph: array(array('abs1',valA1,valB1), array('abs2',valA2,valB2), ...)
  public $title; // Title of graph
  public $cssprefix = ''; // To add into css styles
 
  public $width = 380;
  public $height = 200;
 
  public $MaxValue = 0;
  public $MinValue = 0;
  public $SetShading = 0;
 
  public $horizTickIncrement = -1;
  public $SetNumXTicks = -1;
  public $labelInterval = -1;
  public $YLabel;
 
  public $hideXGrid = false;
  public $hideXValues = false;
  public $hideYGrid = false;
 
  public $Legend = array();
  public $LegendWidthMin = 0;
  public $showlegend = 1;
  public $showpointvalue = 1;
  public $showpercent = 0;
  public $combine = 0; // 0.05 if you want to combine records < 5% into "other"
  public $graph; // Object Graph (Artichow, Phplot...)
  public $mirrorGraphValues = false;
  public $tooltipsTitles = null;
  public $tooltipsLabels = null;
 
  public $error = '';
 
  public $bordercolor; // array(R,G,B)
  public $bgcolor; // array(R,G,B)
  public $bgcolorgrid = array(255, 255, 255); // array(R,G,B)
  public $datacolor; // array(array(R,G,B),...)
  public $borderwidth = 1;
  public $borderskip = 'start';
 
  private $stringtoshow; // To store string to output graph into HTML page
 
 
  public function __construct($library = 'auto')
  {
    global $conf;
    global $theme_bordercolor, $theme_datacolor, $theme_bgcolor;
 
    // Some default values for the case it is not defined into the theme later.
    $this->bordercolor = array(235, 235, 224);
    $this->datacolor = array(array(120, 130, 150), array(160, 160, 180), array(190, 190, 220));
    $this->bgcolor = array(235, 235, 224);
 
    // For small screen, we prefer a default with of 300
    if (!empty($conf->dol_optimize_smallscreen)) {
      $this->width = 300;
    }
 
    // Load color of the theme
    $color_file = DOL_DOCUMENT_ROOT . '/theme/' . $conf->theme . '/theme_vars.inc.php';
    if (is_readable($color_file)) {
      include $color_file;
      if (isset($theme_bordercolor)) {
        $this->bordercolor = $theme_bordercolor;
      }
      if (isset($theme_datacolor)) {
        $this->datacolor   = $theme_datacolor;
      }
      if (isset($theme_bgcolor)) {
        $this->bgcolor     = $theme_bgcolor;
      }
    }
    //print 'bgcolor: '.join(',',$this->bgcolor).'<br>';
 
    $this->_library = $library;
    if ($this->_library == 'auto') {
      $this->_library = (!getDolGlobalString('MAIN_JS_GRAPH') ? 'chart' : $conf->global->MAIN_JS_GRAPH);
    }
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetHorizTickIncrement($xi)
  {
    // phpcs:enable
    $this->horizTickIncrement = $xi;
    return true;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetNumXTicks($xt)
  {
    // phpcs:enable
    $this->SetNumXTicks = $xt;
    return true;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetLabelInterval($x)
  {
    // phpcs:enable
    $this->labelInterval = $x;
    return true;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetHideXGrid($bool)
  {
    // phpcs:enable
    $this->hideXGrid = $bool;
    return true;
  }
 
  public function setHideXValues($bool)
  {
    $this->hideXValues = $bool;
    return true;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetHideYGrid($bool)
  {
    // phpcs:enable
    $this->hideYGrid = $bool;
    return true;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetYLabel($label)
  {
    // phpcs:enable
    $this->YLabel = $label;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetWidth($w)
  {
    // phpcs:enable
    $this->width = $w;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetTitle($title)
  {
    // phpcs:enable
    $this->title = $title;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetData($data)
  {
    // phpcs:enable
    $this->data = $data;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetDataColor($datacolor)
  {
    // phpcs:enable
    $this->datacolor = $datacolor;
  }
 
  public function setBorderColor($bordercolor)
  {
    $this->bordercolor = $bordercolor;
  }
 
  public function setBorderWidth($borderwidth)
  {
    $this->borderwidth = $borderwidth;
  }
 
  public function setBorderSkip($borderskip)
  {
    $this->borderskip = $borderskip;
  }
 
  public function setTooltipsLabels($tooltipsLabels)
  {
    $this->tooltipsLabels = $tooltipsLabels;
  }
 
  public function setTooltipsTitles($tooltipsTitles)
  {
    $this->tooltipsTitles = $tooltipsTitles;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetType($type)
  {
    // phpcs:enable
    $this->type = $type;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetLegend($legend)
  {
    // phpcs:enable
    $this->Legend = $legend;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetLegendWidthMin($legendwidthmin)
  {
    // phpcs:enable
    $this->LegendWidthMin = $legendwidthmin;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetMaxValue($max)
  {
    // phpcs:enable
    $this->MaxValue = $max;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function GetMaxValue()
  {
    // phpcs:enable
    return $this->MaxValue;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetMinValue($min)
  {
    // phpcs:enable
    $this->MinValue = $min;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function GetMinValue()
  {
    // phpcs:enable
    return $this->MinValue;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetHeight($h)
  {
    // phpcs:enable
    $this->height = $h;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetShading($s)
  {
    // phpcs:enable
    $this->SetShading = $s;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetCssPrefix($s)
  {
    // phpcs:enable
    $this->cssprefix = $s;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function ResetBgColor()
  {
    // phpcs:enable
    unset($this->bgcolor);
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function ResetBgColorGrid()
  {
    // phpcs:enable
    unset($this->bgcolorgrid);
  }
 
  public function setMirrorGraphValues($mirrorGraphValues)
  {
    $this->mirrorGraphValues = $mirrorGraphValues;
  }
 
  public function isGraphKo()
  {
    return $this->error;
  }
 
  public function setShowLegend($showlegend)
  {
    $this->showlegend = $showlegend;
  }
 
  public function setShowPointValue($showpointvalue)
  {
    $this->showpointvalue = $showpointvalue;
  }
 
  public function setShowPercent($showpercent)
  {
    $this->showpercent = $showpercent;
  }
 
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetBgColor($bg_color = array(255, 255, 255))
  {
    // phpcs:enable
    global $theme_bgcolor, $theme_bgcoloronglet;
 
    if (!is_array($bg_color)) {
      if ($bg_color == 'onglet') {
        //print 'ee'.join(',',$theme_bgcoloronglet);
        $this->bgcolor = $theme_bgcoloronglet;
      } else {
        $this->bgcolor = $theme_bgcolor;
      }
    } else {
      $this->bgcolor = $bg_color;
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function SetBgColorGrid($bg_colorgrid = array(255, 255, 255))
  {
    // phpcs:enable
    global $theme_bgcolor, $theme_bgcoloronglet;
 
    if (!is_array($bg_colorgrid)) {
      if ($bg_colorgrid == 'onglet') {
        //print 'ee'.join(',',$theme_bgcoloronglet);
        $this->bgcolorgrid = $theme_bgcoloronglet;
      } else {
        $this->bgcolorgrid = $theme_bgcolor;
      }
    } else {
      $this->bgcolorgrid = $bg_colorgrid;
    }
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function ResetDataColor()
  {
    // phpcs:enable
    unset($this->datacolor);
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function GetMaxValueInData()
  {
    // phpcs:enable
    if (!is_array($this->data)) {
      return 0;
    }
 
    $max = null;
 
    $nbseries = (empty($this->data[0]) ? 0 : count($this->data[0]) - 1);
 
    foreach ($this->data as $x) { // Loop on each x
      for ($i = 0; $i < $nbseries; $i++) {  // Loop on each series
        if (is_null($max)) {
          $max = $x[$i + 1];    // $i+1 because the index 0 is the legend
        } elseif ($max < $x[$i + 1]) {
          $max = $x[$i + 1];
        }
      }
    }
 
    return $max;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function GetMinValueInData()
  {
    // phpcs:enable
    if (!is_array($this->data)) {
      return 0;
    }
 
    $min = null;
 
    $nbseries = (empty($this->data[0]) ? 0 : count($this->data[0]) - 1);
 
    foreach ($this->data as $x) { // Loop on each x
      for ($i = 0; $i < $nbseries; $i++) {  // Loop on each series
        if (is_null($min)) {
          $min = $x[$i + 1];    // $i+1 because the index 0 is the legend
        } elseif ($min > $x[$i + 1]) {
          $min = $x[$i + 1];
        }
      }
    }
 
    return $min;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function GetCeilMaxValue()
  {
    // phpcs:enable
    $max = $this->GetMaxValueInData();
    if ($max != 0) {
      $max++;
    }
    $size = dol_strlen(abs(ceil($max)));
    $factor = 1;
    for ($i = 0; $i < ($size - 1); $i++) {
      $factor *= 10;
    }
 
    $res = 0;
    if (is_numeric($max)) {
      $res = ceil($max / $factor) * $factor;
    }
 
    //print "max=".$max." res=".$res;
    return (int) $res;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function GetFloorMinValue()
  {
    // phpcs:enable
    $min = $this->GetMinValueInData();
    if ($min == '') {
      $min = 0;
    }
    if ($min != 0) {
      $min--;
    }
    $size = dol_strlen(abs(floor($min)));
    $factor = 1;
    for ($i = 0; $i < ($size - 1); $i++) {
      $factor *= 10;
    }
 
    $res = floor($min / $factor) * $factor;
 
    //print "min=".$min." res=".$res;
    return $res;
  }
 
  public function draw($file, $fileurl = '')
  {
    if (empty($file)) {
      $this->error = "Call to draw method was made with empty value for parameter file.";
      dol_syslog(get_class($this) . "::draw " . $this->error, LOG_ERR);
      return -2;
    }
    if (!is_array($this->data)) {
      $this->error = "Call to draw method was made but SetData was not called or called with an empty dataset for parameters";
      dol_syslog(get_class($this) . "::draw " . $this->error, LOG_ERR);
      return -1;
    }
    if (count($this->data) < 1) {
      $this->error = "Call to draw method was made but SetData was is an empty dataset";
      dol_syslog(get_class($this) . "::draw " . $this->error, LOG_WARNING);
    }
    $call = "draw_" . $this->_library;  // Example "draw_jflot"
 
    return call_user_func_array(array($this, $call), array($file, $fileurl));
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  private function draw_jflot($file, $fileurl)
  {
    // phpcs:enable
    global $langs;
 
    dol_syslog(get_class($this) . "::draw_jflot this->type=" . implode(',', $this->type) . " this->MaxValue=" . $this->MaxValue);
 
    if (empty($this->width) && empty($this->height)) {
      print 'Error width or height not set';
      return;
    }
 
    $legends = array();
    $nblot = 0;
    if (is_array($this->data) && is_array($this->data[0])) {
      $nblot = count($this->data[0]) - 1; // -1 to remove legend
    }
    if ($nblot < 0) {
      dol_syslog('Bad value for property ->data. Must be set by mydolgraph->SetData before calling mydolgrapgh->draw', LOG_WARNING);
    }
    $firstlot = 0;
    // Works with line but not with bars
    //if ($nblot > 2) $firstlot = ($nblot - 2);        // We limit nblot to 2 because jflot can't manage more than 2 bars on same x
 
    $i = $firstlot;
    $series = array();
    while ($i < $nblot) { // Loop on each series
      $values = array(); // Array with horizontal y values (specific values of a series) for each abscisse x
      $series[$i] = "var d" . $i . " = [];\n";
 
      // Fill array $values
      $x = 0;
      foreach ($this->data as $valarray) {  // Loop on each x
        $legends[$x] = $valarray[0];
        $values[$x]  = (is_numeric($valarray[$i + 1]) ? $valarray[$i + 1] : null);
        $x++;
      }
 
      if (isset($this->type[$firstlot]) && in_array($this->type[$firstlot], array('pie', 'piesemicircle', 'polar'))) {
        foreach ($values as $x => $y) {
          if (isset($y)) {
            $series[$i] .= 'd' . $i . '.push({"label":"' . dol_escape_js($legends[$x]) . '", "data":' . $y . '});' . "\n";
          }
        }
      } else {
        foreach ($values as $x => $y) {
          if (isset($y)) {
            $series[$i] .= 'd' . $i . '.push([' . $x . ', ' . $y . ']);' . "\n";
          }
        }
      }
 
      unset($values);
      $i++;
    }
    $tag = dol_escape_htmltag(dol_string_unaccent(dol_string_nospecial(basename($file), '_', array('-', '.'))));
 
    $this->stringtoshow = '<!-- Build using jflot -->' . "\n";
    if (!empty($this->title)) {
      $this->stringtoshow .= '<div class="center dolgraphtitle' . (empty($this->cssprefix) ? '' : ' dolgraphtitle' . $this->cssprefix) . '">' . $this->title . '</div>';
    }
    if (!empty($this->shownographyet)) {
      $this->stringtoshow .= '<div style="width:' . $this->width . 'px;height:' . $this->height . 'px;" class="nographyet"></div>';
      $this->stringtoshow .= '<div class="nographyettext margintoponly">' . $langs->trans("NotEnoughDataYet") . '...</div>';
      return;
    }
 
    // Start the div that will contains all the graph
    $dolxaxisvertical = '';
    if (count($this->data) > 20) {
      $dolxaxisvertical = 'dol-xaxis-vertical';
    }
    $this->stringtoshow .= '<div id="placeholder_' . $tag . '" style="width:' . $this->width . 'px;height:' . $this->height . 'px;" class="dolgraph' . (empty($dolxaxisvertical) ? '' : ' ' . $dolxaxisvertical) . (empty($this->cssprefix) ? '' : ' dolgraph' . $this->cssprefix) . ' center"></div>' . "\n";
 
    $this->stringtoshow .= '<script nonce="'.getNonce().'" id="' . $tag . '">' . "\n";
    $this->stringtoshow .= '$(function () {' . "\n";
    $i = $firstlot;
    if ($nblot < 0) {
      $this->stringtoshow .= '<!-- No series of data -->' . "\n";
    } else {
      while ($i < $nblot) {
        $this->stringtoshow .= '<!-- Series ' . $i . ' -->' . "\n";
        $this->stringtoshow .= $series[$i] . "\n";
        $i++;
      }
    }
    $this->stringtoshow .= "\n";
 
    // Special case for Graph of type 'pie'
    if (isset($this->type[$firstlot]) && in_array($this->type[$firstlot], array('pie', 'piesemicircle', 'polar'))) {
      $datacolor = array();
      foreach ($this->datacolor as $val) {
        if (is_array($val)) {
          $datacolor[] = "#" . sprintf("%02x%02x%02x", $val[0], $val[1], $val[2]); // If datacolor is array(R, G, B)
        } else {
          $datacolor[] = "#" . str_replace(array('#', '-'), '', $val); // If $val is '124' or '#124'
        }
      }
 
      $urltemp = ''; // TODO Add support for url link into labels
      $showlegend = $this->showlegend;
      $showpointvalue = $this->showpointvalue;
      $showpercent = $this->showpercent;
 
      $this->stringtoshow .= '
      function plotWithOptions_' . $tag . '() {
      $.plot($("#placeholder_' . $tag . '"), d0,
      {
        series: {
          pie: {
            show: true,
            radius: 0.8,
            ' . ($this->combine ? '
            combine: {
              threshold: ' . $this->combine . '
            },' : '') . '
            label: {
              show: true,
              radius: 0.9,
              formatter: function(label, series) {
                var percent=Math.round(series.percent);
                var number=series.data[0][1];
                return \'';
      $this->stringtoshow .= '<span style="font-size:8pt;text-align:center;padding:2px;color:black;">';
      if ($urltemp) {
        $this->stringtoshow .= '<a style="color: #FFFFFF;" border="0" href="' . $urltemp . '">';
      }
      $this->stringtoshow .= '\'+';
      $this->stringtoshow .= ($showlegend ? '' : 'label+\' \'+'); // Hide label if already shown in legend
      $this->stringtoshow .= ($showpointvalue ? 'number+' : '');
      $this->stringtoshow .= ($showpercent ? '\'<br>\'+percent+\'%\'+' : '');
      $this->stringtoshow .= '\'';
      if ($urltemp) {
        $this->stringtoshow .= '</a>';
      }
      $this->stringtoshow .= '</span>\';
              },
              background: {
              opacity: 0.0,
              color: \'#000000\'
            }
          }
        }
      },
      zoom: {
        interactive: true
      },
      pan: {
        interactive: true
      },';
      if (count($datacolor)) {
        $this->stringtoshow .= 'colors: ' . json_encode($datacolor) . ',';
      }
      $this->stringtoshow .= 'legend: {show: ' . ($showlegend ? 'true' : 'false') . ', position: \'ne\' }
    });
    }' . "\n";
    } else {
      // Other cases, graph of type 'bars', 'lines'
      // Add code to support tooltips
      // TODO: remove js css and use graph-tooltip-inner class instead by adding css in each themes
      $this->stringtoshow .= '
      function showTooltip_' . $tag . '(x, y, contents) {
        $(\'<div class="graph-tooltip-inner" id="tooltip_' . $tag . '">\' + contents + \'</div>\').css({
          position: \'absolute\',
          display: \'none\',
          top: y + 10,
          left: x + 15,
          border: \'1px solid #000\',
          padding: \'5px\',
          \'background-color\': \'#000\',
          \'color\': \'#fff\',
          \'font-weight\': \'bold\',
          width: 200,
          opacity: 0.80
        }).appendTo("body").fadeIn(100);
      }
 
      var previousPoint = null;
      $("#placeholder_' . $tag . '").bind("plothover", function (event, pos, item) {
        $("#x").text(pos.x.toFixed(2));
        $("#y").text(pos.y.toFixed(2));
 
        if (item) {
          if (previousPoint != item.dataIndex) {
            previousPoint = item.dataIndex;
 
            $("#tooltip").remove();
            /* console.log(item); */
            var x = item.datapoint[0].toFixed(2);
            var y = item.datapoint[1].toFixed(2);
            var z = item.series.xaxis.ticks[item.dataIndex].label;
            ';
      if ($this->showpointvalue > 0) {
        $this->stringtoshow .= '
              showTooltip_' . $tag . '(item.pageX, item.pageY, item.series.label + "<br>" + z + " => " + y);
            ';
      }
      $this->stringtoshow .= '
          }
        }
        else {
          $("#tooltip_' . $tag . '").remove();
          previousPoint = null;
        }
      });
      ';
 
      $this->stringtoshow .= 'var stack = null, steps = false;' . "\n";
 
      $this->stringtoshow .= 'function plotWithOptions_' . $tag . '() {' . "\n";
      $this->stringtoshow .= '$.plot($("#placeholder_' . $tag . '"), [ ' . "\n";
      $i = $firstlot;
      while ($i < $nblot) {
        if ($i > $firstlot) {
          $this->stringtoshow .= ', ' . "\n";
        }
        $color = sprintf("%02x%02x%02x", $this->datacolor[$i][0], $this->datacolor[$i][1], $this->datacolor[$i][2]);
        $this->stringtoshow .= '{ ';
        if (!isset($this->type[$i]) || $this->type[$i] == 'bars') {
          if ($nblot == 3) {
            if ($i == $firstlot) {
              $align = 'right';
            } elseif ($i == $firstlot + 1) {
              $align = 'center';
            } else {
              $align = 'left';
            }
            $this->stringtoshow .= 'bars: { lineWidth: 1, show: true, align: "' . $align . '", barWidth: 0.45 }, ';
          } else {
            $this->stringtoshow .= 'bars: { lineWidth: 1, show: true, align: "' . ($i == $firstlot ? 'center' : 'left') . '", barWidth: 0.5 }, ';
          }
        }
        if (isset($this->type[$i]) && ($this->type[$i] == 'lines' || $this->type[$i] == 'linesnopoint')) {
          $this->stringtoshow .= 'lines: { show: true, fill: false }, points: { show: ' . ($this->type[$i] == 'linesnopoint' ? 'false' : 'true') . ' }, ';
        }
        $this->stringtoshow .= 'color: "#' . $color . '", label: "' . (isset($this->Legend[$i]) ? dol_escape_js($this->Legend[$i]) : '') . '", data: d' . $i . ' }';
        $i++;
      }
      // shadowSize: 0 -> Drawing is faster without shadows
      $this->stringtoshow .= "\n" . ' ], { series: { shadowSize: 0, stack: stack, lines: { fill: false, steps: steps }, bars: { barWidth: 0.6,  fillColor: { colors: [{opacity: 0.9 }, {opacity: 0.85}] }} }' . "\n";
 
      // Xaxis
      $this->stringtoshow .= ', xaxis: { ticks: [' . "\n";
      $x = 0;
      foreach ($this->data as $key => $valarray) {
        if ($x > 0) {
          $this->stringtoshow .= ', ' . "\n";
        }
        $this->stringtoshow .= ' [' . $x . ', "' . $valarray[0] . '"]';
        $x++;
      }
      $this->stringtoshow .= '] }' . "\n";
 
      // Yaxis
      $this->stringtoshow .= ', yaxis: { min: ' . $this->MinValue . ', max: ' . ($this->MaxValue) . ' }' . "\n";
 
      // Background color
      $color1 = sprintf("%02x%02x%02x", $this->bgcolorgrid[0], $this->bgcolorgrid[0], $this->bgcolorgrid[2]);
      $color2 = sprintf("%02x%02x%02x", $this->bgcolorgrid[0], $this->bgcolorgrid[1], $this->bgcolorgrid[2]);
      $this->stringtoshow .= ', grid: { hoverable: true, backgroundColor: { colors: ["#' . $color1 . '", "#' . $color2 . '"] }, borderWidth: 1, borderColor: \'#e6e6e6\', tickColor  : \'#e6e6e6\' }' . "\n";
      $this->stringtoshow .= '});' . "\n";
      $this->stringtoshow .= '}' . "\n";
    }
 
    $this->stringtoshow .= 'plotWithOptions_' . $tag . '();' . "\n";
    $this->stringtoshow .= '});' . "\n";
    $this->stringtoshow .= '</script>' . "\n";
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  private function draw_chart($file, $fileurl)
  {
    // phpcs:enable
    global $langs;
 
    dol_syslog(get_class($this) . "::draw_chart this->type=" . implode(',', $this->type) . " this->MaxValue=" . $this->MaxValue);
 
    if (empty($this->width) && empty($this->height)) {
      print 'Error width or height not set';
      return;
    }
 
    $showlegend = $this->showlegend;
    $bordercolor = "";
 
    $legends = array();
    $nblot = 0;
    if (is_array($this->data)) {
      foreach ($this->data as $valarray) {      // Loop on each x
        $nblot = max($nblot, count($valarray) - 1); // -1 to remove legend
      }
    }
    //var_dump($nblot);
    if ($nblot < 0) {
      dol_syslog('Bad value for property ->data. Must be set by mydolgraph->SetData before calling mydolgrapgh->draw', LOG_WARNING);
    }
    $firstlot = 0;
    // Works with line but not with bars
    //if ($nblot > 2) $firstlot = ($nblot - 2);        // We limit nblot to 2 because jflot can't manage more than 2 bars on same x
 
    $series = array();
    $arrayofgroupslegend = array();
    //var_dump($this->data);
 
    $i = $firstlot;
    while ($i < $nblot) { // Loop on each series
      $values = array(); // Array with horizontal y values (specific values of a series) for each abscisse x (with x=0,1,2,...)
      $series[$i] = "";
 
      // Fill array $series from $this->data
      $x = 0;
      foreach ($this->data as $valarray) {  // Loop on each x
        $legends[$x] = (array_key_exists('label', $valarray) ? $valarray['label'] : $valarray[0]);
        $array_of_ykeys = array_keys($valarray);
        $alabelexists = 1;
        $tmpykey = explode('_', ($array_of_ykeys[$i + ($alabelexists ? 1 : 0)]), 3);
        if (isset($tmpykey[2]) && (!empty($tmpykey[2]) || $tmpykey[2] == '0')) {    // This is a 'Group by' array
          $tmpvalue = (array_key_exists('y_' . $tmpykey[1] . '_' . $tmpykey[2], $valarray) ? $valarray['y_' . $tmpykey[1] . '_' . $tmpykey[2]] : $valarray[$i + 1]);
          $values[$x] = (is_numeric($tmpvalue) ? $tmpvalue : null);
          $arrayofgroupslegend[$i] = array(
            'stacknum' => $tmpykey[1],
            'legend' => $this->Legend[$tmpykey[1]],
            'legendwithgroup' => $this->Legend[$tmpykey[1]] . ' - ' . $tmpykey[2]
          );
        } else {
          $tmpvalue = (array_key_exists('y_' . $i, $valarray) ? $valarray['y_' . $i] : $valarray[$i + 1]);
          //var_dump($i.'_'.$x.'_'.$tmpvalue);
          $values[$x] = (is_numeric($tmpvalue) ? $tmpvalue : null);
        }
        $x++;
      }
      //var_dump($values);
      $j = 0;
      foreach ($values as $x => $y) {
        if (isset($y)) {
          $series[$i] .= ($j > 0 ? ", " : "") . $y;
        } else {
          $series[$i] .= ($j > 0 ? ", " : "") . 'null';
        }
        $j++;
      }
 
      $values = null; // Free mem
      $i++;
    }
    //var_dump($series);
    //var_dump($arrayofgroupslegend);
 
    $tag = dol_escape_htmltag(dol_string_unaccent(dol_string_nospecial(basename($file), '_', array('-', '.'))));
 
    $this->stringtoshow = '<!-- Build using chart -->' . "\n";
    if (!empty($this->title)) {
      $this->stringtoshow .= '<div class="center dolgraphtitle' . (empty($this->cssprefix) ? '' : ' dolgraphtitle' . $this->cssprefix) . '">' . $this->title . '</div>';
    }
    if (!empty($this->shownographyet)) {
      $this->stringtoshow .= '<div style="width:' . $this->width . (strpos($this->width, '%') > 0 ? '' : 'px') . '; height:' . $this->height . 'px;" class="nographyet"></div>';
      $this->stringtoshow .= '<div class="nographyettext margintoponly">' . $langs->trans("NotEnoughDataYet") . '...</div>';
      return;
    }
 
    // Start the div that will contains all the graph
    $dolxaxisvertical = '';
    if (count($this->data) > 20) {
      $dolxaxisvertical = 'dol-xaxis-vertical';
    }
    // No height for the pie graph
    $cssfordiv = 'dolgraphchart';
    if (isset($this->type[$firstlot])) {
      $cssfordiv .= ' dolgraphchar' . $this->type[$firstlot];
    }
    $this->stringtoshow .= '<div id="placeholder_'.$tag.'" style="min-height: '.$this->height.(strpos((string) $this->height, '%') > 0 ? '' : 'px').'; max-height: '.(strpos((string) $this->height, '%') > 0 ? $this->height : ((int) $this->height + 100) . 'px').'; width:'.$this->width.(strpos((string) $this->width, '%') > 0 ? '' : 'px').';" class="'.$cssfordiv.' dolgraph'.(empty($dolxaxisvertical) ? '' : ' '.$dolxaxisvertical).(empty($this->cssprefix) ? '' : ' dolgraph'.$this->cssprefix).' center">'."\n";
    $this->stringtoshow .= '<canvas id="canvas_'.$tag.'"></canvas></div>'."\n";
 
    $this->stringtoshow .= '<script nonce="'.getNonce().'" id="' . $tag . '">' . "\n";
    $i = $firstlot;
    if ($nblot < 0) {
      $this->stringtoshow .= '<!-- No series of data -->';
    } else {
      while ($i < $nblot) {
        //$this->stringtoshow .= '<!-- Series '.$i.' -->'."\n";
        //$this->stringtoshow .= $series[$i]."\n";
        $i++;
      }
    }
    $this->stringtoshow .= "\n";
 
    // Special case for Graph of type 'pie', 'piesemicircle', or 'polar'
    if (isset($this->type[$firstlot]) && (in_array($this->type[$firstlot], array('pie', 'polar', 'piesemicircle')))) {
      $type = $this->type[$firstlot]; // pie or polar
      //$this->stringtoshow .= 'var options = {' . "\n";
      $this->stringtoshow .= 'var options = { maintainAspectRatio: false, aspectRatio: 2.5, ';
 
 
      $legendMaxLines = 0; // Does not work
 
      /* For Chartjs v2.9 */
      if (empty($showlegend)) {
        $this->stringtoshow .= 'legend: { display: false }, ';
      } else {
        $this->stringtoshow .= 'legend: { labels: { boxWidth: 15 }, position: \'' . ($showlegend == 2 ? 'right' : 'top') . '\'';
        if (!empty($legendMaxLines)) {
          $this->stringtoshow .= ', maxLines: ' . $legendMaxLines;
        }
        $this->stringtoshow .= ' }, ' . "\n";
      }
 
      /* For Chartjs v3.5 */
      $this->stringtoshow .= 'plugins: { ';
      if (empty($showlegend)) {
        $this->stringtoshow .= 'legend: { display: false }, ';
      } else {
        $this->stringtoshow .= 'legend: { labels: { boxWidth: 15 }, position: \'' . ($showlegend == 2 ? 'right' : 'top') . '\'';
        if (!empty($legendMaxLines)) {
          $this->stringtoshow .= ', maxLines: ' . $legendMaxLines;
        }
        $this->stringtoshow .= ' }, ' . "\n";
      }
      $this->stringtoshow .= ' }, ' . "\n";
 
 
      if ($this->type[$firstlot] == 'piesemicircle') {
        $this->stringtoshow .= 'circumference: Math.PI,' . "\n";
        $this->stringtoshow .= 'rotation: -Math.PI,' . "\n";
      }
      $this->stringtoshow .= 'elements: { arc: {' . "\n";
      // Color of each arc
      $this->stringtoshow .= 'backgroundColor: [';
      $i = 0;
      $foundnegativecolor = 0;
      foreach ($legends as $val) {  // Loop on each series
        if ($i > 0) {
          $this->stringtoshow .= ', ' . "\n";
        }
        if (is_array($this->datacolor[$i])) {
          $color = 'rgb(' . $this->datacolor[$i][0] . ', ' . $this->datacolor[$i][1] . ', ' . $this->datacolor[$i][2] . ')'; // If datacolor is array(R, G, B)
        } else {
          $tmp = str_replace('#', '', $this->datacolor[$i]);
          if (strpos($tmp, '-') !== false) {
            $foundnegativecolor++;
            $color = 'rgba(0,0,0,.0)'; // If $val is '-123'
          } else {
            $color = "#" . $tmp; // If $val is '123' or '#123'
          }
        }
        $this->stringtoshow .= "'" . $color . "'";
        $i++;
      }
      $this->stringtoshow .= '], ' . "\n";
      // Border color
      if ($foundnegativecolor) {
        $this->stringtoshow .= 'borderColor: [';
        $i = 0;
        foreach ($legends as $val) {  // Loop on each series
          if ($i > 0) {
            $this->stringtoshow .= ', ' . "\n";
          }
          if (is_array($this->datacolor[$i])) {
            $color = 'null'; // If datacolor is array(R, G, B)
          } else {
            $tmp = str_replace('#', '', $this->datacolor[$i]);
            if (strpos($tmp, '-') !== false) {
              $color = '#' . str_replace('-', '', $tmp); // If $val is '-123'
            } else {
              $color = 'null'; // If $val is '123' or '#123'
            }
          }
          $this->stringtoshow .= ($color == 'null' ? "'rgba(0,0,0,0.2)'" : "'" . $color . "'");
          $i++;
        }
        $this->stringtoshow .= ']';
      }
      $this->stringtoshow .= '} } };' . "\n";
 
      $this->stringtoshow .= '
        var ctx = document.getElementById("canvas_' . $tag . '").getContext("2d");
        var chart = new Chart(ctx, {
          // The type of chart we want to create
          type: \'' . (in_array($type, array('pie', 'piesemicircle')) ? 'doughnut' : 'polarArea') . '\',
        // Configuration options go here
          options: options,
        data: {
          labels: [';
 
      $i = 0;
      foreach ($legends as $val) {  // Loop on each series
        if ($i > 0) {
          $this->stringtoshow .= ', ';
        }
        $this->stringtoshow .= "'" . dol_escape_js(dol_trunc($val, 25)) . "'";  // Lower than 25 make some important label (that we can't shorten) to be truncated
        $i++;
      }
 
      $this->stringtoshow .= '],
          datasets: [';
      $i = 0;
      while ($i < $nblot) { // Loop on each series
        $color = 'rgb(' . $this->datacolor[$i][0] . ', ' . $this->datacolor[$i][1] . ', ' . $this->datacolor[$i][2] . ')';
 
        if ($i > 0) {
          $this->stringtoshow .= ', ' . "\n";
        }
        $this->stringtoshow .= '{' . "\n";
        //$this->stringtoshow .= 'borderColor: \''.$color.'\', ';
        //$this->stringtoshow .= 'backgroundColor: \''.$color.'\', ';
        $this->stringtoshow .= '  data: [' . $series[$i] . ']';
        $this->stringtoshow .= '}' . "\n";
        $i++;
      }
      $this->stringtoshow .= ']' . "\n";
      $this->stringtoshow .= '}' . "\n";
      $this->stringtoshow .= '});' . "\n";
    } else {
      // Other cases, graph of type 'bars', 'lines', 'linesnopoint'
      $type = 'bar';
      $xaxis = '';
 
      if (isset($this->type[$firstlot]) && $this->type[$firstlot] == 'horizontalbars') {
        $xaxis = "indexAxis: 'y', ";
      }
      if (isset($this->type[$firstlot]) && ($this->type[$firstlot] == 'lines' || $this->type[$firstlot] == 'linesnopoint')) {
        $type = 'line';
      }
 
      // Set options
      $this->stringtoshow .= 'var options = { maintainAspectRatio: false, aspectRatio: 2.5, ';
      $this->stringtoshow .= $xaxis;
      if ($this->showpointvalue == 2) {
        $this->stringtoshow .= 'interaction: { intersect: true, mode: \'index\'}, ';
      }
 
      /* For Chartjs v2.9 */
      /*
      if (empty($showlegend)) {
        $this->stringtoshow .= 'legend: { display: false }, '."\n";
      } else {
        $this->stringtoshow .= 'legend: { maxWidth: '.round($this->width / 2).', labels: { boxWidth: 15 }, position: \'' . ($showlegend == 2 ? 'right' : 'top') . '\' }, '."\n";
      }
      */
 
      /* For Chartjs v3.5 */
      $this->stringtoshow .= 'plugins: { '."\n";
      if (empty($showlegend)) {
        $this->stringtoshow .= 'legend: { display: false }, '."\n";
      } else {
        $this->stringtoshow .= 'legend: { maxWidth: '.round(intval($this->width) / 2).', labels: { boxWidth: 15 }, position: \'' . (($showlegend && $showlegend == 2) ? 'right' : 'top') . '\' },'."\n";
      }
      if (is_array($this->tooltipsLabels) || is_array($this->tooltipsTitles)) {
        $this->stringtoshow .= 'tooltip: { mode: \'nearest\',
          callbacks: {';
        if (is_array($this->tooltipsTitles)) {
          $this->stringtoshow .= '
              title: function(tooltipItem, data) {
                var tooltipsTitle ='.json_encode($this->tooltipsTitles).'
                return tooltipsTitle[tooltipItem[0].datasetIndex];
              },';
        }
        if (is_array($this->tooltipsLabels)) {
          $this->stringtoshow .= 'label: function(tooltipItem, data) {
                var tooltipslabels ='.json_encode($this->tooltipsLabels).'
                return tooltipslabels[tooltipItem.datasetIndex]
              }';
        }
        $this->stringtoshow .= '}},';
      }
      $this->stringtoshow .= "}, \n";
 
      /* For Chartjs v2.9 */
      /*
       $this->stringtoshow .= 'scales: { xAxis: [{ ';
      if ($this->hideXValues) {
        $this->stringtoshow .= ' ticks: { display: false }, display: true,';
      }
      //$this->stringtoshow .= 'type: \'time\', ';    // Need Moment.js
      $this->stringtoshow .= 'distribution: \'linear\'';
      if ($type == 'bar' && count($arrayofgroupslegend) > 0) {
        $this->stringtoshow .= ', stacked: true';
      }
      $this->stringtoshow .= ' }]';
      $this->stringtoshow .= ', yAxis: [{ ticks: { beginAtZero: true }';
      if ($type == 'bar' && count($arrayofgroupslegend) > 0) {
        $this->stringtoshow .= ', stacked: true';
      }
      $this->stringtoshow .= ' }] }';
      */
 
      // Add a callback to change label to show only positive value
      if (is_array($this->tooltipsLabels) || is_array($this->tooltipsTitles)) {
        $this->stringtoshow .= 'tooltips: { mode: \'nearest\',
          callbacks: {';
        if (is_array($this->tooltipsTitles)) {
          $this->stringtoshow .= '
              title: function(tooltipItem, data) {
                var tooltipsTitle ='.json_encode($this->tooltipsTitles).'
                return tooltipsTitle[tooltipItem[0].datasetIndex];
              },';
        }
        if (is_array($this->tooltipsLabels)) {
          $this->stringtoshow .= 'label: function(tooltipItem, data) {
                var tooltipslabels ='.json_encode($this->tooltipsLabels).'
                return tooltipslabels[tooltipItem.datasetIndex]
              }';
        }
        $this->stringtoshow .= '}},';
      }
      $this->stringtoshow .= '};';
      $this->stringtoshow .= '
        var ctx = document.getElementById("canvas_' . $tag . '").getContext("2d");
        var chart = new Chart(ctx, {
          // The type of chart we want to create
          type: \'' . $type . '\',
        // Configuration options go here
          options: options,
        data: {
          labels: [';
 
      $i = 0;
      foreach ($legends as $val) {  // Loop on each series
        if ($i > 0) {
          $this->stringtoshow .= ', ';
        }
        $this->stringtoshow .= "'" . dol_escape_js(dol_trunc($val, 32)) . "'";
        $i++;
      }
 
      //var_dump($arrayofgroupslegend);
 
      $this->stringtoshow .= '],
          datasets: [';
 
      global $theme_datacolor;
      '@phan-var-force array{0:array{0:int,1:int,2:int},1:array{0:int,1:int,2:int},2:array{0:int,1:int,2:int},3:array{0:int,1:int,2:int}} $theme_datacolor';
      //var_dump($arrayofgroupslegend);
      $i = 0;
      $iinstack = 0;
      $oldstacknum = -1;
      while ($i < $nblot) { // Loop on each series
        $foundnegativecolor = 0;
        $usecolorvariantforgroupby = 0;
        // We used a 'group by' and we have too many colors so we generated color variants per
        if (!empty($arrayofgroupslegend) && is_array($arrayofgroupslegend[$i]) && count($arrayofgroupslegend[$i]) > 0) {  // If we used a group by.
          $nbofcolorneeds = count($arrayofgroupslegend);
          $nbofcolorsavailable = count($theme_datacolor);
          if ($nbofcolorneeds > $nbofcolorsavailable) {
            $usecolorvariantforgroupby = 1;
          }
 
          $textoflegend = $arrayofgroupslegend[$i]['legendwithgroup'];
        } else {
          $textoflegend = !empty($this->Legend[$i]) ? $this->Legend[$i] : '';
        }
 
        if ($usecolorvariantforgroupby) {
          $newcolor = $this->datacolor[$arrayofgroupslegend[$i]['stacknum']];
          // If we change the stack
          if ($oldstacknum == -1 || $arrayofgroupslegend[$i]['stacknum'] != $oldstacknum) {
            $iinstack = 0;
          }
 
          //var_dump($iinstack);
          if ($iinstack) {
            // Change color with offset of $iinstack
            //var_dump($newcolor);
            if ($iinstack % 2) {  // We increase aggressiveness of reference color for color 2, 4, 6, ...
              $ratio = min(95, 10 + 10 * $iinstack); // step of 20
              $brightnessratio = min(90, 5 + 5 * $iinstack); // step of 10
            } else {        // We decrease aggressiveness of reference color for color 3, 5, 7, ..
              $ratio = max(-100, -15 * $iinstack + 10); // step of -20
              $brightnessratio = min(90, 10 * $iinstack); // step of 20
            }
            //var_dump('Color '.($iinstack+1).' : '.$ratio.' '.$brightnessratio);
 
            $newcolor = array_values(colorHexToRgb(colorAgressiveness(colorArrayToHex($newcolor), $ratio, $brightnessratio), false, true));
          }
          $oldstacknum = $arrayofgroupslegend[$i]['stacknum'];
 
          $color = 'rgb(' . $newcolor[0] . ', ' . $newcolor[1] . ', ' . $newcolor[2] . ', 0.9)';
          $bordercolor = 'rgb(' . $newcolor[0] . ', ' . $newcolor[1] . ', ' . $newcolor[2] . ')';
        } else { // We do not use a 'group by'
          if (!empty($this->datacolor[$i])) {
            if (is_array($this->datacolor[$i])) {
              $color = 'rgb(' . $this->datacolor[$i][0] . ', ' . $this->datacolor[$i][1] . ', ' . $this->datacolor[$i][2] . ', 0.9)';
            } else {
              $color = $this->datacolor[$i];
            }
          }
          // else: $color will be undefined
          if (!empty($this->bordercolor[$i]) && is_array($this->bordercolor[$i])) {
            $bordercolor = 'rgb(' . $this->bordercolor[$i][0] . ', ' . $this->bordercolor[$i][1] . ', ' . $this->bordercolor[$i][2] . ', 0.9)';
          } else {
            if ($type != 'horizontalBar') {
              $bordercolor = $color;
            } else {
              $bordercolor = $this->bordercolor[$i];
            }
          }
 
          // For negative colors, we invert border and background
          $tmp = str_replace('#', '', $color);
          if (strpos($tmp, '-') !== false) {
            $foundnegativecolor++;
            $bordercolor = str_replace('-', '', $color);
            $color = '#FFFFFF'; // If $val is '-123'
          }
        }
        if ($i > 0) {
          $this->stringtoshow .= ', ';
        }
        $this->stringtoshow .= "\n";
        $this->stringtoshow .= '{';
        $this->stringtoshow .= 'dolibarrinfo: \'y_' . $i . '\', ';
        $this->stringtoshow .= 'label: \'' . dol_escape_js(dol_string_nohtmltag($textoflegend)) . '\', ';
        $this->stringtoshow .= 'pointStyle: \'' . ((!empty($this->type[$i]) && $this->type[$i] == 'linesnopoint') ? 'line' : 'circle') . '\', ';
        $this->stringtoshow .= 'fill: ' . ($type == 'bar' ? 'true' : 'false') . ', ';
        if ($type == 'bar' || $type == 'horizontalBar') {
          $this->stringtoshow .= 'borderWidth: \''.$this->borderwidth.'\', ';
        }
        $this->stringtoshow .= 'borderColor: \'' . $bordercolor . '\', ';
        $this->stringtoshow .= 'borderSkipped: \'' . $this->borderskip . '\', ';
        $this->stringtoshow .= 'backgroundColor: \'' . $color . '\', ';
        if (!empty($arrayofgroupslegend) && !empty($arrayofgroupslegend[$i])) {
          $this->stringtoshow .= 'stack: \'' . $arrayofgroupslegend[$i]['stacknum'] . '\', ';
        }
        $this->stringtoshow .= 'data: [';
 
        $this->stringtoshow .= $this->mirrorGraphValues ? '[-' . $series[$i] . ',' . $series[$i] . ']' : $series[$i];
        $this->stringtoshow .= ']';
        $this->stringtoshow .= '}' . "\n";
 
        $i++;
        $iinstack++;
      }
      $this->stringtoshow .= ']' . "\n";
      $this->stringtoshow .= '}' . "\n";
      $this->stringtoshow .= '});' . "\n";
    }
 
    $this->stringtoshow .= '</script>' . "\n";
  }
 
 
  public function total()
  {
    $value = 0;
    foreach ($this->data as $valarray) {  // Loop on each x
      $value += $valarray[1];
    }
    return $value;
  }
 
  public function show($shownographyet = 0)
  {
    global $langs;
 
    if ($shownographyet) {
      $s = '<div class="nographyet" style="width:' . (preg_match('/%/', $this->width) ? $this->width : $this->width . 'px') . '; height:' . (preg_match('/%/', $this->height) ? $this->height : $this->height . 'px') . ';"></div>';
      $s .= '<div class="nographyettext margintoponly">';
      if (is_numeric($shownographyet)) {
        $s .= $langs->trans("NotEnoughDataYet") . '...';
      } else {
        $s .= $shownographyet . '...';
      }
      $s .= '</div>';
      return $s;
    }
 
    return $this->stringtoshow;
  }
 
 
  public static function getDefaultGraphSizeForStats($direction, $defaultsize = '')
  {
    global $conf;
    $defaultsize = (int) $defaultsize;
 
    if ($direction == 'width') {
      if (empty($conf->dol_optimize_smallscreen)) {
        return ($defaultsize ? $defaultsize : 500);
      } else {
        return (empty($_SESSION['dol_screenwidth']) ? 280 : ($_SESSION['dol_screenwidth'] - 40));
      }
    } elseif ($direction == 'height') {
      return (empty($conf->dol_optimize_smallscreen) ? ($defaultsize ? $defaultsize : 220) : 200);
    }
    return 0;
  }
}