/**
* Returns an array of the popup options for SCORM and each options default value
- *
+ *
* @return array an array of popup options as the key and their defaults as the value
*/
function scorm_get_popup_options_array(){
global $CFG;
$cfg_scorm = get_config('scorm');
-
- return array('resizable'=> isset($cfg_scorm->resizable) ? $cfg_scorm->resizable : 0,
- 'scrollbars'=> isset($cfg_scorm->scrollbars) ? $cfg_scorm->scrollbars : 0,
- 'directories'=> isset($cfg_scorm->directories) ? $cfg_scorm->directories : 0,
+
+ return array('resizable'=> isset($cfg_scorm->resizable) ? $cfg_scorm->resizable : 0,
+ 'scrollbars'=> isset($cfg_scorm->scrollbars) ? $cfg_scorm->scrollbars : 0,
+ 'directories'=> isset($cfg_scorm->directories) ? $cfg_scorm->directories : 0,
'location'=> isset($cfg_scorm->location) ? $cfg_scorm->location : 0,
- 'menubar'=> isset($cfg_scorm->menubar) ? $cfg_scorm->menubar : 0,
- 'toolbar'=> isset($cfg_scorm->toolbar) ? $cfg_scorm->toolbar : 0,
- 'status'=> isset($cfg_scorm->status) ? $cfg_scorm->status : 0);
+ 'menubar'=> isset($cfg_scorm->menubar) ? $cfg_scorm->menubar : 0,
+ 'toolbar'=> isset($cfg_scorm->toolbar) ? $cfg_scorm->toolbar : 0,
+ 'status'=> isset($cfg_scorm->status) ? $cfg_scorm->status : 0);
}
/**
* Returns an array of the array of what grade options
- *
+ *
* @return array an array of what grade options
*/
function scorm_get_grade_method_array(){
return array (GRADESCOES => get_string('gradescoes', 'scorm'),
GRADEHIGHEST => get_string('gradehighest', 'scorm'),
GRADEAVERAGE => get_string('gradeaverage', 'scorm'),
- GRADESUM => get_string('gradesum', 'scorm'));
+ GRADESUM => get_string('gradesum', 'scorm'));
}
/**
* Returns an array of the array of what grade options
- *
+ *
* @return array an array of what grade options
*/
function scorm_get_what_grade_array(){
/**
* Returns an array of the array of skip view options
- *
+ *
* @return array an array of skip view options
*/
function scorm_get_skip_view_array(){
/**
* Returns an array of the array of hide table of contents options
- *
+ *
* @return array an array of hide table of contents options
*/
function scorm_get_hidetoc_array(){
/**
* Returns an array of the array of update frequency options
- *
+ *
* @return array an array of update frequency options
*/
function scorm_get_updatefreq_array(){
/**
* Returns an array of the array of popup display options
- *
+ *
* @return array an array of popup display options
*/
function scorm_get_popup_display_array(){
/**
* Returns an array of the array of attempt options
- *
+ *
* @return array an array of attempt options
*/
function scorm_get_attempts_array(){
$attempts = array(0 => get_string('nolimit','scorm'),
1 => get_string('attempt1','scorm'));
-
+
for ($i=2; $i<=6; $i++) {
$attempts[$i] = get_string('attemptsx','scorm', $i);
}
-
+
return $attempts;
}
/**
echo $result->toc;
print_simple_box_end();
}
-
+
// is this the first attempt ?
$attemptcount = scorm_get_attempt_count($user, $scorm);
-
+
// do not give the player launch FORM if the SCORM object is locked after the final attempt
if ($scorm->lastattemptlock == 0 || $result->attemptleft > 0) {
?>
* @param string $element_name Name of array element to get values for
* @param array $children list of sub elements of this array element that also need instantiating
* @return None
-*/
+*/
function scorm_reconstitute_array_element($sversion, $userdata, $element_name, $children) {
// reconstitute comments_from_learner and comments_from_lms
$current = '';
$current_sub = '';
$count = 0;
$count_sub = 0;
-
+
// filter out the ones we want
$element_list = array();
foreach($userdata as $element => $value){
$element_list[$element] = $value;
}
}
-
+
// sort elements in .n array order
uksort($element_list, "scorm_element_cmp");
-
+
// generate JavaScript
foreach($element_list as $element => $value){
if ($sversion == 'scorm_13') {
if ($count_sub > 0) {
echo ' '.$element_name.'_'.$current.'.'.$current_subelement.'._count = '.$count_sub.";\n";
}
- $current = $matches[1];
+ $current = $matches[1];
$count++;
$current_subelement = '';
$current_sub = '';
echo ' '.$subelement.".".$child."._children = ".$child."_children;\n";
}
}
-
+
// now - flesh out the second level elements if there are any
if ($sversion == 'scorm_13') {
$element = preg_replace('/(.*?\.N\d+\..*?)\.(\d+)\./', "\$1.N\$2.", $element);
$element = preg_replace('/(.*?\_\d+\..*?)\.(\d+)\./', "\$1_\$2.", $element);
preg_match('/.*?\_\d+\.(.*?)\_(\d+)\./', $element, $matches);
}
-
+
// check the sub element type
if (count($matches) > 0 && $current_subelement != $matches[1]) {
if ($count_sub > 0) {
$subelement = substr($element,0,$end);
echo ' '.$subelement." = new Object();\n";
}
-
+
// now check the subelement subscript
if (count($matches) > 0 && $current_sub != $matches[2]) {
- $current_sub = $matches[2];
+ $current_sub = $matches[2];
$count_sub++;
$end = strrpos($element,$matches[2])+strlen($matches[2]);
$subelement = substr($element,0,$end);
echo ' '.$subelement." = new Object();\n";
}
-
+
echo ' '.$element.' = \''.$value."';\n";
}
if ($count_sub > 0) {
* @param string $a left array element
* @param string $b right array element
* @return comparator - 0,1,-1
-*/
+*/
function scorm_element_cmp($a, $b) {
preg_match('/.*?(\d+)\./', $a, $matches);
$left = intval($matches[1]);
* @param object $user Current context user
* @param object $scorm a moodle scrom object - mdl_scorm
* @return string - Attempt status string
-*/
+*/
function scorm_get_attempt_status($user, $scorm) {
global $DB;
-
+
$attempts = $DB->get_records_select('scorm_scoes_track',"element='cmi.core.score.raw' AND userid=? AND scormid=?", array($user->id, $scorm->id),'attempt','attempt AS attemptnumber, value AS grade');
if(empty($attempts)) {
$attemptcount = 0;
} else {
$attemptcount = count($attempts);
}
-
+
$result = '<p>'.get_string('noattemptsallowed', 'scorm').': ';
if ($scorm->maxattempt > 0) {
$result .= $scorm->maxattempt . '<BR>';
$grademethod = get_string('gradescoes', 'scorm');
break;
}
-
+
if(!empty($attempts)) {
foreach($attempts as $attempt) {
$gradereported = scorm_grade_user_attempt($scorm, $user->id, $attempt->attemptnumber);
* @param object $user Current context user
* @param object $scorm a moodle scrom object - mdl_scorm
* @return int - no. of attempts so far
-*/
+*/
function scorm_get_attempt_count($user, $scorm) {
global $DB;
$attemptcount = 0;
*
* @param object $scorm a moodle scrom object - mdl_scorm
* @return boolean - debugging true/false
-*/
+*/
function scorm_debugging($scorm) {
global $CFG, $USER;
$cfg_scorm = get_config('scorm');
-
+
if (!$cfg_scorm->allowapidebug) {
return false;
}
eval('$res = preg_match(\'/^'.$test.'/\', $identifier) ? true : false;');
return $res;
}
+
+/**
+* Delete Scorm tracks for selected users
+*
+* @param array $attemptids list of attempts that need to be deleted
+* @param int $scormid ID of Scorm
+*
+* return bool true deleted all responses, false failed deleting an attempt - stopped here
+*/
+function scorm_delete_responses($attemptids, $scormid) {
+ if(!is_array($attemptids) || empty($attemptids)) {
+ return false;
+ }
+
+ foreach($attemptids as $num => $attemptid) {
+ if(empty($attemptid)) {
+ unset($attemptids[$num]);
+ }
+ }
+
+ foreach($attemptids as $attempt) {
+ $keys = explode(':', $attempt);
+ if (count($keys) == 2) {
+ $userid = clean_param($keys[0], PARAM_INT);
+ $attemptid = clean_param($keys[1], PARAM_INT);
+ if (!$userid || !$attemptid || !scorm_delete_attempt($userid, $scormid, $attemptid)) {
+ return false;
+ }
+ } else {
+ return false;
+ }
+ }
+ return true;
+}
+
+/**
+* Delete Scorm tracks for selected users
+*
+* @param int $userid ID of User
+* @param int $scormid ID of Scorm
+* @param int $attemptid user attempt that need to be deleted
+*
+* return bool true suceeded
+*/
+function scorm_delete_attempt($userid, $scormid, $attemptid) {
+ global $DB;
+
+ $DB->delete_records('scorm_scoes_track', array('userid' => $userid, 'scormid' => $scormid, 'attempt' => $attemptid));
+ return true;
+}
?>
\ No newline at end of file
$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
+ $action = optional_param('action', '', PARAM_ALPHA);
+ $attemptids = optional_param('attemptid', array(), PARAM_RAW); //get array of responses to delete.
if (!empty($id)) {
if (! $cm = get_coursemodule_from_id('scorm', $id)) {
require_login($course->id, false, $cm);
- if (!has_capability('mod/scorm:viewreport', get_context_instance(CONTEXT_MODULE,$cm->id))) {
- print_error('cannotcallscript');
- }
+ $contextmodule = get_context_instance(CONTEXT_MODULE,$cm->id);
+
+ require_capability('mod/scorm:viewreport', $contextmodule);
add_to_log($course->id, 'scorm', 'report', 'report.php?id='.$cm->id, $scorm->id, $cm->id);
$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' => $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' => $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));
}
+ if ($action == 'delete' && has_capability('mod/scorm:deleteresponses',$contextmodule)) {
+ if (scorm_delete_responses($attemptids, $scorm->id)) { //delete responses.
+ notify(get_string('scormresponsedeleted', 'scorm'), 'notifysuccess');
+ }
+ }
+
$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 {scorm_scoes_track} st
INNER JOIN {groups_members} gm ON st.userid = gm.userid
- INNER JOIN {groupings_groups} gg ON gm.groupid = gg.groupid
+ INNER JOIN {groupings_groups} gg ON gm.groupid = gg.groupid
WHERE st.scormid = ? AND gg.groupingid = ?
GROUP BY st.userid,st.scormid
";
$params = array($scorm->id, $cm->groupingid);
} else {
$sql = "SELECT st.userid, st.scormid
- FROM {scorm_scoes_track} st
+ FROM {scorm_scoes_track} st
WHERE st.scormid = ?
GROUP BY st.userid,st.scormid
";
$params = array($scorm->id);
}
-
+
if ($scousers=$DB->get_records_sql($sql, $params)) {
$table = new stdClass();
- $table->head = array(' ', get_string('name'));
- $table->align = array('center', 'left');
- $table->wrap = array('nowrap', 'nowrap');
+ $table->head = array();
$table->width = '100%';
- $table->size = array(10, '*');
+ if (has_capability('mod/scorm:deleteresponses',$contextmodule)) {
+ $table->head[] = ' ';
+ $table->align[] = 'center';
+ $table->wrap[] = 'nowrap';
+ $table->size[] = '10';
+ }
+
+ $table->head[] = ' ';
+ $table->align[] = 'center';
+ $table->wrap[] = 'nowrap';
+ $table->size[] = '10';
+
+ $table->head[] = get_string('name');
+ $table->align[] = 'left';
+ $table->wrap[] = 'nowrap';
+ $table->size[] = '*';
$table->head[]= get_string('attempt','scorm');
$table->align[] = 'center';
foreach($scousers as $scouser){
$userdata = scorm_get_user_data($scouser->userid);
- $attempt = scorm_get_last_attempt($scorm->id,$scouser->userid);
+ $attempt = scorm_get_last_attempt($scorm->id,$scouser->userid);
for ($a = 1; $a<=$attempt; $a++) {
$row = array();
+ if (has_capability('mod/scorm:deleteresponses',$contextmodule)) {
+ $row[] = '<input type="checkbox" name="attemptid[]" value="'. $scouser->userid . ':' . $a . '" />';
+ }
$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 = ? and userid = ? and attempt = ?';
$params = array($scorm->id, $scouser->userid, $a);
- $timetracks = $DB->get_record_select('scorm_scoes_track', $select, $params, 'min(timemodified) as started, max(timemodified) as last');
+ $timetracks = $DB->get_record_select('scorm_scoes_track', $select, $params, 'min(timemodified) as started, max(timemodified) as last');
+ // jump out here if this attempt doesnt exist
+ if (!$timetracks->started) {
+ continue;
+ }
$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;
}
}
+ echo '<div id="scormtablecontainer">';
+ if (has_capability('mod/scorm:deleteresponses',$contextmodule)) {
+ echo '<form id="attemptsform" method="post" action="'.$_SERVER['PHP_SELF'].'" onsubmit="var menu = document.getElementById(\'menuaction\'); return (menu.options[menu.selectedIndex].value == \'delete\' ? \''.addslashes(get_string('deleteattemptcheck','quiz')).'\' : true);">';
+ echo '<input type="hidden" name="id" value="'.$id.'">';
+ print_table($table);
+ echo '<a href="javascript:select_all_in(\'DIV\',null,\'scormtablecontainer\');">'.get_string('selectall', 'quiz').'</a> / ';
+ echo '<a href="javascript:deselect_all_in(\'DIV\',null,\'scormtablecontainer\');">'.get_string('selectnone', 'quiz').'</a> ';
+ echo ' ';
+ $options = array('delete' => get_string('delete'));
+ echo choose_from_menu($options, 'action', '', get_string('withselected', 'quiz'), 'if(this.selectedIndex > 0) submitFormById(\'attemptsform\');', '', true);
+ echo '<noscript id="noscriptmenuaction" style="display: inline;">';
+ echo '<div>';
+ echo '<input type="submit" value="'.get_string('go').'" /></div></noscript>';
+ echo '<script type="text/javascript">'."\n<!--\n".'document.getElementById("noscriptmenuaction").style.display = "none";'."\n-->\n".'</script>';
+ echo '</form>';
+ } else {
+ print_table($table);
+ }
+ echo '</div>';
+ } else {
+ notify(get_string('noactivity', 'scorm'));
}
- print_table($table);
} else {
if (!empty($user)) {
// User SCORM 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>');
+ 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\">".
$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->wrap = array('nowrap', 'nowrap');
$table->width = '100%';
$table->size = array('*', '*');
-
+
$existelements = false;
if ($scorm->version == 'SCORM_1.3') {
$elements = array('raw' => 'cmi.score.raw',
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'),
$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;
}
}
$table->data[] = $row;
-
+
$i++;
$interactionid = 'cmi.interactions.'.$i.'.id';
}
echo '<h3>'.get_string('interactions','scorm').'</h3>';
print_table($table);
}
-
+
// Print Objectives data
$table = new stdClass();
$table->head = array(get_string('identifier','scorm'),
$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;
}
}
$table->data[] = $row;
-
+
$i++;
$objectiveid = 'cmi.objectives.'.$i.'.id';
}
$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 (substr($element,0,3) == 'cmi') {
if (!(in_array ($element, $printedelements))) {
$existelements = true;
$row = array();
if ($existelements) {
echo '<h3>'.get_string('othertracks','scorm').'</h3>';
print_table($table);
- }
+ }
print_simple_box_end();
} else {
print_error('missingparameter');
