Proyectos de Subversion Moodle

<?php

// This file is part of Moodle - http://moodle.org/

//

// Moodle 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.

//

// Moodle 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 Moodle.  If not, see <http://www.gnu.org/licenses/>.

/**

 * Configurable Reports

 * A Moodle block for creating customizable reports

 * @package blocks

 * @author: Juan leyva <http://www.twitter.com/jleyvadelgado>

 * @date: 2009

 */

require_once("../../../../../config.php");

require_once($CFG->dirroot."/blocks/configurable_reports/locallib.php");

require_login();

$id = required_param('id', PARAM_ALPHANUM);

$reportid = required_param('reportid', PARAM_INT);

if (!$report = $DB->get_record('block_configurable_reports', array('id' => $reportid))) {

    print_error('reportdoesnotexists');

}

$courseid = $report->courseid;

if (!$course = $DB->get_record('course', array('id' => $courseid))) {

    print_error('No such course id');

}

// Force user login in course (SITE or Course).

if ($course->id == SITEID) {

    require_login();

    $context = context_system::instance();

} else {

    require_login($course->id);

    $context = context_course::instance($course->id);

}

require_once($CFG->dirroot.'/blocks/configurable_reports/report.class.php');

require_once($CFG->dirroot.'/blocks/configurable_reports/reports/'.$report->type.'/report.class.php');

$reportclassname = 'report_'.$report->type;

$reportclass = new $reportclassname($report);

if (!$reportclass->check_permissions($USER->id, $context)) {

    print_error("No permissions");

} else {

    $components = cr_unserialize($report->components);

    $graphs = $components['plot']['elements'];

    if (!empty($graphs)) {

        $series = array();

        foreach ($graphs as $g) {

            require_once($CFG->dirroot.'/blocks/configurable_reports/components/plot/'.$g['pluginname'].'/plugin.class.php');

            if ($g['id'] == $id) {

                $classname = 'plugin_'.$g['pluginname'];

                $class = new $classname($report);

                $series = $class->get_series($g['formdata']);

                break;

            }

        }

        if ($g['id'] == $id) {

            include($CFG->dirroot."/blocks/configurable_reports/lib/pChart2/class/pDraw.class.php");

            include($CFG->dirroot."/blocks/configurable_reports/lib/pChart2/class/pData.class.php");

            include($CFG->dirroot."/blocks/configurable_reports/lib/pChart2/class/pImage.class.php");

            // Dataset definition.

            $dataset = new pData();

            $labels = array_shift($series);

            // Invert/Reverse Hebrew labels so it can be rendered using PHP imagettftext()

            // Also find the longest value, to aid with sizing the image.

            $longestlabel = 0;

            foreach ($labels as $key => $value) {

                $labellen = strlen($value);

                $labellen > $longestlabel && $longestlabel = $labellen;

                $invertedlabels[$key] = strip_tags((preg_match("/[\xE0-\xFA]/", iconv("UTF-8", "ISO-8859-8", $value))) ? $reportclass->utf8_strrev($value) : $value);

            }

            $dataset->addPoints($invertedlabels, "Labels");

            $dataset->setAbscissa("Labels");

            $longestlegend = 0;

            foreach ($series as $name => $valueset) {

                $legendlen = strlen($name);

                $legendlen > $longestlegend && $longestlegend = $legendlen;

                $dataset->addPoints($valueset, $name);

            }

            $width = property_exists($g['formdata'], "width") ? $g['formdata']->width : 900;

            $height = property_exists($g['formdata'], "height") ? $g['formdata']->height : 500;

            $colorr = property_exists($g['formdata'], "color_r") ? $g['formdata']->color_r : 170;

            $colorg = property_exists($g['formdata'], "color_g") ? $g['formdata']->color_g : 183;

            $colorb = property_exists($g['formdata'], "color_b") ? $g['formdata']->color_b : 87;

            $padding = 30;

            $fontsize = 8;

            $fontpath = $CFG->dirroot."/blocks/configurable_reports/lib/pChart2/fonts";

            $labeloffset = $longestlabel * ($fontsize / 2);

            $minlabeloffset = $padding + 100;

            $maxlabeloffset = $height / 2 + $padding;

            if ($labeloffset < $minlabeloffset) {

                $labeloffset = $minlabeloffset;

            } else if ($labeloffset > $maxlabeloffset) {

                $labeloffset = $maxlabeloffset;

            }

            $legendoffset = ($longestlegend * ($fontsize / 2));

            $maxlegendoffset = $width / 3 + $padding;

            if ($legendoffset > $maxlegendoffset) {

                $legendoffset = $maxlegendoffset;

            }

            $mypicture = new pImage($width, $height, $dataset);

            $mypicture->setFontProperties(array("FontName" => "$fontpath/calibri.ttf", "FontSize" => $fontsize));

            list($legendwidth, $legendheight) = array_values($mypicture->getLegendSize());

            $legendx = $width - $legendwidth - $padding;

            $legendy = $padding;

            $colnames = array_keys($series);

            $firstcol = $colnames[0];

            $graphx = $padding + (strlen($firstcol) * ($fontsize / 2));

            $graphy = $padding;

            $graphwidth = $legendx - $padding;

            $graphheight = $height - $labeloffset;

            $bgsettings = array('R' => 225, 'G' => 225, 'B' => 225);

            $mypicture->drawFilledRectangle(0, 0, $width + 2, $height + 2, $bgsettings);

            $mypicture->setGraphArea($graphx, $graphy, $graphwidth, $graphheight);

            $scalesettings = array(

                "TickR" => 0,

                "TickG" => 0,

                "TickB" => 0,

                "LabelRotation" => 45,

                "DrawSubTicks" => true

            );

            $mypicture->drawScale($scalesettings);

            $mypicture->setShadow(true, array("X" => 1, "Y" => 1, "R" => 0, "G" => 0, "B" => 0, "Alpha" => 10));

            $chartsettings = array(

                "DisplayValues" => true,

                "Rounded" => true,

                "Surrounding" => 60,

                "DisplayR" => 0,

                "DisplayG" => 0,

                "DisplayB" => 0,

                "DisplayOffset" => 5

            );

            $mypicture->drawBarChart($chartsettings);

            $mypicture->setShadow(false);

            $mypicture->drawLegend($legendx, $legendy);

            $mypicture->stroke();

            // Hack to clear output and send only IMAGE data to browser.

            ob_clean();

        }

    }

}