tjhunt
38e179a4ed
This check-in removes about 400 lines of code. I hope I have not screwed anything up. I would be grateful if people could review this change, and keep an eye on the navigation bar in modules. Any navigation bar bugs you find in the near future, feel free to file them in the tracker and assign them to me. Thanks. If not to many problems are found, I think I would like to backport this to 1.9 stable, but I am not sure that is a good idea. Opinions to the General Developer Forum please. I am about to start a thread there.
415 lines
19 KiB
PHP
Executable File
415 lines
19 KiB
PHP
Executable File
<?php // $Id$
|
|
|
|
// This script uses installed report plugins to print quiz reports
|
|
|
|
require_once("../../config.php");
|
|
require_once('locallib.php');
|
|
|
|
$id = optional_param('id', '', PARAM_INT); // Course Module ID, or
|
|
$a = optional_param('a', '', PARAM_INT); // SCORM ID
|
|
$b = optional_param('b', '', PARAM_INT); // SCO ID
|
|
$user = optional_param('user', '', PARAM_INT); // User ID
|
|
$attempt = optional_param('attempt', '1', PARAM_INT); // attempt number
|
|
|
|
if (!empty($id)) {
|
|
if (! $cm = get_coursemodule_from_id('scorm', $id)) {
|
|
error('Course Module ID was incorrect');
|
|
}
|
|
if (! $course = get_record('course', 'id', $cm->course)) {
|
|
error('Course is misconfigured');
|
|
}
|
|
if (! $scorm = get_record('scorm', 'id', $cm->instance)) {
|
|
error('Course module is incorrect');
|
|
}
|
|
} else {
|
|
if (!empty($b)) {
|
|
if (! $sco = get_record('scorm_scoes', 'id', $b)) {
|
|
error('Scorm activity is incorrect');
|
|
}
|
|
$a = $sco->scorm;
|
|
}
|
|
if (!empty($a)) {
|
|
if (! $scorm = get_record('scorm', 'id', $a)) {
|
|
error('Course module is incorrect');
|
|
}
|
|
if (! $course = get_record('course', 'id', $scorm->course)) {
|
|
error('Course is misconfigured');
|
|
}
|
|
if (! $cm = get_coursemodule_from_instance('scorm', $scorm->id, $course->id)) {
|
|
error('Course Module ID was incorrect');
|
|
}
|
|
}
|
|
}
|
|
|
|
require_login($course->id, false, $cm);
|
|
|
|
if (!has_capability('mod/scorm:viewreport', get_context_instance(CONTEXT_MODULE,$cm->id))) {
|
|
error('You are not allowed to use this script');
|
|
}
|
|
|
|
add_to_log($course->id, 'scorm', 'report', 'report.php?id='.$cm->id, $scorm->id);
|
|
|
|
if (!empty($user)) {
|
|
$userdata = scorm_get_user_data($user);
|
|
} else {
|
|
$userdata = null;
|
|
}
|
|
|
|
/// Print the page header
|
|
if (empty($noheader)) {
|
|
|
|
$strscorms = get_string('modulenameplural', 'scorm');
|
|
$strscorm = get_string('modulename', 'scorm');
|
|
$strreport = get_string('report', 'scorm');
|
|
$strattempt = get_string('attempt', 'scorm');
|
|
$strname = get_string('name');
|
|
|
|
if (empty($b)) {
|
|
if (empty($a)) {
|
|
$navigation = build_navigation('', $cm);
|
|
print_header("$course->shortname: ".format_string($scorm->name), $course->fullname,$navigation,
|
|
'', '', true);
|
|
} else {
|
|
|
|
$navlinks = array();
|
|
$navlinks[] = array('name' => $strreport, 'link' => "report.php?id=$cm->id", 'type' => 'title');
|
|
$navlinks[] = array('name' => "$strattempt $attempt - ".fullname($userdata), 'link' => '', 'type' => 'title');
|
|
$navigation = build_navigation($navlinks, $cm);
|
|
|
|
print_header("$course->shortname: ".format_string($scorm->name), $course->fullname,
|
|
$navigation, '', '', true);
|
|
}
|
|
} else {
|
|
|
|
$navlinks = array();
|
|
$navlinks[] = array('name' => $strreport, 'link' => "report.php?id=$cm->id", 'type' => 'title');
|
|
$navlinks[] = array('name' => "$strattempt $attempt - ".fullname($userdata), 'link' => "report.php?a=$a&user=$user&attempt=$attempt", 'type' => 'title');
|
|
$navlinks[] = array('name' => $sco->title, 'link' => '', 'type' => 'title');
|
|
$navigation = build_navigation($navlinks, $cm);
|
|
|
|
print_header("$course->shortname: ".format_string($scorm->name), $course->fullname, $navigation,
|
|
'', '', true);
|
|
}
|
|
print_heading(format_string($scorm->name));
|
|
}
|
|
|
|
$scormpixdir = $CFG->modpixpath.'/scorm/pix';
|
|
|
|
if (empty($b)) {
|
|
if (empty($a)) {
|
|
// No options, show the global scorm report
|
|
|
|
if (!empty($CFG->enablegroupings) && !empty($cm->groupingid)) {
|
|
$sql = "SELECT st.userid, st.scormid
|
|
FROM {$CFG->prefix}scorm_scoes_track st
|
|
INNER JOIN {$CFG->prefix}groups_members gm ON st.userid = gm.userid
|
|
INNER JOIN {$CFG->prefix}groupings_groups gg ON gm.groupid = gg.groupid
|
|
WHERE st.scormid = {$scorm->id} AND gg.groupingid = {$cm->groupingid}
|
|
GROUP BY st.userid,st.scormid
|
|
";
|
|
} else {
|
|
$sql = "SELECT st.userid, st.scormid
|
|
FROM {$CFG->prefix}scorm_scoes_track st
|
|
WHERE st.scormid = {$scorm->id}
|
|
GROUP BY st.userid,st.scormid
|
|
";
|
|
}
|
|
|
|
if ($scousers=get_records_sql($sql)) {
|
|
$table = new stdClass();
|
|
$table->head = array(' ', get_string('name'));
|
|
$table->align = array('center', 'left');
|
|
$table->wrap = array('nowrap', 'nowrap');
|
|
$table->width = '100%';
|
|
$table->size = array(10, '*');
|
|
|
|
$table->head[]= get_string('attempt','scorm');
|
|
$table->align[] = 'center';
|
|
$table->wrap[] = 'nowrap';
|
|
$table->size[] = '*';
|
|
|
|
$table->head[]= get_string('started','scorm');
|
|
$table->align[] = 'center';
|
|
$table->wrap[] = 'nowrap';
|
|
$table->size[] = '*';
|
|
|
|
$table->head[]= get_string('last','scorm');
|
|
$table->align[] = 'center';
|
|
$table->wrap[] = 'nowrap';
|
|
$table->size[] = '*';
|
|
|
|
$table->head[]= get_string('score','scorm');
|
|
$table->align[] = 'center';
|
|
$table->wrap[] = 'nowrap';
|
|
$table->size[] = '*';
|
|
|
|
foreach($scousers as $scouser){
|
|
$userdata = scorm_get_user_data($scouser->userid);
|
|
$attempt = scorm_get_last_attempt($scorm->id,$scouser->userid);
|
|
for ($a = 1; $a<=$attempt; $a++) {
|
|
$row = array();
|
|
$row[] = print_user_picture($scouser->userid, $course->id, $userdata->picture, false, true);
|
|
$row[] = '<a href="'.$CFG->wwwroot.'/user/view.php?id='.$scouser->userid.'&course='.$course->id.'">'.
|
|
fullname($userdata).'</a>';
|
|
$row[] = '<a href="report.php?a='.$scorm->id.'&user='.$scouser->userid.'&attempt='.$a.'">'.$a.'</a>';
|
|
$select = 'scormid = '.$scorm->id.' and userid = '.$scouser->userid.' and attempt = '.$a;
|
|
$timetracks = get_record_select('scorm_scoes_track', $select,'min(timemodified) as started, max(timemodified) as last');
|
|
$row[] = userdate($timetracks->started, get_string('strftimedaydatetime'));
|
|
$row[] = userdate($timetracks->last, get_string('strftimedaydatetime'));
|
|
|
|
$row[] = scorm_grade_user_attempt($scorm, $scouser->userid, $a);
|
|
$table->data[] = $row;
|
|
}
|
|
}
|
|
}
|
|
print_table($table);
|
|
} else {
|
|
if (!empty($user)) {
|
|
// User SCORM report
|
|
if ($scoes = get_records_select('scorm_scoes',"scorm='$scorm->id' ORDER BY id")) {
|
|
if (!empty($userdata)) {
|
|
print_simple_box_start('center');
|
|
echo '<div align="center">'."\n";
|
|
print_user_picture($user, $course->id, $userdata->picture, false, false);
|
|
echo "<a href=\"$CFG->wwwroot/user/view.php?id=$user&course=$course->id\">".
|
|
"$userdata->firstname $userdata->lastname</a><br />";
|
|
echo get_string('attempt','scorm').': '.$attempt;
|
|
echo '</div>'."\n";
|
|
print_simple_box_end();
|
|
|
|
// Print general score data
|
|
$table = new stdClass();
|
|
$table->head = array(get_string('title','scorm'),
|
|
get_string('status','scorm'),
|
|
get_string('time','scorm'),
|
|
get_string('score','scorm'),
|
|
'');
|
|
$table->align = array('left', 'center','center','right','left');
|
|
$table->wrap = array('nowrap', 'nowrap','nowrap','nowrap','nowrap');
|
|
$table->width = '80%';
|
|
$table->size = array('*', '*', '*', '*', '*');
|
|
foreach ($scoes as $sco) {
|
|
if ($sco->launch!='') {
|
|
$row = array();
|
|
$score = ' ';
|
|
if ($trackdata = scorm_get_tracks($sco->id,$user,$attempt)) {
|
|
if ($trackdata->score_raw != '') {
|
|
$score = $trackdata->score_raw;
|
|
}
|
|
if ($trackdata->status == '') {
|
|
$trackdata->status = 'notattempted';
|
|
}
|
|
$detailslink = '<a href="report.php?b='.$sco->id.'&user='.$user.'&attempt='.$attempt.'" title="'.
|
|
get_string('details','scorm').'">'.get_string('details','scorm').'</a>';
|
|
} else {
|
|
$trackdata->status = 'notattempted';
|
|
$trackdata->total_time = ' ';
|
|
$detailslink = ' ';
|
|
}
|
|
$strstatus = get_string($trackdata->status,'scorm');
|
|
$row[] = '<img src="'.$scormpixdir.'/'.$trackdata->status.'.gif" alt="'.$strstatus.'" title="'.
|
|
$strstatus.'"> '.format_string($sco->title);
|
|
$row[] = get_string($trackdata->status,'scorm');
|
|
$row[] = $trackdata->total_time;
|
|
$row[] = $score;
|
|
$row[] = $detailslink;
|
|
} else {
|
|
$row = array(format_string($sco->title), ' ', ' ', ' ', ' ');
|
|
}
|
|
$table->data[] = $row;
|
|
}
|
|
print_table($table);
|
|
}
|
|
}
|
|
} else {
|
|
notice('No users to report');
|
|
}
|
|
}
|
|
} else {
|
|
// User SCO report
|
|
if (!empty($userdata)) {
|
|
print_simple_box_start('center');
|
|
//print_heading(format_string($sco->title));
|
|
print_heading('<a href="'.$CFG->wwwroot.'/mod/scorm/player.php?a='.$scorm->id.'&mode=browse&scoid='.$sco->id.'" target="_new">'.format_string($sco->title).'</a>');
|
|
echo '<div align="center">'."\n";
|
|
print_user_picture($user, $course->id, $userdata->picture, false, false);
|
|
echo "<a href=\"$CFG->wwwroot/user/view.php?id=$user&course=$course->id\">".
|
|
"$userdata->firstname $userdata->lastname</a><br />";
|
|
$scoreview = '';
|
|
if ($trackdata = scorm_get_tracks($sco->id,$user,$attempt)) {
|
|
if ($trackdata->score_raw != '') {
|
|
$scoreview = get_string('score','scorm').': '.$trackdata->score_raw;
|
|
}
|
|
if ($trackdata->status == '') {
|
|
$trackdata->status = 'notattempted';
|
|
}
|
|
} else {
|
|
$trackdata->status = 'notattempted';
|
|
$trackdata->total_time = '';
|
|
}
|
|
$strstatus = get_string($trackdata->status,'scorm');
|
|
echo '<img src="'.$scormpixdir.'/'.$trackdata->status.'.gif" alt="'.$strstatus.'" title="'.
|
|
$strstatus.'"> '.$trackdata->total_time.'<br />'.$scoreview.'<br />';
|
|
echo '</div>'."\n";
|
|
echo '<hr /><h2>'.get_string('details','scorm').'</h2>';
|
|
|
|
// Print general score data
|
|
$table = new stdClass();
|
|
$table->head = array(get_string('element','scorm'), get_string('value','scorm'));
|
|
$table->align = array('left', 'left');
|
|
$table->wrap = array('nowrap', 'nowrap');
|
|
$table->width = '100%';
|
|
$table->size = array('*', '*');
|
|
|
|
$existelements = false;
|
|
if ($scorm->version == 'SCORM_1.3') {
|
|
$elements = array('raw' => 'cmi.score.raw',
|
|
'min' => 'cmi.score.min',
|
|
'max' => 'cmi.score.max',
|
|
'status' => 'cmi.completition_status',
|
|
'time' => 'cmi.total_time');
|
|
} else {
|
|
$elements = array('raw' => 'cmi.core.score.raw',
|
|
'min' => 'cmi.core.score.min',
|
|
'max' => 'cmi.core.score.max',
|
|
'status' => 'cmi.core.lesson_status',
|
|
'time' => 'cmi.core.total_time');
|
|
}
|
|
$printedelements = array();
|
|
foreach ($elements as $key => $element) {
|
|
if (isset($trackdata->$element)) {
|
|
$existelements = true;
|
|
$printedelements[]=$element;
|
|
$row = array();
|
|
$row[] = get_string($key,'scorm');
|
|
$row[] = s($trackdata->$element);
|
|
$table->data[] = $row;
|
|
}
|
|
}
|
|
if ($existelements) {
|
|
echo '<h3>'.get_string('general','scorm').'</h3>';
|
|
print_table($table);
|
|
}
|
|
|
|
// Print Interactions data
|
|
$table = new stdClass();
|
|
$table->head = array(get_string('identifier','scorm'),
|
|
get_string('type','scorm'),
|
|
get_string('result','scorm'),
|
|
get_string('student_response','scorm'));
|
|
$table->align = array('center', 'center', 'center', 'center');
|
|
$table->wrap = array('nowrap', 'nowrap', 'nowrap', 'nowrap');
|
|
$table->width = '100%';
|
|
$table->size = array('*', '*', '*', '*', '*');
|
|
|
|
$existinteraction = false;
|
|
|
|
$i = 0;
|
|
$interactionid = 'cmi.interactions.'.$i.'.id';
|
|
|
|
while (isset($trackdata->$interactionid)) {
|
|
$existinteraction = true;
|
|
$printedelements[]=$interactionid;
|
|
$elements = array($interactionid,
|
|
'cmi.interactions.'.$i.'.type',
|
|
'cmi.interactions.'.$i.'.result',
|
|
'cmi.interactions.'.$i.'.student_response');
|
|
$row = array();
|
|
foreach ($elements as $element) {
|
|
if (isset($trackdata->$element)) {
|
|
$row[] = s($trackdata->$element);
|
|
$printedelements[]=$element;
|
|
} else {
|
|
$row[] = ' ';
|
|
}
|
|
}
|
|
$table->data[] = $row;
|
|
|
|
$i++;
|
|
$interactionid = 'cmi.interactions.'.$i.'.id';
|
|
}
|
|
if ($existinteraction) {
|
|
echo '<h3>'.get_string('interactions','scorm').'</h3>';
|
|
echo '<h3>'.get_string('interactions','scorm').'</h3>';
|
|
print_table($table);
|
|
}
|
|
|
|
// Print Objectives data
|
|
$table = new stdClass();
|
|
$table->head = array(get_string('identifier','scorm'),
|
|
get_string('status','scorm'),
|
|
get_string('raw','scorm'),
|
|
get_string('min','scorm'),
|
|
get_string('max','scorm'));
|
|
$table->align = array('center', 'center', 'center', 'center', 'center');
|
|
$table->wrap = array('nowrap', 'nowrap', 'nowrap', 'nowrap', 'nowrap');
|
|
$table->width = '100%';
|
|
$table->size = array('*', '*', '*', '*', '*');
|
|
|
|
$existobjective = false;
|
|
|
|
$i = 0;
|
|
$objectiveid = 'cmi.objectives.'.$i.'.id';
|
|
|
|
while (isset($trackdata->$objectiveid)) {
|
|
$existobjective = true;
|
|
$printedelements[]=$objectiveid;
|
|
$elements = array($objectiveid,
|
|
'cmi.objectives.'.$i.'.status',
|
|
'cmi.objectives.'.$i.'.score.raw',
|
|
'cmi.objectives.'.$i.'.score.min',
|
|
'cmi.objectives.'.$i.'.score.max');
|
|
$row = array();
|
|
foreach ($elements as $element) {
|
|
if (isset($trackdata->$element)) {
|
|
$row[] = s($trackdata->$element);
|
|
$printedelements[]=$element;
|
|
} else {
|
|
$row[] = ' ';
|
|
}
|
|
}
|
|
$table->data[] = $row;
|
|
|
|
$i++;
|
|
$objectiveid = 'cmi.objectives.'.$i.'.id';
|
|
}
|
|
if ($existobjective) {
|
|
echo '<h3>'.get_string('objectives','scorm').'</h3>';
|
|
print_table($table);
|
|
}
|
|
$table = new stdClass();
|
|
$table->head = array(get_string('element','scorm'), get_string('value','scorm'));
|
|
$table->align = array('left', 'left');
|
|
$table->wrap = array('nowrap', 'wrap');
|
|
$table->width = '100%';
|
|
$table->size = array('*', '*');
|
|
|
|
$existelements = false;
|
|
|
|
foreach($trackdata as $element => $value) {
|
|
if (substr($element,0,3) == 'cmi') {
|
|
if (!(in_array ($element, $printedelements))) {
|
|
$existelements = true;
|
|
$row = array();
|
|
$row[] = get_string($element,'scorm') != '[['.$element.']]' ? get_string($element,'scorm') : $element;
|
|
$row[] = s($value);
|
|
$table->data[] = $row;
|
|
}
|
|
}
|
|
}
|
|
if ($existelements) {
|
|
echo '<h3>'.get_string('othertracks','scorm').'</h3>';
|
|
print_table($table);
|
|
}
|
|
print_simple_box_end();
|
|
} else {
|
|
error('Missing script parameter');
|
|
}
|
|
}
|
|
|
|
|
|
if (empty($noheader)) {
|
|
print_footer($course);
|
|
}
|
|
?>
|