/course/report/stats/graph.php
PHP | 183 lines | 136 code | 25 blank | 22 comment | 25 complexity | 44b531d53795b9af547607edbdae559f MD5 | raw file
- <?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/>.
- /**
- * This file is part of the User section Moodle
- *
- * @copyright 1999 Martin Dougiamas http://dougiamas.com
- * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
- * @package course
- */
- require_once('../../../config.php');
- require_once($CFG->dirroot.'/lib/statslib.php');
- require_once($CFG->dirroot.'/lib/graphlib.php');
- $courseid = required_param('course', PARAM_INT);
- $report = required_param('report', PARAM_INT);
- $time = required_param('time', PARAM_INT);
- $mode = required_param('mode', PARAM_INT);
- $userid = optional_param('userid', 0, PARAM_INT);
- $roleid = optional_param('roleid',0,PARAM_INT);
- $url = new moodle_url('/course/report/stats/graph.php', array('course'=>$courseid, 'report'=>$report, 'time'=>$time, 'mode'=>$mode));
- if ($userid !== 0) {
- $url->param('userid', $userid);
- }
- if ($roleid !== 0) {
- $url->param('roleid', $roleid);
- }
- $PAGE->set_url($url);
- if (!$course = $DB->get_record("course", array("id"=>$courseid))) {
- print_error("invalidcourseid");
- }
- if (!empty($userid)) {
- if (!$user = $DB->get_record('user', array('id'=>$userid))) {
- print_error("nousers");
- }
- }
- require_login($course);
- $context = get_context_instance(CONTEXT_COURSE, $course->id);
- if (!$course->showreports or $USER->id != $userid) {
- require_capability('coursereport/stats:view', $context);
- }
- stats_check_uptodate($course->id);
- $param = stats_get_parameters($time,$report,$course->id,$mode);
- if (!empty($userid)) {
- $param->table = 'user_'.$param->table;
- }
- // TODO: cleanup this ugly mess!
- $sql = 'SELECT '.((empty($param->fieldscomplete)) ? 'id,roleid,timeend,' : '').$param->fields
- .' FROM {stats_'.$param->table.'} WHERE '
- .(($course->id == SITEID) ? '' : ' courseid = '.$course->id.' AND ')
- .((!empty($userid)) ? ' userid = '.$userid.' AND ' : '')
- .((!empty($roleid)) ? ' roleid = '.$roleid.' AND ' : '')
- . ((!empty($param->stattype)) ? ' stattype = \''.$param->stattype.'\' AND ' : '')
- .' timeend >= '.$param->timeafter
- .' '.$param->extras
- .' ORDER BY timeend DESC';
- $stats = $DB->get_records_sql($sql, $param->params);
- $stats = stats_fix_zeros($stats,$param->timeafter,$param->table,(!empty($param->line2)),(!empty($param->line3)));
- $stats = array_reverse($stats);
- $graph = new graph(750,400);
- $graph->parameter['legend'] = 'outside-right';
- $graph->parameter['legend_size'] = 10;
- $graph->parameter['x_axis_angle'] = 90;
- $graph->parameter['title'] = false; // moodle will do a nicer job.
- $graph->y_tick_labels = null;
- if (empty($param->crosstab)) {
- foreach ($stats as $stat) {
- $graph->x_data[] = userdate($stat->timeend,get_string('strftimedate'),$CFG->timezone);
- $graph->y_data['line1'][] = $stat->line1;
- if (isset($stat->line2)) {
- $graph->y_data['line2'][] = $stat->line2;
- }
- if (isset($stat->line3)) {
- $graph->y_data['line3'][] = $stat->line3;
- }
- }
- $graph->y_order = array('line1');
- $graph->y_format['line1'] = array('colour' => 'blue','line' => 'line','legend' => $param->line1);
- if (!empty($param->line2)) {
- $graph->y_order[] = 'line2';
- $graph->y_format['line2'] = array('colour' => 'green','line' => 'line','legend' => $param->line2);
- }
- if (!empty($param->line3)) {
- $graph->y_order[] = 'line3';
- $graph->y_format['line3'] = array('colour' => 'red','line' => 'line','legend' => $param->line3);
- }
- $graph->y_tick_labels = false;
- } else {
- $data = array();
- $times = array();
- $roles = array();
- $missedlines = array();
- $rolenames = get_all_roles();
- foreach ($rolenames as $r) {
- $rolenames[$r->id] = $r->name;
- }
- $rolenames = role_fix_names($rolenames, get_context_instance(CONTEXT_COURSE, $course->id));
- foreach ($stats as $stat) {
- $data[$stat->roleid][$stat->timeend] = $stat->line1;
- if (!empty($stat->zerofixed)) {
- $missedlines[] = $stat->timeend;
- }
- if ($stat->roleid != 0) {
- if (!array_key_exists($stat->roleid,$roles)) {
- $roles[$stat->roleid] = $rolenames[$stat->roleid];
- }
- } else {
- if (!array_key_exists($stat->roleid,$roles)) {
- $roles[$stat->roleid] = get_string('all');
- }
- }
- if (!array_key_exists($stat->timeend,$times)) {
- $times[$stat->timeend] = userdate($stat->timeend,get_string('strftimedate'),$CFG->timezone);
- }
- }
- foreach (array_keys($times) as $t) {
- foreach ($data as $roleid => $stuff) {
- if (!array_key_exists($t, $stuff)) {
- $data[$roleid][$t] = 0;
- }
- }
- }
- $roleid = 0;
- krsort($roles); // the same sorting as in table bellow graph
- $colors = array('green', 'blue', 'red', 'purple', 'yellow', 'olive', 'navy', 'maroon', 'gray', 'ltred', 'ltltred', 'ltgreen', 'ltltgreen', 'orange', 'ltorange', 'ltltorange', 'lime', 'ltblue', 'ltltblue', 'fuchsia', 'aqua', 'grayF0', 'grayEE', 'grayDD', 'grayCC', 'gray33', 'gray66', 'gray99');
- $colorindex = 0;
- foreach ($roles as $roleid=>$rname) {
- ksort($data[$roleid]);
- $graph->y_order[] = $roleid+1;
- if ($roleid) {
- $color = $colors[$colorindex++];
- $colorindex = $colorindex % count($colors);
- } else {
- $color = 'black';
- }
- $graph->y_format[$roleid+1] = array('colour' => $color, 'line' => 'line','legend' => $rname);
- }
- foreach (array_keys($data[$roleid]) as $time) {
- $graph->x_data[] = $times[$time];
- }
- foreach ($data as $roleid => $t) {
- foreach ($t as $time => $data) {
- $graph->y_data[$roleid+1][] = $data;
- }
- }
- }
- $graph->draw_stack();