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>
 *
 * 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 = 'chart'; // 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 $hideXGrid = 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; // Objet Graph (Artichow, Phplot...)

  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),...)

  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;

    $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);

    $color_file = DOL_DOCUMENT_ROOT . '/theme/' . $conf->theme . '/theme_vars.inc.php';
    if (is_readable($color_file)) {
      include_once $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 = (empty($conf->global->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;
  }

  // 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;
  }

  // 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 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;

    $k = 0;
    $vals = array();

    $nblines = count($this->data);
    $nbvalues = (empty($this->data[0]) ? 0 : count($this->data[0]) - 1);

    for ($j = 0; $j < $nblines; $j++) {
      for ($i = 0; $i < $nbvalues; $i++) {
        $vals[$k] = $this->data[$j][$i + 1];
        $k++;
      }
    }
    rsort($vals);
    return $vals[0];
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function GetMinValueInData()
  {
    // phpcs:enable
    if (!is_array($this->data)) return 0;

    $k = 0;
    $vals = array();

    $nblines = count($this->data);
    $nbvalues = (empty($this->data[0]) ? 0 : count($this->data[0]) - 1);

    for ($j = 0; $j < $nblines; $j++) {
      for ($i = 0; $i < $nbvalues; $i++) {
        $vals[$k] = $this->data[$j][$i + 1];
        $k++;
      }
    }
    sort($vals);
    return $vals[0];
  }

  // 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 $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;
    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 $conf, $langs;

    dol_syslog(get_class($this) . "::draw_jflot this->type=" . join(',', $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;
    $serie = array();
    while ($i < $nblot) // Loop on each serie
    {
      $values = array(); // Array with horizontal y values (specific values of a serie) for each abscisse x
      $serie[$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)) $serie[$i] .= 'd' . $i . '.push({"label":"' . dol_escape_js($legends[$x]) . '", "data":' . $y . '});' . "\n";
        }
      } else {
        foreach ($values as $x => $y) {
          if (isset($y)) $serie[$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 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 .= '<!-- Serie ' . $i . ' -->' . "\n";
        $this->stringtoshow .= $serie[$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: ' . (!empty($data['seriescolor']) ? json_encode($data['seriescolor']) : json_encode($datacolor)) . ',';
      }
      $this->stringtoshow .= 'legend: {show: ' . ($showlegend ? 'true' : 'false') . ', position: \'ne\' }
    });
    }' . "\n";
    }
    // Other cases, graph of type 'bars', 'lines'
    else {
      // 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 $conf, $langs;

    dol_syslog(get_class($this) . "::draw_chart this->type=" . join(',', $this->type) . " this->MaxValue=" . $this->MaxValue);

    if (empty($this->width) && empty($this->height)) {
      print 'Error width or height not set';
      return;
    }

    $showlegend = $this->showlegend;

    $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

    $serie = array();
    $arrayofgroupslegend = array();
    //var_dump($this->data);

    $i = $firstlot;
    while ($i < $nblot) // Loop on each serie
    {
      $values = array(); // Array with horizontal y values (specific values of a serie) for each abscisse x (with x=0,1,2,...)
      $serie[$i] = "";

      // Fill array $values
      $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 (!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)) {
          $serie[$i] .= ($j > 0 ? ", " : "") . $y;
        } else {
          $serie[$i] .= ($j > 0 ? ", " : "") . 'null';
        }
        $j++;
      }

      $values = null; // Free mem
      $i++;
    }
    //var_dump($serie);
    //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 grah
    $cssfordiv = 'dolgraphchart';
    if (isset($this->type[$firstlot])) $cssfordiv .= ' dolgraphchar' . $this->type[$firstlot];
    $this->stringtoshow .= '<div id="placeholder_' . $tag . '" style="min-height: ' . $this->height . (strpos($this->height, '%') > 0 ? '' : 'px') . '; width:' . $this->width . (strpos($this->width, '%') > 0 ? '' : 'px') . ';" class="' . $cssfordiv . ' dolgraph' . (empty($dolxaxisvertical) ? '' : ' ' . $dolxaxisvertical) . (empty($this->cssprefix) ? '' : ' dolgraph' . $this->cssprefix) . ' center"><canvas id="canvas_' . $tag . '"></canvas></div>' . "\n";

    $this->stringtoshow .= '<script 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 .= $serie[$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";
      $legendMaxLines = 0; // Does not work
      if (empty($showlegend)) {
        $this->stringtoshow .= 'legend: { display: false }, ';
      } else {
        $this->stringtoshow .= 'legend: { position: \'' . ($showlegend == 2 ? 'right' : 'top') . '\'';
        if (!empty($legendMaxLines)) {
          $this->stringtoshow .= ', maxLines: ' . $legendMaxLines . '';
        }
        $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 earch arc
      $this->stringtoshow .= 'backgroundColor: [';
      $i = 0;
      $foundnegativecolor = 0;
      foreach ($legends as $val)  // Loop on each serie
      {
        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 = '#FFFFFF'; // 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 serie
        {
          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 serie
      {
        if ($i > 0) $this->stringtoshow .= ', ';
        $this->stringtoshow .= "'" . dol_escape_js(dol_trunc($val, 32)) . "'";
        $i++;
      }

      $this->stringtoshow .= '],
          datasets: [';
      $i = 0;
      $i = 0;
      while ($i < $nblot) // Loop on each serie
      {
        $color = 'rgb(' . $this->datacolor[$i][0] . ', ' . $this->datacolor[$i][1] . ', ' . $this->datacolor[$i][2] . ')';
        //$color = (!empty($data['seriescolor']) ? json_encode($data['seriescolor']) : json_encode($datacolor));

        if ($i > 0) $this->stringtoshow .= ', ' . "\n";
        $this->stringtoshow .= '{' . "\n";
        //$this->stringtoshow .= 'borderColor: \''.$color.'\', ';
        //$this->stringtoshow .= 'backgroundColor: \''.$color.'\', ';
        $this->stringtoshow .= '  data: [' . $serie[$i] . ']';
        $this->stringtoshow .= '}' . "\n";
        $i++;
      }
      $this->stringtoshow .= ']' . "\n";
      $this->stringtoshow .= '}' . "\n";
      $this->stringtoshow .= '});' . "\n";
    }
    // Other cases, graph of type 'bars', 'lines', 'linesnopoint'
    else {
      $type = 'bar';

      $isfunnel = false;
      if ($file == 'idgraphleadfunnel') $isfunnel = true;

      if (!isset($this->type[$firstlot]) || $this->type[$firstlot] == 'bars') $type = 'bar';
      if (isset($this->type[$firstlot]) && $this->type[$firstlot] == 'horizontalbars') $type = 'horizontalBar';
      if (isset($this->type[$firstlot]) && ($this->type[$firstlot] == 'lines' || $this->type[$firstlot] == 'linesnopoint')) $type = 'line';

      $this->stringtoshow .= 'var options = { maintainAspectRatio: false, aspectRatio: 2.5, ';
      if (empty($showlegend)) {
        $this->stringtoshow .= 'legend: { display: false }, ';
      }
      $this->stringtoshow .= 'scales: { xAxes: [{ ';
      if ($isfunnel) {  // FIXME Remove isfunnel by introducing a method hideXValues() on dolgraph
        $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 .= ', yAxes: [{ 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 ($isfunnel) {
        $this->stringtoshow .= ', tooltips: { mode: \'nearest\',
          callbacks: {
            title: function(tooltipItem, data) {
              return data.datasets[tooltipItem[0].datasetIndex].label;
            },
            label: function(tooltipItem, data) {
              return data.datasets[tooltipItem.datasetIndex].data[0][1];
            }
          }
        },';
      }
      $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;
      if (!$isfunnel) {
        foreach ($legends as $val)  // Loop on each serie
          {
          if ($i > 0) $this->stringtoshow .= ', ';
          $this->stringtoshow .= "'".dol_escape_js(dol_trunc($val, 32))."'";
          $i++;
        }
      }

      //var_dump($arrayofgroupslegend);

      $this->stringtoshow .= '],
          datasets: [';

      global $theme_datacolor;
      //var_dump($arrayofgroupslegend);
      $i = 0; $iinstack = 0;
      $oldstacknum = -1;
      while ($i < $nblot) // Loop on each serie
      {
        $foundnegativecolor = 0;
        $usecolorvariantforgroupby = 0;
        // We used a 'group by' and we have too many colors so we generated color variants per
        if (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 = $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 agressiveness 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 agressiveness 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 ($isfunnel) {
            $bordercolor == 'null';
            if (is_array($this->datacolor[$i])) {
              $color = 'rgb(' . $this->datacolor[$i][0] . ', ' . $this->datacolor[$i][1] . ', ' . $this->datacolor[$i][2] . ', 0.9)'; // If datacolor is array(R, G, B)
            } else {
              // TODO FIXME This logic must be in the caller that set $this->datacolor
              $tmp = str_replace('#', '', $this->datacolor[$i]);
              if (strpos($tmp, '-') !== false) {
                $foundnegativecolor++;
                $color = '#FFFFFF'; // If $val is '-123'
              } else {
                $color = "#" . $tmp; // If $val is '123' or '#123'
                $bordercolor = $color;
              }
              if ($foundnegativecolor) {
                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) $bordercolor = '#' . str_replace('-', '', $tmp); // If $val is '-123'
                  else $bordercolor = 'null'; // If $val is '123' or '#123'
                }
              }
            }
            $bordercolor == 'null' ? "'rgba(0,0,0,0.2)'" : "'" . $bordercolor . "'";
          } else {
            $color = 'rgb('.$this->datacolor[$i][0].', '.$this->datacolor[$i][1].', '.$this->datacolor[$i][2].', 0.9)';
            $bordercolor = $color;
            //$color = (!empty($data['seriescolor']) ? json_encode($data['seriescolor']) : json_encode($datacolor));
          }
        }

        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: \'' . ($this->type[$i] == 'linesnopoint' ? 'line' : 'circle') . '\', ';
        $this->stringtoshow .= 'fill: ' . ($type == 'bar' ? 'true' : 'false') . ', ';
        if ($isfunnel) {
          $this->stringtoshow .= 'borderWidth: \'2\', ';
        } elseif ($type == 'bar' || $type == 'horizontalBar') {
          $this->stringtoshow .= 'borderWidth: \'1\', ';
        }
        $this->stringtoshow .= 'borderColor: \'' . $bordercolor . '\', ';
        $this->stringtoshow .= 'backgroundColor: \'' . $color . '\', ';
        if ($arrayofgroupslegend[$i]) $this->stringtoshow .= 'stack: \'' . $arrayofgroupslegend[$i]['stacknum'] . '\', ';
        $this->stringtoshow .='data: [';
        if ($isfunnel) {
          $this->stringtoshow .= '['.-$serie[$i].','.$serie[$i].']';
        } else {
          $this->stringtoshow .= $serie[$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;

    if ($direction == 'width')
    {
      if (empty($conf->dol_optimize_smallscreen)) return ($defaultsize ? $defaultsize : '500');
      else return (empty($_SESSION['dol_screen_width']) ? '280' : ($_SESSION['dol_screen_width'] - 40));
    }
    if ($direction == 'height')
    {
      return (empty($conf->dol_optimize_smallscreen) ? ($defaultsize ? $defaultsize : '200') : '160');
    }
    return 0;
  }
}