/**
  * Build chart for active sessions
  * 
  * @param array $a_data
  * @param string $a_title
  * @param int $a_scale
  * @param array $a_measure
  * @return string 
  */
 protected function getChart($a_data, $a_title, $a_scale = self::SCALE_DAY, $a_measure = null)
 {
     global $lng;
     include_once "Services/Chart/classes/class.ilChart.php";
     $chart = new ilChart("objstacc", 700, 500);
     $chart->setYAxisToInteger(true);
     $legend = new ilChartLegend();
     $chart->setLegend($legend);
     if (!$a_measure) {
         $a_measure = array("min", "avg", "max");
     } else {
         if (!is_array($a_measure)) {
             $a_measure = array($a_measure);
         }
     }
     $colors_map = array("min" => "#00cc00", "avg" => "#0000cc", "max" => "#cc00cc");
     $colors = $act_line = array();
     foreach ($a_measure as $measure) {
         $act_line[$measure] = new ilChartData("lines");
         $act_line[$measure]->setLineSteps(true);
         $act_line[$measure]->setLabel($lng->txt("trac_session_active_" . $measure));
         $colors[] = $colors_map[$measure];
     }
     if ($a_scale != self::SCALE_PERIODIC_WEEK) {
         $max_line = new ilChartData("lines");
         $max_line->setLabel($lng->txt("session_max_count"));
         $colors[] = "#cc0000";
     }
     $chart->setColors($colors);
     $chart_data = $this->adaptDataToScale($a_scale, $a_data, 700);
     unset($a_data);
     $scale = ceil(sizeof($chart_data) / 5);
     $labels = array();
     foreach ($chart_data as $idx => $item) {
         $date = $item["slot_begin"];
         if ($a_scale == self::SCALE_PERIODIC_WEEK || !($idx % ceil($scale))) {
             switch ($a_scale) {
                 case self::SCALE_DAY:
                     $labels[$date] = date("H:i", $date);
                     break;
                 case self::SCALE_WEEK:
                     $labels[$date] = date("d.m. H", $date) . "h";
                     break;
                 case self::SCALE_MONTH:
                     $labels[$date] = date("d.m.", $date);
                     break;
                 case self::SCALE_YEAR:
                     $labels[$date] = date("Y-m", $date);
                     break;
                 case self::SCALE_PERIODIC_WEEK:
                     $day = substr($date, 0, 1);
                     $hour = substr($date, 1, 2);
                     $min = substr($date, 3, 2);
                     // build ascending scale from day values
                     $day_value = ($day - 1) * 60 * 60 * 24;
                     $date = $day_value + $hour * 60 * 60 + $min * 60;
                     // 6-hour interval labels
                     if ($hour != $old_hour && $hour && $hour % 6 == 0) {
                         $labels[$date] = $hour;
                         $old_hour = $hour;
                     }
                     // day label
                     if ($day != $old_day) {
                         $labels[$date] = ilCalendarUtil::_numericDayToString($day, false);
                         $old_day = $day;
                     }
                     break;
             }
         }
         foreach ($a_measure as $measure) {
             $value = (int) $item["active_" . $measure];
             $act_line[$measure]->addPoint($date, $value);
         }
         if ($a_scale != self::SCALE_PERIODIC_WEEK) {
             $max_line->addPoint($date, (int) $item["max_sessions"]);
         }
     }
     foreach ($act_line as $line) {
         $chart->addData($line);
     }
     if ($a_scale != self::SCALE_PERIODIC_WEEK) {
         $chart->addData($max_line);
     }
     $chart->setTicks($labels, null, true);
     return $chart->getHTML();
 }
 protected function renderChart($a_id, $a_variables)
 {
     include_once "Services/Chart/classes/class.ilChart.php";
     $chart = new ilChart($a_id, 700, 400);
     $legend = new ilChartLegend();
     $chart->setLegend($legend);
     $chart->setYAxisToInteger(true);
     $data = new ilChartData("bars");
     $data->setLabel($this->lng->txt("users_answered"));
     $data->setBarOptions(0.5, "center");
     $max = 5;
     if (sizeof($a_variables) <= $max) {
         if ($a_variables) {
             $labels = array();
             foreach ($a_variables as $idx => $points) {
                 $data->addPoint($idx, $points["selected"]);
                 $labels[$idx] = $idx + 1 . ". " . ilUtil::prepareFormOutput($points["title"]);
             }
             $chart->addData($data);
             $chart->setTicks($labels, false, true);
         }
         return "<div style=\"margin:10px\">" . $chart->getHTML() . "</div>";
     } else {
         $chart_legend = array();
         $labels = array();
         foreach ($a_variables as $idx => $points) {
             $data->addPoint($idx, $points["selected"]);
             $labels[$idx] = $idx + 1 . ".";
             $chart_legend[$idx + 1] = ilUtil::prepareFormOutput($points["title"]);
         }
         $chart->addData($data);
         $chart->setTicks($labels, false, true);
         $legend = "<table>";
         foreach ($chart_legend as $number => $caption) {
             $legend .= "<tr valign=\"top\"><td>" . $number . ".</td><td>" . $caption . "</td></tr>";
         }
         $legend .= "</table>";
         return "<div style=\"margin:10px\"><table><tr valign=\"bottom\"><td>" . $chart->getHTML() . "</td><td class=\"small\" style=\"padding-left:15px\">" . $legend . "</td></tr></table></div>";
     }
 }