89c1800868b5022dadd0022e7bad7249d3c791b5
[moodle.git] / report / stats / graph.php
1 <?php
2 // This file is part of Moodle - http://moodle.org/
3 //
4 // Moodle is free software: you can redistribute it and/or modify
5 // it under the terms of the GNU General Public License as published by
6 // the Free Software Foundation, either version 3 of the License, or
7 // (at your option) any later version.
8 //
9 // Moodle is distributed in the hope that it will be useful,
10 // but WITHOUT ANY WARRANTY; without even the implied warranty of
11 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12 // GNU General Public License for more details.
13 //
14 // You should have received a copy of the GNU General Public License
15 // along with Moodle.  If not, see <http://www.gnu.org/licenses/>.
17 /**
18  * This file is part of the User section Moodle
19  *
20  * @package    report
21  * @subpackage stats
22  * @copyright  1999 onwards Martin Dougiamas (http://dougiamas.com)
23  * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
24  */
26 require('../../config.php');
27 require_once($CFG->dirroot.'/report/stats/locallib.php');
28 require_once($CFG->dirroot.'/lib/graphlib.php');
30 $courseid = required_param('course', PARAM_INT);
31 $report   = required_param('report', PARAM_INT);
32 $time     = required_param('time', PARAM_INT);
33 $mode     = required_param('mode', PARAM_INT);
34 $userid   = optional_param('userid', 0, PARAM_INT);
35 $roleid   = optional_param('roleid',0,PARAM_INT);
37 $url = new moodle_url('/report/stats/graph.php', array('course'=>$courseid, 'report'=>$report, 'time'=>$time, 'mode'=>$mode, 'userid'=>$userid, 'roleid'=>$roleid));
38 $PAGE->set_url($url);
40 $course = $DB->get_record("course", array("id"=>$courseid), '*', MUST_EXIST);
41 $coursecontext   = context_course::instance($course->id);
42 $PAGE->set_context($coursecontext);
44 if (!empty($userid)) {
45     $user = $DB->get_record('user', array('id'=>$userid, 'deleted'=>0), '*', MUST_EXIST);
46     $personalcontext = context_user::instance($user->id);
48     if ($USER->id != $user->id and has_capability('moodle/user:viewuseractivitiesreport', $personalcontext)
49             and !is_enrolled($coursecontext, $USER) and is_enrolled($coursecontext, $user)) {
50         //TODO: do not require parents to be enrolled in courses - this is a hack!
51         require_login();
52         $PAGE->set_course($course);
53     } else {
54         require_login($course);
55     }
57     if (!report_stats_can_access_user_report($user, $course, true)) {
58         require_capability('report/stats:view', $coursecontext);
59     }
61 } else {
62     require_capability('report/stats:view', $coursecontext);
63 }
65 add_to_log($course->id, 'course', 'report stats', "report/stats/graph.php?userid=$userid&id=$course->id&mode=$mode&roleid=$roleid", $course->id);
67 stats_check_uptodate($course->id);
69 $param = stats_get_parameters($time,$report,$course->id,$mode);
71 if (!empty($userid)) {
72     $param->table = 'user_'.$param->table;
73 }
75 // TODO: cleanup this ugly mess!
76 $sql = 'SELECT '.((empty($param->fieldscomplete)) ? 'id,roleid,timeend,' : '').$param->fields
77 .' FROM {stats_'.$param->table.'} WHERE '
78 .(($course->id == SITEID) ? '' : ' courseid = '.$course->id.' AND ')
79  .((!empty($userid)) ? ' userid = '.$userid.' AND ' : '')
80  .((!empty($roleid)) ? ' roleid = '.$roleid.' AND ' : '')
81  . ((!empty($param->stattype)) ? ' stattype = \''.$param->stattype.'\' AND ' : '')
82  .' timeend >= '.$param->timeafter
83 .' '.$param->extras
84 .' ORDER BY timeend DESC';
86 $stats = $DB->get_records_sql($sql, $param->params);
88 $stats = stats_fix_zeros($stats,$param->timeafter,$param->table,(!empty($param->line2)),(!empty($param->line3)));
90 $stats = array_reverse($stats);
92 $graph = new graph(750,400);
94 $graph->parameter['legend'] = 'outside-right';
95 $graph->parameter['legend_size'] = 10;
96 $graph->parameter['x_axis_angle'] = 90;
97 $graph->parameter['title'] = false; // moodle will do a nicer job.
98 $graph->y_tick_labels = null;
100 if (empty($param->crosstab)) {
101     foreach ($stats as $stat) {
102         $graph->x_data[] = userdate($stat->timeend,get_string('strftimedate'),$CFG->timezone);
103         $graph->y_data['line1'][] = $stat->line1;
104         if (isset($stat->line2)) {
105             $graph->y_data['line2'][] = $stat->line2;
106         }
107         if (isset($stat->line3)) {
108             $graph->y_data['line3'][] = $stat->line3;
109         }
110     }
111     $graph->y_order = array('line1');
112     $graph->y_format['line1'] = array('colour' => 'blue','line' => 'line','legend' => $param->line1);
113     if (!empty($param->line2)) {
114         $graph->y_order[] = 'line2';
115         $graph->y_format['line2'] = array('colour' => 'green','line' => 'line','legend' => $param->line2);
116     }
117     if (!empty($param->line3)) {
118         $graph->y_order[] = 'line3';
119         $graph->y_format['line3'] = array('colour' => 'red','line' => 'line','legend' => $param->line3);
120     }
121     $graph->y_tick_labels = false;
123 } else {
124     $data = array();
125     $times = array();
126     $roles = array();
127     $missedlines = array();
128     $rolenames = get_all_roles();
129     foreach ($rolenames as $r) {
130         $rolenames[$r->id] = $r->name;
131     }
132     $rolenames = role_fix_names($rolenames, get_context_instance(CONTEXT_COURSE, $course->id));
133     foreach ($stats as $stat) {
134         $data[$stat->roleid][$stat->timeend] = $stat->line1;
135         if (!empty($stat->zerofixed)) {
136             $missedlines[] = $stat->timeend;
137         }
138         if ($stat->roleid != 0) {
139             if (!array_key_exists($stat->roleid,$roles)) {
140                 $roles[$stat->roleid] = $rolenames[$stat->roleid];
141             }
142         } else {
143             if (!array_key_exists($stat->roleid,$roles)) {
144                 $roles[$stat->roleid] = get_string('all');
145             }
146         }
147         if (!array_key_exists($stat->timeend,$times)) {
148             $times[$stat->timeend] = userdate($stat->timeend,get_string('strftimedate'),$CFG->timezone);
149         }
150     }
151     foreach (array_keys($times) as $t) {
152         foreach ($data as $roleid => $stuff) {
153             if (!array_key_exists($t, $stuff)) {
154                 $data[$roleid][$t] = 0;
155             }
156         }
157     }
159     $roleid = 0;
160     krsort($roles); // the same sorting as in table bellow graph
162     $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');
163     $colorindex = 0;
165     foreach ($roles as $roleid=>$rname) {
166         ksort($data[$roleid]);
167         $graph->y_order[] = $roleid+1;
168         if ($roleid) {
169             $color = $colors[$colorindex++];
170             $colorindex = $colorindex % count($colors);
171         } else {
172             $color = 'black';
173         }
174         $graph->y_format[$roleid+1] = array('colour' => $color, 'line' => 'line','legend' => $rname);
175     }
176     foreach (array_keys($data[$roleid]) as $time) {
177         $graph->x_data[] = $times[$time];
178     }
179     foreach ($data as $roleid => $t) {
180         foreach ($t as $time => $data) {
181             $graph->y_data[$roleid+1][] = $data;
182         }
183     }
186 $graph->draw_stack();