mirror_php/moodle
1
0
Fork 0
mirror of https://github.com/moodle/moodle.git synced 2025-01-18 22:08:20 +01:00
Code Issues Projects Releases Wiki Activity
moodle/course/report/log/lib.php

497 lines
19 KiB
PHP
Raw Normal View History

lots of typos fixed, graph in stats, parameter cleanup etc., somebody could cleanup the page layout of those report/xxx/mod.php files ;-)
2006-04-20 22:36:22 +00:00
<?php // $Id$
Added real rough new report for logs - needs work. Shane?
2006-03-09 09:45:57 +00:00
mnet: courses and activity log know about mnet remote users
2007-01-04 03:22:51 +00:00
function print_mnet_log_selector_form($hostid, $course, $selecteduser=0, $selecteddate='today',
$modname="", $modid=0, $modaction='', $selectedgroup=-1, $showcourses=0, $showusers=0, $logformat='showashtml') {
global $USER, $CFG, $SITE;
require_once $CFG->dirroot.'/mnet/peer.php';
$mnet_peer = new mnet_peer();
$mnet_peer->set_id($hostid);
$sql = "select distinct course, hostid, coursename from {$CFG->prefix}mnet_log";
$courses = get_records_sql($sql);
$remotecoursecount = count($courses);
// first check to see if we can override showcourses and showusers
$numcourses = $remotecoursecount + count_records_select("course", "", "COUNT(id)");
if ($numcourses < COURSE_MAX_COURSES_PER_DROPDOWN && !$showcourses) {
$showcourses = 1;
}
$sitecontext = get_context_instance(CONTEXT_SYSTEM, SITEID);
// Context for remote data is always SITE
// Groups for remote data are always OFF
if ($hostid == $CFG->mnet_localhost_id) {
$context = get_context_instance(CONTEXT_COURSE, $course->id);
/// Setup for group handling.
if ($course->groupmode == SEPARATEGROUPS and !has_capability('moodle/site:accessallgroups', $context)) {
$selectedgroup = get_current_group($course->id);
$showgroups = false;
}
else if ($course->groupmode) {
$selectedgroup = ($selectedgroup == -1) ? get_current_group($course->id) : $selectedgroup;
$showgroups = true;
}
else {
$selectedgroup = 0;
$showgroups = false;
}
} else {
$context = $sitecontext;
}
// Get all the possible users
$users = array();
// If looking at a different host, we're interested in all our site users
if ($hostid == $CFG->mnet_localhost_id && $course->category) {
if ($selectedgroup) { // If using a group, only get users in that group.
$courseusers = get_group_users($selectedgroup, 'u.lastname ASC', '', 'u.id, u.firstname, u.lastname, u.idnumber');
} else {
$courseusers = get_course_users($course->id, '', '', 'u.id, u.firstname, u.lastname, u.idnumber');
}
} else {
$courseusers = get_site_users("u.lastaccess DESC", "u.id, u.firstname, u.lastname, u.idnumber");
}
if (count($courseusers) < COURSE_MAX_USERS_PER_DROPDOWN && !$showusers) {
$showusers = 1;
}
if ($showusers) {
if ($courseusers) {
foreach ($courseusers as $courseuser) {
$users[$courseuser->id] = fullname($courseuser, has_capability('moodle/site:viewfullnames', $context));
}
}
if ($guest = get_guest()) {
$users[$guest->id] = fullname($guest);
}
}
Mnet: Bugfix: Revised query to find hosts we SSO with: MDL-8082
2007-01-11 05:59:57 +00:00
// Get all the hosts that have log records
$sql = "select distinct
h.id,
h.name
from
{$CFG->prefix}mnet_host h,
{$CFG->prefix}mnet_log l
where
h.id = l.hostid
order by
h.name";
mnet: courses and activity log know about mnet remote users
2007-01-04 03:22:51 +00:00
$hosts = get_records_sql($sql);
foreach($hosts as $host) {
$hostarray[$host->id] = $host->name;
}
$hostarray[$CFG->mnet_localhost_id] = $SITE->fullname;
asort($hostarray);
foreach($hostarray as $hostid => $name) {
$courses = array();
$sites = array();
if ($CFG->mnet_localhost_id == $hostid) {
if (has_capability('moodle/site:viewreports', $sitecontext) && $showcourses) {
if ($ccc = get_records("course", "", "", "fullname","id,fullname,category")) {
foreach ($ccc as $cc) {
if ($cc->category) {
$courses["$hostid/$cc->id"] = "- $cc->fullname";
} else {
$sites["$hostid/$cc->id"] = "$cc->fullname Site";
}
}
}
}
} else {
if (has_capability('moodle/site:viewreports', $sitecontext) && $showcourses) {
$sql = "select distinct course, coursename from mdl_mnet_log where hostid = '$hostid'";
if ($ccc = get_records_sql($sql)) {
foreach ($ccc as $cc) {
if (1 == $cc->course) {
$sites["$hostid/$cc->course"] = "$cc->coursename Site";
} else {
$courses["$hostid/$cc->course"] = "- $cc->coursename";
}
}
}
}
}
asort($courses);
$dropdown[$name] = $sites + $courses;
}
$activities = array();
$selectedactivity = "";
/// Casting $course->modinfo to string prevents one notice when the field is null
if ($modinfo = unserialize((string)$course->modinfo)) {
$section = 0;
if ($course->format == 'weeks') { // Bodgy
$strsection = get_string("week");
} else {
$strsection = get_string("topic");
}
foreach ($modinfo as $mod) {
if ($mod->mod == "label") {
continue;
}
if ($mod->section > 0 and $section <> $mod->section) {
$activities["section/$mod->section"] = "-------------- $strsection $mod->section --------------";
}
$section = $mod->section;
$mod->name = strip_tags(format_string(urldecode($mod->name),true));
if (strlen($mod->name) > 55) {
$mod->name = substr($mod->name, 0, 50)."...";
}
if (!$mod->visible) {
$mod->name = "(".$mod->name.")";
}
$activities["$mod->cm"] = $mod->name;
if ($mod->cm == $modid) {
$selectedactivity = "$mod->cm";
}
}
}
if (has_capability('moodle/site:viewreports', $sitecontext) && !$course->category) {
$activities["site_errors"] = get_string("siteerrors");
if ($modid === "site_errors") {
$selectedactivity = "site_errors";
}
}
$strftimedate = get_string("strftimedate");
$strftimedaydate = get_string("strftimedaydate");
asort($users);
// Prepare the list of action options.
$actions = array(
'view' => get_string('view'),
'add' => get_string('add'),
'update' => get_string('update'),
'delete' => get_string('delete'),
'-view' => get_string('allchanges')
);
// Get all the possible dates
// Note that we are keeping track of real (GMT) time and user time
// User time is only used in displays - all calcs and passing is GMT
$timenow = time(); // GMT
// What day is it now for the user, and when is midnight that day (in GMT).
$timemidnight = $today = usergetmidnight($timenow);
// Put today up the top of the list
$dates = array("$timemidnight" => get_string("today").", ".userdate($timenow, $strftimedate) );
if (!$course->startdate or ($course->startdate > $timenow)) {
$course->startdate = $course->timecreated;
}
$numdates = 1;
while ($timemidnight > $course->startdate and $numdates < 365) {
$timemidnight = $timemidnight - 86400;
$timenow = $timenow - 86400;
$dates["$timemidnight"] = userdate($timenow, $strftimedaydate);
$numdates++;
}
if ($selecteddate == "today") {
$selecteddate = $today;
}
$cid = empty($course->id)? '1' : $course->id;
echo "<center>\n";
echo "<form action=\"$CFG->wwwroot/course/report/log/index.php\" method=\"get\">\n";
echo "<input type=\"hidden\" name=\"chooselog\" value=\"1\" />\n";
echo "<input type=\"hidden\" name=\"showusers\" value=\"$showusers\" />\n";
echo "<input type=\"hidden\" name=\"showcourses\" value=\"$showcourses\" />\n";
if (has_capability('moodle/site:viewreports', $sitecontext) && $showcourses) {
$cid = empty($course->id)? '1' : $course->id;
choose_from_menu_nested($dropdown, "host_course", $hostid.'/'.$cid, "");
} else {
$courses = array();
$courses[$course->id] = $course->fullname . ((empty($course->category)) ? ' (Site) ' : '');
choose_from_menu($courses,"id",$course->id,false);
if (has_capability('moodle/site:viewreports', $sitecontext)) {
$a->url = "$CFG->wwwroot/course/report/log/index.php?chooselog=0&group=$selectedgroup&user=$selecteduser"
."&id=$course->id&date=$selecteddate&modid=$selectedactivity&showcourses=1&showusers=$showusers";
print_string('logtoomanycourses','moodle',$a);
}
}
if ($showgroups) {
if ($cgroups = get_groups($course->id)) {
foreach ($cgroups as $cgroup) {
$groups[$cgroup->id] = $cgroup->name;
}
}
else {
$groups = array();
}
choose_from_menu ($groups, "group", $selectedgroup, get_string("allgroups") );
}
if ($showusers) {
choose_from_menu ($users, "user", $selecteduser, get_string("allparticipants") );
}
else {
$users = array();
if (!empty($selecteduser)) {
$user = get_record('user','id',$selecteduser);
$users[$selecteduser] = fullname($user);
}
else {
$users[0] = get_string('allparticipants');
}
choose_from_menu($users, 'user', $selecteduser, false);
$a->url = "$CFG->wwwroot/course/report/log/index.php?chooselog=0&group=$selectedgroup&user=$selecteduser"
."&id=$course->id&date=$selecteddate&modid=$selectedactivity&showusers=1&showcourses=$showcourses";
print_string('logtoomanyusers','moodle',$a);
}
choose_from_menu ($dates, "date", $selecteddate, get_string("alldays"));
choose_from_menu ($activities, "modid", $selectedactivity, get_string("allactivities"), "", "");
choose_from_menu ($actions, 'modaction', $modaction, get_string("allactions"));
$logformats = array('showashtml' => get_string('displayonpage'),
'downloadascsv' => get_string('downloadtext'),
'downloadasexcel' => get_string('downloadexcel'));
/*
$logformats = array('showashtml' => get_string('displayonpage'),
'downloadascsv' => get_string('downloadtext'),
'downloadasexcel' => get_string('downloadexcel'),
'downloadasooo' => get_string('downloadasooo'));
*/
choose_from_menu ($logformats, 'logformat', $logformat, false);
echo '<input type="submit" value="'.get_string('gettheselogs').'" />';
echo "</form>";
echo "</center>";
}
Added option to download logs in excel or csv formats. Merged in code contributed by Daniele Cordella <d.cordella@iss.it>. Originally posted as bug 5024.
2006-05-15 05:01:00 +00:00
function print_log_selector_form($course, $selecteduser=0, $selecteddate='today',
$modname="", $modid=0, $modaction='', $selectedgroup=-1, $showcourses=0, $showusers=0, $logformat='showashtml') {
Added real rough new report for logs - needs work. Shane?
2006-03-09 09:45:57 +00:00
global $USER, $CFG;
// first check to see if we can override showcourses and showusers
$numcourses = count_records_select("course", "", "COUNT(id)");
if ($numcourses < COURSE_MAX_COURSES_PER_DROPDOWN && !$showcourses) {
$showcourses = 1;
}
adding capabilities
2006-09-08 08:46:26 +00:00
$sitecontext = get_context_instance(CONTEXT_SYSTEM, SITEID);
adding capabilities
2006-09-06 08:55:23 +00:00
$context = get_context_instance(CONTEXT_COURSE, $course->id);
Added real rough new report for logs - needs work. Shane?
2006-03-09 09:45:57 +00:00
/// Setup for group handling.
adding capabilities
2006-09-06 08:55:23 +00:00
if ($course->groupmode == SEPARATEGROUPS and !has_capability('moodle/site:accessallgroups', $context)) {
Added real rough new report for logs - needs work. Shane?
2006-03-09 09:45:57 +00:00
$selectedgroup = get_current_group($course->id);
$showgroups = false;
}
else if ($course->groupmode) {
$selectedgroup = ($selectedgroup == -1) ? get_current_group($course->id) : $selectedgroup;
$showgroups = true;
}
else {
$selectedgroup = 0;
$showgroups = false;
}
// Get all the possible users
$users = array();
fixed obsoleted use of course->category to find site course - now used SITEID instead MDL-1899
2006-11-12 08:55:13 +00:00
if ($course->id != SITEID) {
Added real rough new report for logs - needs work. Shane?
2006-03-09 09:45:57 +00:00
if ($selectedgroup) { // If using a group, only get users in that group.
$courseusers = get_group_users($selectedgroup, 'u.lastname ASC', '', 'u.id, u.firstname, u.lastname, u.idnumber');
} else {
$courseusers = get_course_users($course->id, '', '', 'u.id, u.firstname, u.lastname, u.idnumber');
}
} else {
$courseusers = get_site_users("u.lastaccess DESC", "u.id, u.firstname, u.lastname, u.idnumber");
}
if (count($courseusers) < COURSE_MAX_USERS_PER_DROPDOWN && !$showusers) {
$showusers = 1;
}
if ($showusers) {
if ($courseusers) {
foreach ($courseusers as $courseuser) {
adding capabilities
2006-09-06 08:55:23 +00:00
$users[$courseuser->id] = fullname($courseuser, has_capability('moodle/site:viewfullnames', $context));
Added real rough new report for logs - needs work. Shane?
2006-03-09 09:45:57 +00:00
}
}
if ($guest = get_guest()) {
$users[$guest->id] = fullname($guest);
}
}
adding capabilities
2006-09-08 08:46:26 +00:00
if (has_capability('moodle/site:viewreports', $sitecontext) && $showcourses) {
Added real rough new report for logs - needs work. Shane?
2006-03-09 09:45:57 +00:00
if ($ccc = get_records("course", "", "", "fullname","id,fullname,category")) {
foreach ($ccc as $cc) {
if ($cc->category) {
$courses["$cc->id"] = "$cc->fullname";
} else {
$courses["$cc->id"] = " $cc->fullname (Site)";
}
}
}
asort($courses);
}
$activities = array();
$selectedactivity = "";
Casting $course->modinfo to string prevents one notice to be showed when it's null, returning false as desired.
2006-09-04 21:12:37 +00:00
/// Casting $course->modinfo to string prevents one notice when the field is null
if ($modinfo = unserialize((string)$course->modinfo)) {
Added real rough new report for logs - needs work. Shane?
2006-03-09 09:45:57 +00:00
$section = 0;
if ($course->format == 'weeks') { // Bodgy
$strsection = get_string("week");
} else {
$strsection = get_string("topic");
}
foreach ($modinfo as $mod) {
if ($mod->mod == "label") {
continue;
}
if ($mod->section > 0 and $section <> $mod->section) {
$activities["section/$mod->section"] = "-------------- $strsection $mod->section --------------";
}
$section = $mod->section;
$mod->name = strip_tags(format_string(urldecode($mod->name),true));
if (strlen($mod->name) > 55) {
$mod->name = substr($mod->name, 0, 50)."...";
}
if (!$mod->visible) {
$mod->name = "(".$mod->name.")";
}
$activities["$mod->cm"] = $mod->name;
if ($mod->cm == $modid) {
$selectedactivity = "$mod->cm";
}
}
}
fixed obsoleted use of course->category to find site course - now used SITEID instead MDL-1899
2006-11-12 08:55:13 +00:00
if (has_capability('moodle/site:viewreports', $sitecontext) && ($course->id == SITEID)) {
Added real rough new report for logs - needs work. Shane?
2006-03-09 09:45:57 +00:00
$activities["site_errors"] = get_string("siteerrors");
if ($modid === "site_errors") {
$selectedactivity = "site_errors";
}
}
$strftimedate = get_string("strftimedate");
$strftimedaydate = get_string("strftimedaydate");
asort($users);
Allow the display of course logs to be filtered by type of action.
2006-03-28 17:33:40 +00:00
// Prepare the list of action options.
$actions = array(
'view' => get_string('view'),
'add' => get_string('add'),
'update' => get_string('update'),
'delete' => get_string('delete'),
'-view' => get_string('allchanges')
);
Added real rough new report for logs - needs work. Shane?
2006-03-09 09:45:57 +00:00
// Get all the possible dates
// Note that we are keeping track of real (GMT) time and user time
// User time is only used in displays - all calcs and passing is GMT
$timenow = time(); // GMT
// What day is it now for the user, and when is midnight that day (in GMT).
$timemidnight = $today = usergetmidnight($timenow);
// Put today up the top of the list
$dates = array("$timemidnight" => get_string("today").", ".userdate($timenow, $strftimedate) );
if (!$course->startdate or ($course->startdate > $timenow)) {
$course->startdate = $course->timecreated;
}
$numdates = 1;
while ($timemidnight > $course->startdate and $numdates < 365) {
$timemidnight = $timemidnight - 86400;
$timenow = $timenow - 86400;
$dates["$timemidnight"] = userdate($timenow, $strftimedaydate);
$numdates++;
}
if ($selecteddate == "today") {
$selecteddate = $today;
}
echo "<center>\n";
Changed to full urls as we will be linking to here from the admin reports (SE)
2006-03-15 08:05:34 +00:00
echo "<form action=\"$CFG->wwwroot/course/report/log/index.php\" method=\"get\">\n";
Added real rough new report for logs - needs work. Shane?
2006-03-09 09:45:57 +00:00
echo "<input type=\"hidden\" name=\"chooselog\" value=\"1\" />\n";
echo "<input type=\"hidden\" name=\"showusers\" value=\"$showusers\" />\n";
echo "<input type=\"hidden\" name=\"showcourses\" value=\"$showcourses\" />\n";
adding capabilities
2006-09-08 08:46:26 +00:00
if (has_capability('moodle/site:viewreports', $sitecontext) && $showcourses) {
Added real rough new report for logs - needs work. Shane?
2006-03-09 09:45:57 +00:00
choose_from_menu ($courses, "id", $course->id, "");
} else {
// echo '<input type="hidden" name="id" value="'.$course->id.'" />';
$courses = array();
fixed obsoleted use of course->category to find site course - now used SITEID instead MDL-1899
2006-11-12 08:55:13 +00:00
$courses[$course->id] = $course->fullname . (($course->id == SITEID) ? ' (Site) ' : '');
Added real rough new report for logs - needs work. Shane?
2006-03-09 09:45:57 +00:00
choose_from_menu($courses,"id",$course->id,false);
adding capabilities
2006-09-08 08:46:26 +00:00
if (has_capability('moodle/site:viewreports', $sitecontext)) {
Changed to full urls as we will be linking to here from the admin reports (SE)
2006-03-15 08:05:34 +00:00
$a->url = "$CFG->wwwroot/course/report/log/index.php?chooselog=0&group=$selectedgroup&user=$selecteduser"
Added real rough new report for logs - needs work. Shane?
2006-03-09 09:45:57 +00:00
."&id=$course->id&date=$selecteddate&modid=$selectedactivity&showcourses=1&showusers=$showusers";
print_string('logtoomanycourses','moodle',$a);
}
}
if ($showgroups) {
if ($cgroups = get_groups($course->id)) {
foreach ($cgroups as $cgroup) {
$groups[$cgroup->id] = $cgroup->name;
}
}
else {
$groups = array();
}
choose_from_menu ($groups, "group", $selectedgroup, get_string("allgroups") );
}
if ($showusers) {
choose_from_menu ($users, "user", $selecteduser, get_string("allparticipants") );
}
else {
$users = array();
if (!empty($selecteduser)) {
$user = get_record('user','id',$selecteduser);
$users[$selecteduser] = fullname($user);
}
else {
$users[0] = get_string('allparticipants');
}
Added option to download logs in excel or csv formats. Merged in code contributed by Daniele Cordella <d.cordella@iss.it>. Originally posted as bug 5024.
2006-05-15 05:01:00 +00:00
choose_from_menu($users, 'user', $selecteduser, false);
Changed to full urls as we will be linking to here from the admin reports (SE)
2006-03-15 08:05:34 +00:00
$a->url = "$CFG->wwwroot/course/report/log/index.php?chooselog=0&group=$selectedgroup&user=$selecteduser"
Added real rough new report for logs - needs work. Shane?
2006-03-09 09:45:57 +00:00
."&id=$course->id&date=$selecteddate&modid=$selectedactivity&showusers=1&showcourses=$showcourses";
print_string('logtoomanyusers','moodle',$a);
}
choose_from_menu ($dates, "date", $selecteddate, get_string("alldays"));
choose_from_menu ($activities, "modid", $selectedactivity, get_string("allactivities"), "", "");
Allow the display of course logs to be filtered by type of action.
2006-03-28 17:33:40 +00:00
choose_from_menu ($actions, 'modaction', $modaction, get_string("allactions"));
Added option to download logs in excel or csv formats. Merged in code contributed by Daniele Cordella <d.cordella@iss.it>. Originally posted as bug 5024.
2006-05-15 05:01:00 +00:00
$logformats = array('showashtml' => get_string('displayonpage'),
'downloadascsv' => get_string('downloadtext'),
MDL-7996 Add ods export support - added ods to course logs with other minor fixes, implemented date support and added missing stub functions for better excel class compatibility
2006-12-21 10:58:18 +00:00
'downloadasods' => get_string('downloadods'),
Added option to download logs in excel or csv formats. Merged in code contributed by Daniele Cordella <d.cordella@iss.it>. Originally posted as bug 5024.
2006-05-15 05:01:00 +00:00
'downloadasexcel' => get_string('downloadexcel'));
choose_from_menu ($logformats, 'logformat', $logformat, false);
echo '<input type="submit" value="'.get_string('gettheselogs').'" />';
Added real rough new report for logs - needs work. Shane?
2006-03-09 09:45:57 +00:00
echo "</form>";
echo "</center>";
}
Casting $course->modinfo to string prevents one notice to be showed when it's null, returning false as desired.
2006-09-04 21:12:37 +00:00
?>
Reference in New Issue Copy Permalink