moodler
9fa49e22ab
Basically all the Database functions are in lib/datalib.php and the web functions are all in lib/weblib.php, so moodlelib.php is much thinner than it was. Data functions have been extended ... most old calls will still work, but now many more SQL commands can be performed using the datalib functions rather than using SQL. I'm currently moving through the whole tree replacing SQL calls or at least concentrating them in one section of mod/xxx/lib.php Still working on forums, quizzes, surveys, resources. The tree is currently not full working ... some things are half-completed ... will resume tomorrow.
150 lines
4.1 KiB
PHP
150 lines
4.1 KiB
PHP
<?PHP // $Id$
|
|
// Produces a graph of log accesses
|
|
|
|
require("../config.php");
|
|
require("lib.php");
|
|
require("$CFG->libdir/graphlib.php");
|
|
|
|
require_variable($id); // Course ID
|
|
require_variable($type); // Graph Type
|
|
optional_variable($user); // Student ID
|
|
optional_variable($date); // A time of a day (in GMT)
|
|
|
|
if (! $course = get_record("course", "id", $id)) {
|
|
error("Course is misconfigured");
|
|
}
|
|
|
|
require_login($course->id);
|
|
|
|
if (!isteacher($course->id)) {
|
|
if (! ($type == "usercourse.png" and $user == $USER->id) ) {
|
|
error("Sorry, you aren't allowed to see this.");
|
|
}
|
|
}
|
|
|
|
if ($user) {
|
|
if (! $user = get_record("user", "id", $user)) {
|
|
error("Can not find that user");
|
|
}
|
|
}
|
|
|
|
|
|
$timenow = time();
|
|
|
|
switch ($type) {
|
|
case "usercourse.png":
|
|
|
|
$COURSE_MAX_LOG_DISPLAY = $COURSE_MAX_LOG_DISPLAY * 3600 * 24; // seconds
|
|
if ($timenow - $course->startdate > $COURSE_MAX_LOG_DISPLAY) {
|
|
$course->startdate = $timenow - $COURSE_MAX_LOG_DISPLAY;
|
|
}
|
|
$timestart = $coursestart = usergetmidnight($course->startdate);
|
|
|
|
if ((($timenow - $timestart)/86400.0) > 40) {
|
|
$reducedays = 7;
|
|
} else {
|
|
$reducedays = 0;
|
|
}
|
|
|
|
$i = 0;
|
|
while ($timestart < $timenow) {
|
|
$timefinish = $timestart + 86400;
|
|
if ($reducedays) {
|
|
if ($i % $reducedays) {
|
|
$days[$i] = "";
|
|
} else {
|
|
$days[$i] = userdate($timestart, "%a %d %b");
|
|
}
|
|
} else {
|
|
$days[$i] = userdate($timestart, "%a %d %b");
|
|
}
|
|
$logs[$i] = 0;
|
|
$i++;
|
|
$timestart = $timefinish;
|
|
}
|
|
|
|
if ($rawlogs = get_logs_usercourse($user->id, $course->id, $coursestart)) {
|
|
foreach ($rawlogs as $rawlog) {
|
|
$logs[$rawlog->day] = $rawlog->num;
|
|
}
|
|
}
|
|
|
|
$maxlogs = max($logs);
|
|
|
|
|
|
$graph = new graph(750, 400);
|
|
|
|
$a->coursename = $course->shortname;
|
|
$a->username = "$user->firstname $user->lastname";
|
|
$graph->parameter['title'] = get_string("hitsoncourse", "", $a);
|
|
|
|
$graph->x_data = $days;
|
|
|
|
$graph->y_data['logs'] = $logs;
|
|
$graph->y_format['logs'] = array('colour' => 'blue','line' => 'line');
|
|
$graph->y_label_left = get_string("hits");
|
|
$graph->label_size = "6";
|
|
|
|
$graph->y_order = array('logs');
|
|
|
|
|
|
$graph->parameter['shadow'] = 'none';
|
|
|
|
error_reporting(5); // ignore most warnings such as font problems etc
|
|
$graph->draw_stack();
|
|
|
|
break;
|
|
|
|
case "userday.png":
|
|
|
|
if ($date) {
|
|
$daystart = usergetmidnight($date);
|
|
} else {
|
|
$daystart = usergetmidnight(time());
|
|
}
|
|
$dayfinish = $daystart + 86400;
|
|
|
|
for ($i=0; $i<=23; $i++) {
|
|
$logs[$i] = 0;
|
|
$hour = $daystart + $i * 3600;
|
|
$hh = (int)userdate($hour, "%I");
|
|
$hours[$i] = userdate($hour, "$hh %p");
|
|
}
|
|
|
|
if ($rawlogs = get_logs_userday($user->id, $course->id, $daystart)) {
|
|
foreach ($rawlogs as $rawlog) {
|
|
$logs[$rawlog->hour] = $rawlog->num;
|
|
}
|
|
}
|
|
|
|
$maxlogs = max($logs);
|
|
|
|
$graph = new graph(750, 400);
|
|
|
|
$a->coursename = $course->shortname;
|
|
$a->username = "$user->firstname $user->lastname";
|
|
$graph->parameter['title'] = get_string("hitsoncoursetoday", "", $a);
|
|
|
|
$graph->x_data = $hours;
|
|
|
|
$graph->y_data['logs'] = $logs;
|
|
$graph->y_format['logs'] = array('colour' => 'blue','bar' => 'fill','legend' =>'actual','bar_size' => 0.9);
|
|
$graph->y_label_left = get_string("hits");
|
|
$graph->label_size = "6";
|
|
|
|
$graph->y_order = array('logs');
|
|
|
|
|
|
$graph->parameter['shadow'] = 'none';
|
|
|
|
error_reporting(5); // ignore most warnings such as font problems etc
|
|
$graph->draw_stack();
|
|
|
|
break;
|
|
|
|
default:
|
|
break;
|
|
}
|
|
|
|
?>
|