AutorÃa | Ultima modificación | Ver Log |
<?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/>./*** Reports implementation** @package report* @subpackage stats* @copyright 1999 onwards Martin Dougiamas (http://dougiamas.com)* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later*/defined('MOODLE_INTERNAL') || die;require_once(__DIR__.'/lib.php');require_once($CFG->dirroot.'/lib/statslib.php');function report_stats_mode_menu($course, $mode, $time, $url) {global $CFG, $OUTPUT;/*$reportoptions = stats_get_report_options($course->id, $mode);$timeoptions = report_stats_timeoptions($mode);if (empty($timeoptions)) {throw new \moodle_exception('nostatstodisplay', '', $CFG->wwwroot.'/course/view.php?id='.$course->id);}*/$options = array();$options[STATS_MODE_GENERAL] = get_string('statsmodegeneral');$options[STATS_MODE_DETAILED] = get_string('statsmodedetailed');if (has_capability('report/stats:view', context_system::instance())) {$options[STATS_MODE_RANKED] = get_string('reports');}$popupurl = $url."?course=$course->id&time=$time";$select = new single_select(new moodle_url($popupurl), 'mode', $options, $mode, null);$select->set_label(get_string('reports'), array('class' => 'accesshide'));$select->formid = 'switchmode';return $OUTPUT->render($select);}function report_stats_timeoptions($mode) {global $CFG, $DB;if ($mode == STATS_MODE_DETAILED) {$earliestday = $DB->get_field_sql('SELECT MIN(timeend) FROM {stats_user_daily}');$earliestweek = $DB->get_field_sql('SELECT MIN(timeend) FROM {stats_user_weekly}');$earliestmonth = $DB->get_field_sql('SELECT MIN(timeend) FROM {stats_user_monthly}');} else {$earliestday = $DB->get_field_sql('SELECT MIN(timeend) FROM {stats_daily}');$earliestweek = $DB->get_field_sql('SELECT MIN(timeend) FROM {stats_weekly}');$earliestmonth = $DB->get_field_sql('SELECT MIN(timeend) FROM {stats_monthly}');}if (empty($earliestday)) $earliestday = time();if (empty($earliestweek)) $earliestweek = time();if (empty($earliestmonth)) $earliestmonth = time();$now = stats_get_base_daily();$lastweekend = stats_get_base_weekly();$lastmonthend = stats_get_base_monthly();return stats_get_time_options($now,$lastweekend,$lastmonthend,$earliestday,$earliestweek,$earliestmonth);}function report_stats_report($course, $report, $mode, $user, $roleid, $time) {global $CFG, $DB, $OUTPUT;if ($user) {$userid = $user->id;} else {$userid = 0;}$fields = 'c.id,c.shortname,c.visible';$ccselect = ', ' . context_helper::get_preload_record_columns_sql('ctx');$ccjoin = "LEFT JOIN {context} ctx ON (ctx.instanceid = c.id AND ctx.contextlevel = :contextlevel)";$sortstatement = 'ORDER BY c.shortname';$sql = "SELECT $fields $ccselect FROM {course} c $ccjoin $sortstatement";$params = array();$params['contextlevel'] = CONTEXT_COURSE;$courses = $DB->get_recordset_sql($sql, $params);$courseoptions = array();foreach ($courses as $c) {context_helper::preload_from_record($c);$context = context_course::instance($c->id);if (has_capability('report/stats:view', $context)) {if (isset($c->visible) && $c->visible <= 0) {// For hidden courses, require visibility check.if (!has_capability('moodle/course:viewhiddencourses', $context)) {continue;}}$courseoptions[$c->id] = format_string($c->shortname, true, array('context' => $context));}}$courses->close();$reportoptions = stats_get_report_options($course->id, $mode);$timeoptions = report_stats_timeoptions($mode);if (empty($timeoptions)) {throw new \moodle_exception('nostatstodisplay', '', $CFG->wwwroot.'/course/view.php?id='.$course->id);}$users = array();$table = new html_table();$table->width = 'auto';if ($mode == STATS_MODE_DETAILED) {$param = stats_get_parameters($time, null, $course->id, $mode, $roleid); // We only care about the table and the time string (if we have time).list($sort, $moreparams) = users_order_by_sql('u');$moreparams['courseid'] = $course->id;$userfieldsapi = \core_user\fields::for_userpic()->including('idnumber');$fields = $userfieldsapi->get_sql('u', false, '', '', false)->selects;$sql = "SELECT DISTINCT $fieldsFROM {stats_user_{$param->table}} sJOIN {user} u ON u.id = s.useridWHERE courseid = :courseid";if (!empty($param->stattype)) {$sql .= " AND stattype = :stattype";$moreparams['stattype'] = $param->stattype;}if (!empty($time)) {$sql .= " AND timeend >= :timeafter";$moreparams['timeafter'] = $param->timeafter;}$sql .= " ORDER BY {$sort}";if (!$us = $DB->get_records_sql($sql, array_merge($param->params, $moreparams))) {throw new \moodle_exception('nousers');}foreach ($us as $u) {$users[$u->id] = fullname($u, true);}$table->align = array('left','left','left','left','left','left','left','left');$table->data[] = array(html_writer::label(get_string('course'), 'menucourse'), html_writer::select($courseoptions, 'course', $course->id, false),html_writer::label(get_string('users'), 'menuuserid'), html_writer::select($users, 'userid', $userid, false),html_writer::label(get_string('statsreporttype'), 'menureport'), html_writer::select($reportoptions, 'report', ($report == 5) ? $report.$roleid : $report, false),html_writer::label(get_string('statstimeperiod'), 'menutime'), html_writer::select($timeoptions, 'time', $time, false),'<input type="submit" class="btn btn-secondary" value="'.get_string('view').'" />');} else if ($mode == STATS_MODE_RANKED) {$table->align = array('left','left','left','left','left','left');$table->data[] = array(html_writer::label(get_string('statsreporttype'), 'menureport'), html_writer::select($reportoptions, 'report', ($report == 5) ? $report.$roleid : $report, false),html_writer::label(get_string('statstimeperiod'), 'menutime'), html_writer::select($timeoptions, 'time', $time, false),'<input type="submit" class="btn btn-secondary" value="'.get_string('view').'" />');} else if ($mode == STATS_MODE_GENERAL) {$table->align = array('left','left','left','left','left','left','left');$table->data[] = array(html_writer::label(get_string('course'), 'menucourse'), html_writer::select($courseoptions, 'course', $course->id, false),html_writer::label(get_string('statsreporttype'), 'menureport'), html_writer::select($reportoptions, 'report', ($report == 5) ? $report.$roleid : $report, false),html_writer::label(get_string('statstimeperiod'), 'menutime'), html_writer::select($timeoptions, 'time', $time, false),'<input type="submit" class="btn btn-secondary" value="'.get_string('view').'" />');}echo '<form action="index.php" method="post">'."\n".'<div>'."\n".'<input type="hidden" name="mode" value="'.$mode.'" />'."\n";echo html_writer::table($table);echo '</div>';echo '</form>';// Display the report if:// - A report has been selected.// - A time frame has been provided// - If the mode is not detailed OR a valid user has been selected.if (!empty($report) && !empty($time) && ($mode !== STATS_MODE_DETAILED || !empty($userid))) {if ($report == STATS_REPORT_LOGINS && $course->id != SITEID) {throw new \moodle_exception('reportnotavailable');}$param = stats_get_parameters($time, $report, $course->id, $mode, $roleid);if ($mode == STATS_MODE_DETAILED) {$param->table = 'user_'.$param->table;}if (!empty($param->sql)) {$sql = $param->sql;} else {//TODO: lceanup 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);if (empty($stats)) {echo $OUTPUT->notification(get_string('statsnodata'));} else {$stats = stats_fix_zeros($stats,$param->timeafter,$param->table,(!empty($param->line2)));$rolename = '';$userdisplayname = '';$coursecontext = context_course::instance($course->id);if (!empty($roleid) && $role = $DB->get_record('role', ['id' => $roleid])) {$rolename = ' ' . role_get_name($role, $coursecontext);}if (!empty($user)) {$userdisplayname = ' ' . fullname($user, true);}echo $OUTPUT->heading(format_string($course->shortname) .' - ' .get_string('statsreport' . $report) .$rolename .$userdisplayname, 3);if ($mode == STATS_MODE_DETAILED) {report_stats_print_chart($course->id, $report, $time, $mode, $userid);} else {report_stats_print_chart($course->id, $report, $time, $mode, null, $roleid);}$table = new html_table();$table->align = array('left','center','center','center');$param->table = str_replace('user_','',$param->table);switch ($param->table) {case 'daily' : $period = get_string('day'); break;case 'weekly' : $period = get_string('week'); break;case 'monthly': $period = get_string('month', 'form'); break;default : $period = '';}$table->head = array(get_string('periodending','moodle',$period));if (empty($param->crosstab)) {$table->head[] = $param->line1;if (!empty($param->line2)) {$table->head[] = $param->line2;}}if (!file_exists($CFG->dirroot.'/report/log/index.php')) {// bad luck, we can not link other report} else if (empty($param->crosstab)) {foreach ($stats as $stat) {$a = array(userdate($stat->timeend - DAYSECS, get_string('strftimedate'), $CFG->timezone),$stat->line1);if (isset($stat->line2)) {$a[] = $stat->line2;}if (empty($CFG->loglifetime) || ($stat->timeend-(60*60*24)) >= (time()-60*60*24*$CFG->loglifetime)) {if (has_capability('report/log:view', context_course::instance($course->id))) {$a[] = '<a href="'.$CFG->wwwroot.'/report/log/index.php?id='.$course->id.'&chooselog=1&showusers=1&showcourses=1&user='.$userid.'&date='.usergetmidnight($stat->timeend-(60*60*24)).'">'.get_string('course').' ' .get_string('logs').'</a> ';} else {$a[] = '';}}$table->data[] = $a;}} else {$data = array();$roles = array();$times = array();$missedlines = array();$coursecontext = context_course::instance($course->id);$rolenames = get_viewable_roles($coursecontext);foreach ($stats as $stat) {if (!empty($stat->zerofixed)) {$missedlines[] = $stat->timeend;}$data[$stat->timeend][$stat->roleid] = $stat->line1;if ($stat->roleid != 0) {if (!array_key_exists($stat->roleid, $roles) && array_key_exists($stat->roleid, $rolenames)) {$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 - DAYSECS, get_string('strftimedate'),$CFG->timezone);}}foreach ($data as $time => $rolesdata) {if (in_array($time,$missedlines)) {$rolesdata = array();foreach ($roles as $roleid => $guff) {$rolesdata[$roleid] = 0;}}else {foreach (array_keys($roles) as $r) {if (!array_key_exists($r, $rolesdata)) {$rolesdata[$r] = 0;}}}krsort($rolesdata);$row = array_merge(array($times[$time]),$rolesdata);if (empty($CFG->loglifetime) || ($stat->timeend-(60*60*24)) >= (time()-60*60*24*$CFG->loglifetime)) {if (has_capability('report/log:view', context_course::instance($course->id))) {$row[] = '<a href="'.$CFG->wwwroot.'/report/log/index.php?id='.$course->id.'&chooselog=1&showusers=1&showcourses=1&user='.$userid.'&date='.usergetmidnight($time-(60*60*24)).'">'.get_string('course').' ' .get_string('logs').'</a> ';} else {$row[] = '';}}$table->data[] = $row;}krsort($roles);$table->head = array_merge($table->head,$roles);}$table->head[] = get_string('logs');//if (!empty($lastrecord)) {//$lastrecord[] = $lastlink;//$table->data[] = $lastrecord;//}echo html_writer::table($table);}}}/*** Fetch statistics data and generate a line chart.** The statistic chart can be view, posts separated by roles and dates.** @param int $courseid course id.* @param int $report the report type constant eg. STATS_REPORT_LOGINS as defined on statslib.* @param int $time timestamp of the selected time period.* @param int $mode the report mode, eg. STATS_MODE_DETAILED as defined on statslib.* @param int $userid selected user id.* @param int $roleid selected role id.*/function report_stats_print_chart($courseid, $report, $time, $mode, $userid = 0, $roleid = 0) {global $DB, $CFG, $OUTPUT;$course = $DB->get_record("course", array("id" => $courseid), '*', MUST_EXIST);$coursecontext = context_course::instance($course->id);stats_check_uptodate($course->id);$param = stats_get_parameters($time, $report, $course->id, $mode, $roleid);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);$chart = new \core\chart_line();if (empty($param->crosstab)) {$data = [];$times = [];foreach ($stats as $stat) {// Build the array of formatted times indexed by timestamp used as labels.if (!array_key_exists($stat->timeend, $times)) {$times[$stat->timeend] = userdate($stat->timeend - DAYSECS, get_string('strftimedate'), $CFG->timezone);// Just add the data if the time hasn't been added yet.// The number of lines of data must match the number of labels.$data['line1'][] = $stat->line1;if (isset($stat->line2)) {$data['line2'][] = $stat->line2;}if (isset($stat->line3)) {$data['line3'][] = $stat->line3;}}}foreach ($data as $line => $serie) {$series = new \core\chart_series($param->{$line}, array_values($serie));$chart->add_series($series);}} else {$data = array();$times = array();$roles = array();$missedlines = array();$rolenames = get_viewable_roles($coursecontext);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) && array_key_exists($stat->roleid, $rolenames)) {$roles[$stat->roleid] = $rolenames[$stat->roleid];}} else {if (!array_key_exists($stat->roleid, $roles)) {$roles[$stat->roleid] = get_string('all');}}// Build the array of formatted times indexed by timestamp used as labels.if (!array_key_exists($stat->timeend, $times)) {$times[$stat->timeend] = userdate($stat->timeend - DAYSECS, get_string('strftimedate'), $CFG->timezone);}}// Fill empty days with zero to avoid chart errors.foreach (array_keys($times) as $t) {foreach ($data as $roleid => $stuff) {if (!array_key_exists($t, $stuff)) {$data[$roleid][$t] = 0;}}}krsort($roles);foreach ($roles as $roleid => $rolename) {ksort($data[$roleid]);$series = new \core\chart_series($rolename, array_values($data[$roleid]));$chart->add_series($series);}}$chart->set_labels(array_values($times));echo $OUTPUT->render_chart($chart, false);}