You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1291 lines
53 KiB
1291 lines
53 KiB
2 years ago
|
<?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/>.
|
||
|
|
|
||
|
|
defined('MOODLE_INTERNAL') || die();
|
||
|
|
|
||
|
|
require_once($CFG->dirroot.'/mod/scorm/datamodels/scormlib.php');
|
||
|
|
require_once($CFG->dirroot.'/mod/scorm/datamodels/sequencinglib.php');
|
||
|
|
|
||
|
|
function scorm_seq_overall ($scoid, $userid, $request, $attempt) {
|
||
|
|
$seq = scorm_seq_navigation($scoid, $userid, $request, $attempt);
|
||
|
|
if ($seq->navigation) {
|
||
|
|
if ($seq->termination != null) {
|
||
|
|
$seq = scorm_seq_termination($scoid, $userid, $seq);
|
||
|
|
}
|
||
|
|
if ($seq->sequencing != null) {
|
||
|
|
$seq = scorm_seq_sequencing($scoid, $userid, $seq);
|
||
|
|
if ($seq->sequencing == 'exit') { // Return the control to the LTS.
|
||
|
|
return 'true';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($seq->delivery != null) {
|
||
|
|
$seq = scorm_sequencing_delivery($scoid, $userid, $seq);
|
||
|
|
$seq = scorm_content_delivery_environment ($seq, $userid);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($seq->exception != null) {
|
||
|
|
$seq = scorm_sequencing_exception($seq);
|
||
|
|
}
|
||
|
|
return 'true';
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_seq_navigation ($scoid, $userid, $request, $attempt=0) {
|
||
|
|
global $DB;
|
||
|
|
|
||
|
|
// Sequencing structure.
|
||
|
|
$seq = new stdClass();
|
||
|
|
$seq->currentactivity = scorm_get_sco($scoid);
|
||
|
|
$seq->traversaldir = null;
|
||
|
|
$seq->nextactivity = null;
|
||
|
|
$seq->deliveryvalid = null;
|
||
|
|
$seq->attempt = $attempt;
|
||
|
|
|
||
|
|
$seq->identifiedactivity = null;
|
||
|
|
$seq->delivery = null;
|
||
|
|
$seq->deliverable = false;
|
||
|
|
$seq->active = scorm_seq_is('active', $scoid, $userid);
|
||
|
|
$seq->suspended = scorm_seq_is('suspended', $scoid, $userid);
|
||
|
|
$seq->navigation = null;
|
||
|
|
$seq->termination = null;
|
||
|
|
$seq->sequencing = null;
|
||
|
|
$seq->target = null;
|
||
|
|
$seq->endsession = null;
|
||
|
|
$seq->exception = null;
|
||
|
|
$seq->reachable = true;
|
||
|
|
$seq->prevact = true;
|
||
|
|
|
||
|
|
$sco = scorm_get_sco($scoid);
|
||
|
|
|
||
|
|
switch ($request) {
|
||
|
|
case 'start_':
|
||
|
|
if (empty($seq->currentactivity)) {
|
||
|
|
$seq->navigation = true;
|
||
|
|
$seq->sequencing = 'start';
|
||
|
|
} else {
|
||
|
|
$seq->exception = 'NB.2.1-1'; // Sequencing session already begun.
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case 'resumeall_':
|
||
|
|
if (empty($seq->currentactivity)) {
|
||
|
|
// TODO: I think it's suspend instead of suspendedactivity.
|
||
|
|
if ($track = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $scoid, 'userid' => $userid, 'element' => 'suspendedactivity'))) {
|
||
|
|
|
||
|
|
$seq->navigation = true;
|
||
|
|
$seq->sequencing = 'resumeall';
|
||
|
|
} else {
|
||
|
|
$seq->exception = 'NB.2.1-3'; // No suspended activity found.
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
$seq->exception = 'NB.2.1-1'; // Sequencing session already begun.
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case 'continue_':
|
||
|
|
case 'previous_':
|
||
|
|
if (!empty($seq->currentactivity)) {
|
||
|
|
$sco = $seq->currentactivity;
|
||
|
|
if ($sco->parent != '/') {
|
||
|
|
if ($parentsco = scorm_get_parent($sco)) {
|
||
|
|
|
||
|
|
if (isset($parentsco->flow) && ($parentsco->flow == true)) { // I think it's parentsco.
|
||
|
|
// Current activity is active!
|
||
|
|
if (scorm_seq_is('active', $sco->id, $userid)) {
|
||
|
|
if ($request == 'continue_') {
|
||
|
|
$seq->navigation = true;
|
||
|
|
$seq->termination = 'exit';
|
||
|
|
$seq->sequencing = 'continue';
|
||
|
|
} else {
|
||
|
|
if (!isset($parentsco->forwardonly) || ($parentsco->forwardonly == false)) {
|
||
|
|
$seq->navigation = true;
|
||
|
|
$seq->termination = 'exit';
|
||
|
|
$seq->sequencing = 'previous';
|
||
|
|
} else {
|
||
|
|
$seq->exception = 'NB.2.1-5'; // Violates control mode.
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
$seq->exception = 'NB.2.1-2'; // Current activity not defined.
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case 'forward_':
|
||
|
|
case 'backward_':
|
||
|
|
$seq->exception = 'NB.2.1-7'; // None to be done, behavior not defined.
|
||
|
|
break;
|
||
|
|
case 'exit_':
|
||
|
|
case 'abandon_':
|
||
|
|
if (!empty($seq->currentactivity)) {
|
||
|
|
// Current activity is active !
|
||
|
|
$seq->navigation = true;
|
||
|
|
$seq->termination = substr($request, 0, -1);
|
||
|
|
$seq->sequencing = 'exit';
|
||
|
|
} else {
|
||
|
|
$seq->exception = 'NB.2.1-2'; // Current activity not defined.
|
||
|
|
}
|
||
|
|
case 'exitall_':
|
||
|
|
case 'abandonall_':
|
||
|
|
case 'suspendall_':
|
||
|
|
if (!empty($seq->currentactivity)) {
|
||
|
|
$seq->navigation = true;
|
||
|
|
$seq->termination = substr($request, 0, -1);
|
||
|
|
$seq->sequencing = 'exit';
|
||
|
|
} else {
|
||
|
|
$seq->exception = 'NB.2.1-2'; // Current activity not defined.
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
default: // Example {target=<STRING>}choice.
|
||
|
|
if ($targetsco = $DB->get_record('scorm_scoes', array('scorm' => $sco->scorm, 'identifier' => $request))) {
|
||
|
|
if ($targetsco->parent != '/') {
|
||
|
|
$seq->target = $request;
|
||
|
|
} else {
|
||
|
|
if ($parentsco = scorm_get_parent($targetsco)) {
|
||
|
|
if (!isset($parentsco->choice) || ($parentsco->choice == true)) {
|
||
|
|
$seq->target = $request;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($seq->target != null) {
|
||
|
|
if (empty($seq->currentactivity)) {
|
||
|
|
$seq->navigation = true;
|
||
|
|
$seq->sequencing = 'choice';
|
||
|
|
} else {
|
||
|
|
if (!$sco = scorm_get_sco($scoid)) {
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
if ($sco->parent != $targetsco->parent) {
|
||
|
|
$ancestors = scorm_get_ancestors($sco);
|
||
|
|
$commonpos = scorm_find_common_ancestor($ancestors, $targetsco);
|
||
|
|
if ($commonpos !== false) {
|
||
|
|
if ($activitypath = array_slice($ancestors, 0, $commonpos)) {
|
||
|
|
foreach ($activitypath as $activity) {
|
||
|
|
if (scorm_seq_is('active', $activity->id, $userid) &&
|
||
|
|
(isset($activity->choiceexit) && ($activity->choiceexit == false))) {
|
||
|
|
$seq->navigation = false;
|
||
|
|
$seq->termination = null;
|
||
|
|
$seq->sequencing = null;
|
||
|
|
$seq->target = null;
|
||
|
|
$seq->exception = 'NB.2.1-8'; // Violates control mode.
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
$seq->navigation = false;
|
||
|
|
$seq->termination = null;
|
||
|
|
$seq->sequencing = null;
|
||
|
|
$seq->target = null;
|
||
|
|
$seq->exception = 'NB.2.1-9';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
// Current activity is active !
|
||
|
|
$seq->navigation = true;
|
||
|
|
$seq->sequencing = 'choice';
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
$seq->exception = 'NB.2.1-10'; // Violates control mode.
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
$seq->exception = 'NB.2.1-11'; // Target activity does not exists.
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_seq_termination ($seq, $userid) {
|
||
|
|
if (empty($seq->currentactivity)) {
|
||
|
|
$seq->termination = false;
|
||
|
|
$seq->exception = 'TB.2.3-1';
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
|
||
|
|
$sco = $seq->currentactivity;
|
||
|
|
|
||
|
|
if ((($seq->termination == 'exit') || ($seq->termination == 'abandon')) && !$seq->active) {
|
||
|
|
$seq->termination = false;
|
||
|
|
$seq->exception = 'TB.2.3-2';
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
switch ($seq->termination) {
|
||
|
|
case 'exit':
|
||
|
|
scorm_seq_end_attempt($sco, $userid, $seq);
|
||
|
|
$seq = scorm_seq_exit_action_rules($seq, $userid);
|
||
|
|
do {
|
||
|
|
$exit = false;// I think this is false. Originally this was true.
|
||
|
|
$seq = scorm_seq_post_cond_rules($seq, $userid);
|
||
|
|
if ($seq->termination == 'exitparent') {
|
||
|
|
if ($sco->parent != '/') {
|
||
|
|
$sco = scorm_get_parent($sco);
|
||
|
|
$seq->currentactivity = $sco;
|
||
|
|
$seq->active = scorm_seq_is('active', $sco->id, $userid);
|
||
|
|
scorm_seq_end_attempt($sco, $userid, $seq);
|
||
|
|
$exit = true; // I think it's true. Originally this was false.
|
||
|
|
} else {
|
||
|
|
$seq->termination = false;
|
||
|
|
$seq->exception = 'TB.2.3-4';
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} while (($exit == false) && ($seq->termination == 'exit'));
|
||
|
|
if ($seq->termination == 'exit') {
|
||
|
|
$seq->termination = true;
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
case 'exitall':
|
||
|
|
if ($seq->active) {
|
||
|
|
scorm_seq_end_attempt($sco, $userid, $seq);
|
||
|
|
}
|
||
|
|
// Terminate Descendent Attempts Process.
|
||
|
|
|
||
|
|
if ($ancestors = scorm_get_ancestors($sco)) {
|
||
|
|
foreach ($ancestors as $ancestor) {
|
||
|
|
scorm_seq_end_attempt($ancestor, $userid, $seq);
|
||
|
|
$seq->currentactivity = $ancestor;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$seq->active = scorm_seq_is('active', $seq->currentactivity->id, $userid);
|
||
|
|
$seq->termination = true;
|
||
|
|
$seq->sequencing = 'exit';
|
||
|
|
break;
|
||
|
|
case 'suspendall':
|
||
|
|
if (($seq->active) || ($seq->suspended)) {
|
||
|
|
scorm_seq_set('suspended', $sco->id, $userid, $attempt);
|
||
|
|
} else {
|
||
|
|
if ($sco->parent != '/') {
|
||
|
|
$parentsco = scorm_get_parent($sco);
|
||
|
|
scorm_seq_set('suspended', $parentsco->id, $userid, $attempt);
|
||
|
|
} else {
|
||
|
|
$seq->termination = false;
|
||
|
|
$seq->exception = 'TB.2.3-3';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($ancestors = scorm_get_ancestors($sco)) {
|
||
|
|
foreach ($ancestors as $ancestor) {
|
||
|
|
scorm_seq_set('active', $ancestor->id, $userid, $attempt, false);
|
||
|
|
scorm_seq_set('suspended', $ancestor->id, $userid, $attempt);
|
||
|
|
$seq->currentactivity = $ancestor;
|
||
|
|
}
|
||
|
|
$seq->termination = true;
|
||
|
|
$seq->sequencing = 'exit';
|
||
|
|
} else {
|
||
|
|
$seq->termination = false;
|
||
|
|
$seq->exception = 'TB.2.3-5';
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case 'abandon':
|
||
|
|
scorm_seq_set('active', $sco->id, $userid, $attempt, false);
|
||
|
|
$seq->active = null;
|
||
|
|
$seq->termination = true;
|
||
|
|
break;
|
||
|
|
case 'abandonall':
|
||
|
|
if ($ancestors = scorm_get_ancestors($sco)) {
|
||
|
|
foreach ($ancestors as $ancestor) {
|
||
|
|
scorm_seq_set('active', $ancestor->id, $userid, $attempt, false);
|
||
|
|
$seq->currentactivity = $ancestor;
|
||
|
|
}
|
||
|
|
$seq->termination = true;
|
||
|
|
$seq->sequencing = 'exit';
|
||
|
|
} else {
|
||
|
|
$seq->termination = false;
|
||
|
|
$seq->exception = 'TB.2.3-6';
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
$seq->termination = false;
|
||
|
|
$seq->exception = 'TB.2.3-7';
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_seq_end_attempt($sco, $userid, $seq) {
|
||
|
|
global $DB;
|
||
|
|
if (scorm_is_leaf($sco)) {
|
||
|
|
if (!isset($sco->tracked) || ($sco->tracked == 1)) {
|
||
|
|
if (!scorm_seq_is('suspended', $sco->id, $userid)) {
|
||
|
|
if (!isset($sco->completionsetbycontent) || ($sco->completionsetbycontent == 0)) {
|
||
|
|
if (!scorm_seq_is('attemptprogressstatus', $sco->id, $userid, $seq->attempt)) {
|
||
|
|
$incomplete = $DB->get_field('scorm_scoes_track', 'value',
|
||
|
|
array('scoid' => $sco->id,
|
||
|
|
'userid' => $userid,
|
||
|
|
'element' => 'cmi.completion_status'));
|
||
|
|
if ($incomplete != 'incomplete') {
|
||
|
|
scorm_seq_set('attemptprogressstatus', $sco->id, $userid, $seq->attempt);
|
||
|
|
scorm_seq_set('attemptcompletionstatus', $sco->id, $userid, $seq->attempt);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (!isset($sco->objectivesetbycontent) || ($sco->objectivesetbycontent == 0)) {
|
||
|
|
if ($objectives = $DB->get_records('scorm_seq_objective', array('scoid' => $sco->id))) {
|
||
|
|
foreach ($objectives as $objective) {
|
||
|
|
if ($objective->primaryobj) {
|
||
|
|
if (!scorm_seq_is('objectiveprogressstatus', $sco->id, $userid, $seq->attempt)) {
|
||
|
|
scorm_seq_set('objectiveprogressstatus', $sco->id, $userid, $seq->attempt);
|
||
|
|
scorm_seq_set('objectivesatisfiedstatus', $sco->id, $userid, $seq->attempt);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} else if ($children = scorm_get_children($sco)) {
|
||
|
|
$suspended = false;
|
||
|
|
foreach ($children as $child) {
|
||
|
|
if (scorm_seq_is('suspended', $child, $userid, $seq->attempt)) {
|
||
|
|
$suspended = true;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($suspended) {
|
||
|
|
scorm_seq_set('suspended', $sco, $userid, $seq->attempt);
|
||
|
|
} else {
|
||
|
|
scorm_seq_set('suspended', $sco, $userid, $seq->attempt, false);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
scorm_seq_set('active', $sco->id, $userid, $seq->attempt, false);
|
||
|
|
scorm_seq_overall_rollup($sco, $userid, $seq);
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_seq_is($what, $scoid, $userid, $attempt=0) {
|
||
|
|
global $DB;
|
||
|
|
|
||
|
|
// Check if passed activity $what is active.
|
||
|
|
$active = false;
|
||
|
|
if ($track = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $scoid, 'userid' => $userid, 'attempt' => $attempt, 'element' => $what))) {
|
||
|
|
$active = true;
|
||
|
|
}
|
||
|
|
return $active;
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_seq_set($what, $scoid, $userid, $attempt=0, $value='true') {
|
||
|
|
global $DB;
|
||
|
|
|
||
|
|
$sco = scorm_get_sco($scoid);
|
||
|
|
|
||
|
|
// Set passed activity to active or not.
|
||
|
|
if ($value == false) {
|
||
|
|
$DB->delete_records('scorm_scoes_track', array('scoid' => $scoid, 'userid' => $userid,
|
||
|
|
'attempt' => $attempt, 'element' => $what));
|
||
|
|
} else {
|
||
|
|
scorm_insert_track($userid, $sco->scorm, $sco->id, $attempt, $what, $value);
|
||
|
|
}
|
||
|
|
|
||
|
|
// Update grades in gradebook.
|
||
|
|
$scorm = $DB->get_record('scorm', array('id' => $sco->scorm));
|
||
|
|
scorm_update_grades($scorm, $userid, true);
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_evaluate_condition ($rollupruleconds, $sco, $userid) {
|
||
|
|
global $DB;
|
||
|
|
|
||
|
|
$res = false;
|
||
|
|
|
||
|
|
if (strpos($rollupruleconds, 'and ')) {
|
||
|
|
$rollupruleconds = array_filter(explode(' and ', $rollupruleconds));
|
||
|
|
$conditioncombination = 'all';
|
||
|
|
} else {
|
||
|
|
$rollupruleconds = array_filter(explode(' or ', $rollupruleconds));
|
||
|
|
$conditioncombination = 'or';
|
||
|
|
}
|
||
|
|
foreach ($rollupruleconds as $rolluprulecond) {
|
||
|
|
$notflag = false;
|
||
|
|
if (strpos($rolluprulecond, 'not') !== false) {
|
||
|
|
$rolluprulecond = str_replace('not', '', $rolluprulecond);
|
||
|
|
$notflag = true;
|
||
|
|
}
|
||
|
|
$conditionarray['condition'] = $rolluprulecond;
|
||
|
|
$conditionarray['notflag'] = $notflag;
|
||
|
|
$conditions[] = $conditionarray;
|
||
|
|
}
|
||
|
|
foreach ($conditions as $condition) {
|
||
|
|
$checknot = true;
|
||
|
|
$res = false;
|
||
|
|
if ($condition['notflag']) {
|
||
|
|
$checknot = false;
|
||
|
|
}
|
||
|
|
switch ($condition['condition']) {
|
||
|
|
case 'satisfied':
|
||
|
|
$r = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $sco->id, 'userid' => $userid, 'element' => 'objectivesatisfiedstatus'));
|
||
|
|
if ((!isset($r->value) && !$checknot) || (isset($r->value) && ($r->value == $checknot))) {
|
||
|
|
$r = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $sco->id, 'userid' => $userid, 'element' => 'objectiveprogressstatus'));
|
||
|
|
if ((!isset($r->value) && !$checknot) || (isset($r->value) && ($r->value == $checknot))) {
|
||
|
|
$res = true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'objectiveStatusKnown':
|
||
|
|
$r = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $sco->id, 'userid' => $userid, 'element' => 'objectiveprogressstatus'));
|
||
|
|
if ((!isset($r->value) && !$checknot) || (isset($r->value) && ($r->value == $checknot))) {
|
||
|
|
$res = true;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'notobjectiveStatusKnown':
|
||
|
|
$r = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $sco->id, 'userid' => $userid, 'element' => 'objectiveprogressstatus'));
|
||
|
|
if ((!isset($r->value) && !$checknot) || (isset($r->value) && ($r->value == $checknot))) {
|
||
|
|
$res = true;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'objectiveMeasureKnown':
|
||
|
|
$r = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $sco->id, 'userid' => $userid, 'element' => 'objectivemeasurestatus'));
|
||
|
|
if ((!isset($r->value) && !$checknot) || (isset($r->value) && ($r->value == $checknot))) {
|
||
|
|
$res = true;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'notobjectiveMeasureKnown':
|
||
|
|
$r = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $sco->id, 'userid' => $userid, 'element' => 'objectivemeasurestatus'));
|
||
|
|
if ((!isset($r->value) && !$checknot) || (isset($r->value) && ($r->value == $checknot))) {
|
||
|
|
$res = true;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'completed':
|
||
|
|
$r = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $sco->id, 'userid' => $userid, 'element' => 'attemptcompletionstatus'));
|
||
|
|
if ((!isset($r->value) && !$checknot) || (isset($r->value) && ($r->value == $checknot))) {
|
||
|
|
$r = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $sco->id, 'userid' => $userid, 'element' => 'attemptprogressstatus'));
|
||
|
|
if ((!isset($r->value) && !$checknot) || (isset($r->value) && ($r->value == $checknot))) {
|
||
|
|
$res = true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'attempted':
|
||
|
|
$attempt = $DB->get_field('scorm_scoes_track', 'attempt',
|
||
|
|
array('scoid' => $sco->id, 'userid' => $userid, 'element' => 'x.start.time'));
|
||
|
|
if ($checknot && $attempt > 0) {
|
||
|
|
$res = true;
|
||
|
|
} else if (!$checknot && $attempt <= 0) {
|
||
|
|
$res = true;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'attemptLimitExceeded':
|
||
|
|
$r = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $sco->id, 'userid' => $userid, 'element' => 'activityprogressstatus'));
|
||
|
|
if ((!isset($r->value) && !$checknot) || (isset($r->value) && ($r->value == $checknot))) {
|
||
|
|
$r = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $sco->id, 'userid' => $userid,
|
||
|
|
'element' => 'limitconditionattemptlimitcontrol'));
|
||
|
|
if ((!isset($r->value) && !$checknot) || (isset($r->value) && ($r->value == $checknot))) {
|
||
|
|
if ($r = $DB->get_field('scorm_scoes_track', 'attempt', array('scoid' => $sco->id, 'userid' => $userid)) &&
|
||
|
|
$r2 = $DB->get_record('scorm_scoes_track', array('scoid' => $sco->id, 'userid' => $userid,
|
||
|
|
'element' => 'limitconditionattemptlimit')) ) {
|
||
|
|
|
||
|
|
if ($checknot && ($r->value >= $r2->value)) {
|
||
|
|
$res = true;
|
||
|
|
} else if (!$checknot && ($r->value < $r2->value)) {
|
||
|
|
$res = true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'activityProgressKnown':
|
||
|
|
$r = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $sco->id, 'userid' => $userid, 'element' => 'activityprogressstatus'));
|
||
|
|
if ((!isset($r->value) && !$checknot) || (isset($r->value) && ($r->value == $checknot))) {
|
||
|
|
$r = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $sco->id, 'userid' => $userid, 'element' => 'attemptprogressstatus'));
|
||
|
|
if ((!isset($r->value) && !$checknot) || (isset($r->value) && ($r->value == $checknot))) {
|
||
|
|
$res = true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($conditioncombination == 'all' && !$res) {
|
||
|
|
break;
|
||
|
|
} else if ($conditioncombination == 'or' && $res) {
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return $res;
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_check_activity ($activity, $userid) {
|
||
|
|
$act = scorm_seq_rules_check($activity, 'disabled');
|
||
|
|
if ($act != null) {
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
if (scorm_limit_cond_check ($activity, $userid)) {
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_limit_cond_check ($activity, $userid) {
|
||
|
|
global $DB;
|
||
|
|
|
||
|
|
if (isset($activity->tracked) && ($activity->tracked == 0)) {
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (scorm_seq_is('active', $activity->id, $userid) || scorm_seq_is('suspended', $activity->id, $userid)) {
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!isset($activity->limitcontrol) || ($activity->limitcontrol == 1)) {
|
||
|
|
$r = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $activity->id, 'userid' => $userid, 'element' => 'activityattemptcount'));
|
||
|
|
if (scorm_seq_is('activityprogressstatus', $activity->id, $userid) && ($r->value >= $activity->limitattempt)) {
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!isset($activity->limitabsdurcontrol) || ($activity->limitabsdurcontrol == 1)) {
|
||
|
|
$r = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $activity->id, 'userid' => $userid, 'element' => 'activityabsoluteduration'));
|
||
|
|
if (scorm_seq_is('activityprogressstatus', $activity->id, $userid) && ($r->value >= $activity->limitabsduration)) {
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!isset($activity->limitexpdurcontrol) || ($activity->limitexpdurcontrol == 1)) {
|
||
|
|
$r = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $activity->id, 'userid' => $userid, 'element' => 'activityexperiencedduration'));
|
||
|
|
if (scorm_seq_is('activityprogressstatus', $activity->id, $userid) && ($r->value >= $activity->limitexpduration)) {
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!isset($activity->limitattabsdurcontrol) || ($activity->limitattabsdurcontrol == 1)) {
|
||
|
|
$r = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $activity->id, 'userid' => $userid, 'element' => 'attemptabsoluteduration'));
|
||
|
|
if (scorm_seq_is('activityprogressstatus', $activity->id, $userid) && ($r->value >= $activity->limitattabsduration)) {
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!isset($activity->limitattexpdurcontrol) || ($activity->limitattexpdurcontrol == 1)) {
|
||
|
|
$r = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $activity->id, 'userid' => $userid, 'element' => 'attemptexperiencedduration'));
|
||
|
|
if (scorm_seq_is('activityprogressstatus', $activity->id, $userid) && ($r->value >= $activity->limitattexpduration)) {
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!isset($activity->limitbegincontrol) || ($activity->limitbegincontrol == 1)) {
|
||
|
|
$r = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $activity->id, 'userid' => $userid, 'element' => 'begintime'));
|
||
|
|
if (isset($activity->limitbegintime) && time() >= $activity->limitbegintime) {
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!isset($activity->limitbegincontrol) || ($activity->limitbegincontrol == 1)) {
|
||
|
|
if (isset($activity->limitbegintime) && time() < $activity->limitbegintime) {
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!isset($activity->limitendcontrol) || ($activity->limitendcontrol == 1)) {
|
||
|
|
if (isset($activity->limitendtime) && time() > $activity->limitendtime) {
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_seq_rules_check ($sco, $action) {
|
||
|
|
global $DB;
|
||
|
|
$act = null;
|
||
|
|
|
||
|
|
if ($rules = $DB->get_records('scorm_seq_ruleconds', array('scoid' => $sco->id, 'action' => $action))) {
|
||
|
|
foreach ($rules as $rule) {
|
||
|
|
if ($act = scorm_seq_rule_check($sco, $rule)) {
|
||
|
|
return $act;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return $act;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_seq_rule_check ($sco, $rule) {
|
||
|
|
global $DB;
|
||
|
|
|
||
|
|
$bag = Array();
|
||
|
|
$cond = '';
|
||
|
|
$ruleconds = $DB->get_records('scorm_seq_rulecond', array('scoid' => $sco->id, 'ruleconditionsid' => $rule->id));
|
||
|
|
foreach ($ruleconds as $rulecond) {
|
||
|
|
if ($rulecond->operator == 'not') {
|
||
|
|
if ($rulecond->cond != 'unknown' ) {
|
||
|
|
$rulecond->cond = 'not'.$rulecond->cond;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
$bag[] = $rulecond->cond;
|
||
|
|
}
|
||
|
|
if (empty($bag)) {
|
||
|
|
$cond = 'unknown';
|
||
|
|
return $cond;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($rule->conditioncombination == 'all') {
|
||
|
|
foreach ($bag as $con) {
|
||
|
|
$cond = $cond.' and '.$con;
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
foreach ($bag as $con) {
|
||
|
|
$cond = $cond.' or '.$con;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return $cond;
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_seq_overall_rollup($sco, $userid, $seq) {
|
||
|
|
if ($ancestors = scorm_get_ancestors($sco)) {
|
||
|
|
foreach ($ancestors as $ancestor) {
|
||
|
|
if (!scorm_is_leaf($ancestor)) {
|
||
|
|
scorm_seq_measure_rollup($sco, $userid, $seq->attempt);
|
||
|
|
}
|
||
|
|
scorm_seq_objective_rollup($sco, $userid, $seq->attempt);
|
||
|
|
scorm_seq_activity_progress_rollup($sco, $userid, $seq);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_seq_measure_rollup($sco, $userid, $attempt = 0) {
|
||
|
|
global $DB;
|
||
|
|
|
||
|
|
$totalmeasure = 0; // Check if there is something similar in the database.
|
||
|
|
$valid = false; // Same as in the last line.
|
||
|
|
$countedmeasures = 0; // Same too.
|
||
|
|
$targetobjective = null;
|
||
|
|
$objectives = $DB->get_records('scorm_seq_objective', array('scoid' => $sco->id));
|
||
|
|
|
||
|
|
foreach ($objectives as $objective) {
|
||
|
|
if ($objective->primaryobj == true) { // Objective contributes to rollup.
|
||
|
|
$targetobjective = $objective;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
if ($targetobjective != null) {
|
||
|
|
$children = scorm_get_children($sco);
|
||
|
|
if (!empty ($children)) {
|
||
|
|
foreach ($children as $child) {
|
||
|
|
$child = scorm_get_sco ($child);
|
||
|
|
if (!isset($child->tracked) || ($child->tracked == 1)) {
|
||
|
|
$rolledupobjective = null;// We set the rolled up activity to undefined.
|
||
|
|
$objectives = $DB->get_records('scorm_seq_objective', array('scoid' => $child->id));
|
||
|
|
foreach ($objectives as $objective) {
|
||
|
|
if ($objective->primaryobj == true) {// Objective contributes to rollup I'm using primaryobj field, but not.
|
||
|
|
$rolledupobjective = $objective;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($rolledupobjective != null) {
|
||
|
|
$child = scorm_get_sco($child->id);
|
||
|
|
$countedmeasures = $countedmeasures + ($child->measureweight);
|
||
|
|
if (!scorm_seq_is('objectivemeasurestatus', $sco->id, $userid, $attempt)) {
|
||
|
|
$normalizedmeasure = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $child->id, 'userid' => $userid, 'element' => 'objectivenormalizedmeasure'));
|
||
|
|
$totalmeasure = $totalmeasure + (($normalizedmeasure->value) * ($child->measureweight));
|
||
|
|
$valid = true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!$valid) {
|
||
|
|
scorm_seq_set('objectivemeasurestatus', $sco->id, $userid, $attempt, false);
|
||
|
|
} else {
|
||
|
|
if ($countedmeasures > 0) {
|
||
|
|
scorm_seq_set('objectivemeasurestatus', $sco->id, $userid, $attempt);
|
||
|
|
$val = $totalmeasure / $countedmeasures;
|
||
|
|
scorm_seq_set('objectivenormalizedmeasure', $sco->id, $userid, $attempt, $val);
|
||
|
|
} else {
|
||
|
|
scorm_seq_set('objectivemeasurestatus', $sco->id, $userid, $attempt, false);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_seq_objective_rollup($sco, $userid, $attempt = 0) {
|
||
|
|
global $DB;
|
||
|
|
|
||
|
|
scorm_seq_objective_rollup_measure($sco, $userid, $attempt);
|
||
|
|
scorm_seq_objective_rollup_rules($sco, $userid, $attempt);
|
||
|
|
scorm_seq_objective_rollup_default($sco, $userid, $attempt);
|
||
|
|
|
||
|
|
/*
|
||
|
|
if ($targetobjective->satisfiedbymeasure) {
|
||
|
|
scorm_seq_objective_rollup_measure($sco, $userid);
|
||
|
|
}
|
||
|
|
else{
|
||
|
|
if ((scorm_seq_rollup_rule_check($sco, $userid, 'incomplete'))
|
||
|
|
|| (scorm_seq_rollup_rule_check($sco, $userid, 'completed'))) {
|
||
|
|
scorm_seq_objective_rollup_rules($sco, $userid);
|
||
|
|
}
|
||
|
|
else{
|
||
|
|
|
||
|
|
$rolluprules = $DB->get_record('scorm_seq_rolluprule', array('scoid'=>$sco->id, 'userid'=>$userid));
|
||
|
|
foreach ($rolluprules as $rolluprule) {
|
||
|
|
$rollupruleconds = $DB->get_records('scorm_seq_rolluprulecond', array('rollupruleid'=>$rolluprule->id));
|
||
|
|
foreach ($rollupruleconds as $rolluprulecond) {
|
||
|
|
|
||
|
|
switch ($rolluprulecond->cond!='satisfied'
|
||
|
|
&& $rolluprulecond->cond!='completed' && $rolluprulecond->cond!='attempted') {
|
||
|
|
|
||
|
|
scorm_seq_set('objectivesatisfiedstatus', $sco->id, $userid, false);
|
||
|
|
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
}
|
||
|
|
}
|
||
|
|
*/
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_seq_objective_rollup_measure($sco, $userid, $attempt = 0) {
|
||
|
|
global $DB;
|
||
|
|
|
||
|
|
$targetobjective = null;
|
||
|
|
|
||
|
|
$objectives = $DB->get_records('scorm_seq_objective', array('scoid' => $sco->id));
|
||
|
|
foreach ($objectives as $objective) {
|
||
|
|
if ($objective->primaryobj == true) {
|
||
|
|
$targetobjective = $objective;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($targetobjective != null) {
|
||
|
|
if ($targetobjective->satisfiedbymeasure) {
|
||
|
|
if (!scorm_seq_is('objectiveprogressstatus', $sco->id, $userid, $attempt)) {
|
||
|
|
scorm_seq_set('objectiveprogressstatus', $sco->id, $userid, $attempt, false);
|
||
|
|
} else {
|
||
|
|
if (scorm_seq_is('active', $sco->id, $userid, $attempt)) {
|
||
|
|
$isactive = true;
|
||
|
|
} else {
|
||
|
|
$isactive = false;
|
||
|
|
}
|
||
|
|
|
||
|
|
$normalizedmeasure = $DB->get_record('scorm_scoes_track',
|
||
|
|
array('scoid' => $sco->id, 'userid' => $userid, 'element' => 'objectivenormalizedmeasure'));
|
||
|
|
|
||
|
|
$sco = scorm_get_sco ($sco->id);
|
||
|
|
|
||
|
|
if (!$isactive || ($isactive &&
|
||
|
|
(!isset($sco->measuresatisfactionifactive) || $sco->measuresatisfactionifactive == true))) {
|
||
|
|
if (isset($normalizedmeasure->value) && ($normalizedmeasure->value >= $targetobjective->minnormalizedmeasure)) {
|
||
|
|
scorm_seq_set('objectiveprogressstatus', $sco->id, $userid, $attempt);
|
||
|
|
scorm_seq_set('objectivesatisfiedstatus', $sco->id, $userid, $attempt);
|
||
|
|
} else {
|
||
|
|
// TODO: handle the case where cmi.success_status is passed and objectivenormalizedmeasure undefined.
|
||
|
|
scorm_seq_set('objectiveprogressstatus', $sco->id, $userid, $attempt);
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
scorm_seq_set('objectiveprogressstatus', $sco->id, $userid, $attempt, false);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_seq_objective_rollup_default($sco, $userid, $attempt = 0) {
|
||
|
|
global $DB;
|
||
|
|
|
||
|
|
if (!(scorm_seq_rollup_rule_check($sco, $userid, 'incomplete')) && !(scorm_seq_rollup_rule_check($sco, $userid, 'completed'))) {
|
||
|
|
if ($rolluprules = $DB->get_record('scorm_seq_rolluprule', array('scoid' => $sco->id))) {
|
||
|
|
foreach ($rolluprules as $rolluprule) {
|
||
|
|
$rollupruleconds = $DB->get_records('scorm_seq_rolluprulecond', array('rollupruleid' => $rolluprule->id));
|
||
|
|
foreach ($rollupruleconds as $rolluprulecond) {
|
||
|
|
if ($rolluprulecond->cond != 'satisfied' && $rolluprulecond->cond != 'completed' &&
|
||
|
|
$rolluprulecond->cond != 'attempted') {
|
||
|
|
scorm_seq_set('objectivesatisfiedstatus', $sco->id, $userid, $attempt, false);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
function scorm_seq_objective_rollup_rules($sco, $userid, $attempt = 0) {
|
||
|
|
global $DB;
|
||
|
|
|
||
|
|
$targetobjective = null;
|
||
|
|
|
||
|
|
$objectives = $DB->get_records('scorm_seq_objective', array('scoid' => $sco->id));
|
||
|
|
foreach ($objectives as $objective) {
|
||
|
|
if ($objective->primaryobj == true) {// Objective contributes to rollup I'm using primaryobj field, but not.
|
||
|
|
$targetobjective = $objective;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($targetobjective != null) {
|
||
|
|
|
||
|
|
if (scorm_seq_rollup_rule_check($sco, $userid, 'notsatisfied')) {// With not satisfied rollup for the activity.
|
||
|
|
scorm_seq_set('objectiveprogressstatus', $sco->id, $userid, $attempt);
|
||
|
|
scorm_seq_set('objectivesatisfiedstatus', $sco->id, $userid, $attempt, false);
|
||
|
|
}
|
||
|
|
if (scorm_seq_rollup_rule_check($sco, $userid, 'satisfied')) {// With satisfied rollup for the activity.
|
||
|
|
scorm_seq_set('objectiveprogressstatus', $sco->id, $userid, $attempt);
|
||
|
|
scorm_seq_set('objectivesatisfiedstatus', $sco->id, $userid, $attempt);
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_seq_activity_progress_rollup ($sco, $userid, $seq) {
|
||
|
|
|
||
|
|
if (scorm_seq_rollup_rule_check($sco, $userid, 'incomplete')) {
|
||
|
|
// Incomplete rollup action.
|
||
|
|
scorm_seq_set('attemptcompletionstatus', $sco->id, $userid, $seq->attempt, false);
|
||
|
|
scorm_seq_set('attemptprogressstatus', $sco->id, $userid, $seq->attempt, true);
|
||
|
|
|
||
|
|
}
|
||
|
|
if (scorm_seq_rollup_rule_check($sco, $userid, 'completed')) {
|
||
|
|
// Incomplete rollup action.
|
||
|
|
scorm_seq_set('attemptcompletionstatus', $sco->id, $userid, $seq->attempt, true);
|
||
|
|
scorm_seq_set('attemptprogressstatus', $sco->id, $userid, $seq->attempt, true);
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_seq_rollup_rule_check ($sco, $userid, $action) {
|
||
|
|
global $DB;
|
||
|
|
|
||
|
|
if ($rolluprules = $DB->get_record('scorm_seq_rolluprule', array('scoid' => $sco->id, 'action' => $action))) {
|
||
|
|
$childrenbag = Array ();
|
||
|
|
$children = scorm_get_children ($sco);
|
||
|
|
|
||
|
|
foreach ($rolluprules as $rolluprule) {
|
||
|
|
foreach ($children as $child) {
|
||
|
|
|
||
|
|
/*$tracked = $DB->get_records('scorm_scoes_track', array('scoid'=>$child->id, 'userid'=>$userid));
|
||
|
|
if ($tracked && $tracked->attemp != 0) {*/
|
||
|
|
$child = scorm_get_sco ($child);
|
||
|
|
if (!isset($child->tracked) || ($child->tracked == 1)) {
|
||
|
|
if (scorm_seq_check_child ($child, $action, $userid)) {
|
||
|
|
$rollupruleconds = $DB->get_records('scorm_seq_rolluprulecond', array('rollupruleid' => $rolluprule->id));
|
||
|
|
$evaluate = scorm_seq_evaluate_rollupcond($child, $rolluprule->conditioncombination,
|
||
|
|
$rollupruleconds, $userid);
|
||
|
|
if ($evaluate == 'unknown') {
|
||
|
|
array_push($childrenbag, 'unknown');
|
||
|
|
} else {
|
||
|
|
if ($evaluate == true) {
|
||
|
|
array_push($childrenbag, true);
|
||
|
|
} else {
|
||
|
|
array_push($childrenbag, false);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
$change = false;
|
||
|
|
|
||
|
|
switch ($rolluprule->childactivityset) {
|
||
|
|
|
||
|
|
case 'all':
|
||
|
|
// I think I can use this condition instead equivalent to OR.
|
||
|
|
if ((array_search(false, $childrenbag) === false) && (array_search('unknown', $childrenbag) === false)) {
|
||
|
|
$change = true;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'any':
|
||
|
|
// I think I can use this condition instead equivalent to OR.
|
||
|
|
if (array_search(true, $childrenbag) !== false) {
|
||
|
|
$change = true;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'none':
|
||
|
|
// I think I can use this condition instead equivalent to OR.
|
||
|
|
if ((array_search(true, $childrenbag) === false) && (array_search('unknown', $childrenbag) === false)) {
|
||
|
|
$change = true;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'atleastcount':
|
||
|
|
// I think I can use this condition instead equivalent to OR.
|
||
|
|
foreach ($childrenbag as $itm) {
|
||
|
|
$cont = 0;
|
||
|
|
if ($itm === true) {
|
||
|
|
$cont++;
|
||
|
|
}
|
||
|
|
if ($cont >= $rolluprule->minimumcount) {
|
||
|
|
$change = true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'atleastcount':
|
||
|
|
foreach ($childrenbag as $itm) {// I think I can use this condition instead equivalent to OR.
|
||
|
|
$cont = 0;
|
||
|
|
if ($itm === true) {
|
||
|
|
$cont++;
|
||
|
|
}
|
||
|
|
if ($cont >= $rolluprule->minimumcount) {
|
||
|
|
$change = true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'atleastpercent':
|
||
|
|
foreach ($childrenbag as $itm) {// I think I can use this condition instead equivalent to OR.
|
||
|
|
$cont = 0;
|
||
|
|
if ($itm === true) {
|
||
|
|
$cont++;
|
||
|
|
}
|
||
|
|
if (($cont / count($childrenbag)) >= $rolluprule->minimumcount) {
|
||
|
|
$change = true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
if ($change == true) {
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_seq_flow_tree_traversal($activity, $direction, $childrenflag, $prevdirection, $seq, $userid, $skip = false) {
|
||
|
|
$revdirection = false;
|
||
|
|
$parent = scorm_get_parent($activity);
|
||
|
|
if (!empty($parent)) {
|
||
|
|
$children = scorm_get_available_children($parent);
|
||
|
|
} else {
|
||
|
|
$children = array();
|
||
|
|
}
|
||
|
|
$childrensize = count($children);
|
||
|
|
|
||
|
|
if (($prevdirection != null && $prevdirection == 'backward') && ($children[$childrensize - 1]->id == $activity->id)) {
|
||
|
|
$direction = 'backward';
|
||
|
|
$activity = $children[0];
|
||
|
|
$revdirection = true;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($direction == 'forward') {
|
||
|
|
$ancestors = scorm_get_ancestors($activity);
|
||
|
|
$ancestorsroot = array_reverse($ancestors);
|
||
|
|
$preorder = array();
|
||
|
|
$preorder = scorm_get_preorder($preorder, $ancestorsroot[0]);
|
||
|
|
$preordersize = count($preorder);
|
||
|
|
if (($activity->id == $preorder[$preordersize - 1]->id) || (($activity->parent == '/') && !($childrenflag))) {
|
||
|
|
$seq->endsession = true;
|
||
|
|
$seq->nextactivity = null;
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
if (scorm_is_leaf ($activity) || !$childrenflag) {
|
||
|
|
if ($children[$childrensize - 1]->id == $activity->id) {
|
||
|
|
$seq = scorm_seq_flow_tree_traversal ($parent, $direction, false, null, $seq, $userid);
|
||
|
|
if ($seq->nextactivity->launch == null) {
|
||
|
|
$seq = scorm_seq_flow_tree_traversal ($seq->nextactivity, $direction, true, null, $seq, $userid);
|
||
|
|
}
|
||
|
|
return $seq;
|
||
|
|
} else {
|
||
|
|
$position = 0;
|
||
|
|
foreach ($children as $sco) {
|
||
|
|
if ($sco->id == $activity->id) {
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
$position++;
|
||
|
|
}
|
||
|
|
if ($position != ($childrensize - 1)) {
|
||
|
|
$seq->nextactivity = $children[$position + 1];
|
||
|
|
$seq->traversaldir = $direction;
|
||
|
|
return $seq;
|
||
|
|
} else {
|
||
|
|
$siblings = scorm_get_siblings($activity);
|
||
|
|
$children = scorm_get_children($siblings[0]);
|
||
|
|
$seq->nextactivity = $children[0];
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
$children = scorm_get_available_children($activity);
|
||
|
|
if (!empty($children)) {
|
||
|
|
$seq->traversaldir = $direction;
|
||
|
|
$seq->nextactivity = $children[0];
|
||
|
|
return $seq;
|
||
|
|
} else {
|
||
|
|
$seq->traversaldir = null;
|
||
|
|
$seq->nextactivity = null;
|
||
|
|
$seq->exception = 'SB.2.1-2';
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} else if ($direction == 'backward') {
|
||
|
|
if ($activity->parent == '/') {
|
||
|
|
$seq->traversaldir = null;
|
||
|
|
$seq->nextactivity = null;
|
||
|
|
$seq->exception = 'SB.2.1-3';
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
if (scorm_is_leaf ($activity) || !$childrenflag) {
|
||
|
|
if (!$revdirection) {
|
||
|
|
if (isset($parent->forwardonly) && ($parent->forwardonly == true && !$skip)) {
|
||
|
|
$seq->traversaldir = null;
|
||
|
|
$seq->nextactivity = null;
|
||
|
|
$seq->exception = 'SB.2.1-4';
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($children[0]->id == $activity->id) {
|
||
|
|
$seq = scorm_seq_flow_tree_traversal($parent, 'backward', false, null, $seq, $userid);
|
||
|
|
return $seq;
|
||
|
|
} else {
|
||
|
|
$ancestors = scorm_get_ancestors($activity);
|
||
|
|
$ancestorsroot = array_reverse($ancestors);
|
||
|
|
$preorder = array();
|
||
|
|
$preorder = scorm_get_preorder($preorder, $ancestorsroot[0]);
|
||
|
|
$position = 0;
|
||
|
|
foreach ($preorder as $sco) {
|
||
|
|
if ($sco->id == $activity->id) {
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
$position++;
|
||
|
|
}
|
||
|
|
if (isset($preorder[$position])) {
|
||
|
|
$seq->nextactivity = $preorder[$position - 1];
|
||
|
|
$seq->traversaldir = $direction;
|
||
|
|
}
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
$children = scorm_get_available_children($activity);
|
||
|
|
if (!empty($children)) {
|
||
|
|
if (isset($parent->flow) && ($parent->flow == true)) {
|
||
|
|
$seq->traversaldir = 'forward';
|
||
|
|
$seq->nextactivity = $children[0];
|
||
|
|
return $seq;
|
||
|
|
} else {
|
||
|
|
$seq->traversaldir = 'backward';
|
||
|
|
$seq->nextactivity = $children[count($children) - 1];
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
$seq->traversaldir = null;
|
||
|
|
$seq->nextactivity = null;
|
||
|
|
$seq->exception = 'SB.2.1-2';
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// Returns the next activity on the tree, traversal direction, control returned to the LTS, (may) exception.
|
||
|
|
function scorm_seq_flow_activity_traversal ($activity, $userid, $direction, $childrenflag, $prevdirection, $seq) {
|
||
|
|
$parent = scorm_get_parent ($activity);
|
||
|
|
if (!isset($parent->flow) || ($parent->flow == false)) {
|
||
|
|
$seq->deliverable = false;
|
||
|
|
$seq->exception = 'SB.2.2-1';
|
||
|
|
$seq->nextactivity = $activity;
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
|
||
|
|
$rulecheck = scorm_seq_rules_check($activity, 'skip');
|
||
|
|
if ($rulecheck != null) {
|
||
|
|
$skip = scorm_evaluate_condition ($rulecheck, $activity, $userid);
|
||
|
|
if ($skip) {
|
||
|
|
$seq = scorm_seq_flow_tree_traversal($activity, $direction, false, $prevdirection, $seq, $userid, $skip);
|
||
|
|
$seq = scorm_seq_flow_activity_traversal($seq->nextactivity, $userid, $direction,
|
||
|
|
$childrenflag, $prevdirection, $seq);
|
||
|
|
} else if (!empty($seq->identifiedactivity)) {
|
||
|
|
$seq->nextactivity = $activity;
|
||
|
|
}
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
|
||
|
|
$ch = scorm_check_activity ($activity, $userid);
|
||
|
|
if ($ch) {
|
||
|
|
$seq->deliverable = false;
|
||
|
|
$seq->exception = 'SB.2.2-2';
|
||
|
|
$seq->nextactivity = $activity;
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!scorm_is_leaf($activity)) {
|
||
|
|
$seq = scorm_seq_flow_tree_traversal ($activity, $direction, true, null, $seq, $userid);
|
||
|
|
if ($seq->identifiedactivity == null) {
|
||
|
|
$seq->deliverable = false;
|
||
|
|
$seq->nextactivity = $activity;
|
||
|
|
return $seq;
|
||
|
|
} else {
|
||
|
|
if ($direction == 'backward' && $seq->traversaldir == 'forward') {
|
||
|
|
$seq = scorm_seq_flow_activity_traversal($seq->identifiedactivity, $userid,
|
||
|
|
'forward', $childrenflag, 'backward', $seq);
|
||
|
|
} else {
|
||
|
|
$seq = scorm_seq_flow_activity_traversal($seq->identifiedactivity, $userid,
|
||
|
|
$direction, $childrenflag, null, $seq);
|
||
|
|
}
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
$seq->deliverable = true;
|
||
|
|
$seq->nextactivity = $activity;
|
||
|
|
$seq->exception = null;
|
||
|
|
return $seq;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
function scorm_seq_flow ($activity, $direction, $seq, $childrenflag, $userid) {
|
||
|
|
// TODO: $PREVDIRECTION NOT DEFINED YET.
|
||
|
|
$prevdirection = null;
|
||
|
|
$seq = scorm_seq_flow_tree_traversal ($activity, $direction, $childrenflag, $prevdirection, $seq, $userid);
|
||
|
|
if ($seq->nextactivity == null) {
|
||
|
|
$seq->nextactivity = $activity;
|
||
|
|
$seq->deliverable = false;
|
||
|
|
return $seq;
|
||
|
|
} else {
|
||
|
|
$activity = $seq->nextactivity;
|
||
|
|
$seq = scorm_seq_flow_activity_traversal($activity, $userid, $direction, $childrenflag, null, $seq);
|
||
|
|
return $seq;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Sets up $userdata array and default values for SCORM 1.3 .
|
||
|
|
*
|
||
|
|
* @param stdClass $userdata an empty stdClass variable that should be set up with user values
|
||
|
|
* @param object $scorm package record
|
||
|
|
* @param string $scoid SCO Id
|
||
|
|
* @param string $attempt attempt number for the user
|
||
|
|
* @param string $mode scorm display mode type
|
||
|
|
* @return array The default values that should be used for SCORM 1.3 package
|
||
|
|
*/
|
||
|
|
function get_scorm_default (&$userdata, $scorm, $scoid, $attempt, $mode) {
|
||
|
|
global $DB, $USER;
|
||
|
|
|
||
|
|
$userdata->student_id = $USER->username;
|
||
|
|
if (empty(get_config('scorm', 'scormstandard'))) {
|
||
|
|
$userdata->student_name = fullname($USER);
|
||
|
|
} else {
|
||
|
|
$userdata->student_name = $USER->lastname .', '. $USER->firstname;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($usertrack = scorm_get_tracks($scoid, $USER->id, $attempt)) {
|
||
|
|
// According to SCORM 2004(RTE V1, 4.2.8), only cmi.exit==suspend should allow previous datamodel elements on re-launch.
|
||
|
|
if (isset($usertrack->{'cmi.exit'}) && ($usertrack->{'cmi.exit'} == 'suspend')) {
|
||
|
|
foreach ($usertrack as $key => $value) {
|
||
|
|
$userdata->$key = $value;
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
$userdata->status = '';
|
||
|
|
$userdata->score_raw = '';
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
$userdata->status = '';
|
||
|
|
$userdata->score_raw = '';
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($scodatas = scorm_get_sco($scoid, SCO_DATA)) {
|
||
|
|
foreach ($scodatas as $key => $value) {
|
||
|
|
$userdata->$key = $value;
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
print_error('cannotfindsco', 'scorm');
|
||
|
|
}
|
||
|
|
if (!$sco = scorm_get_sco($scoid)) {
|
||
|
|
print_error('cannotfindsco', 'scorm');
|
||
|
|
}
|
||
|
|
|
||
|
|
if (isset($userdata->status)) {
|
||
|
|
if (!isset($userdata->{'cmi.exit'}) || $userdata->{'cmi.exit'} == 'time-out' || $userdata->{'cmi.exit'} == 'normal') {
|
||
|
|
$userdata->entry = 'ab-initio';
|
||
|
|
} else {
|
||
|
|
if (isset($userdata->{'cmi.exit'}) && ($userdata->{'cmi.exit'} == 'suspend' || $userdata->{'cmi.exit'} == 'logout')) {
|
||
|
|
$userdata->entry = 'resume';
|
||
|
|
} else {
|
||
|
|
$userdata->entry = '';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$userdata->mode = 'normal';
|
||
|
|
if (!empty($mode)) {
|
||
|
|
$userdata->mode = $mode;
|
||
|
|
}
|
||
|
|
if ($userdata->mode == 'normal') {
|
||
|
|
$userdata->credit = 'credit';
|
||
|
|
} else {
|
||
|
|
$userdata->credit = 'no-credit';
|
||
|
|
}
|
||
|
|
|
||
|
|
$objectives = $DB->get_records('scorm_seq_objective', array('scoid' => $scoid));
|
||
|
|
$index = 0;
|
||
|
|
foreach ($objectives as $objective) {
|
||
|
|
if (!empty($objective->minnormalizedmeasure)) {
|
||
|
|
$userdata->{'cmi.scaled_passing_score'} = $objective->minnormalizedmeasure;
|
||
|
|
}
|
||
|
|
if (!empty($objective->objectiveid)) {
|
||
|
|
$userdata->{'cmi.objectives.N'.$index.'.id'} = $objective->objectiveid;
|
||
|
|
$index++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$def = array();
|
||
|
|
$def['cmi.learner_id'] = $userdata->student_id;
|
||
|
|
$def['cmi.learner_name'] = $userdata->student_name;
|
||
|
|
$def['cmi.mode'] = $userdata->mode;
|
||
|
|
$def['cmi.entry'] = $userdata->entry;
|
||
|
|
$def['cmi.exit'] = scorm_isset($userdata, 'cmi.exit');
|
||
|
|
$def['cmi.credit'] = scorm_isset($userdata, 'credit');
|
||
|
|
$def['cmi.completion_status'] = scorm_isset($userdata, 'cmi.completion_status', 'unknown');
|
||
|
|
$def['cmi.completion_threshold'] = scorm_isset($userdata, 'threshold');
|
||
|
|
$def['cmi.learner_preference.audio_level'] = scorm_isset($userdata, 'cmi.learner_preference.audio_level', 1);
|
||
|
|
$def['cmi.learner_preference.language'] = scorm_isset($userdata, 'cmi.learner_preference.language');
|
||
|
|
$def['cmi.learner_preference.delivery_speed'] = scorm_isset($userdata, 'cmi.learner_preference.delivery_speed');
|
||
|
|
$def['cmi.learner_preference.audio_captioning'] = scorm_isset($userdata, 'cmi.learner_preference.audio_captioning', 0);
|
||
|
|
$def['cmi.location'] = scorm_isset($userdata, 'cmi.location');
|
||
|
|
$def['cmi.max_time_allowed'] = scorm_isset($userdata, 'attemptAbsoluteDurationLimit');
|
||
|
|
$def['cmi.progress_measure'] = scorm_isset($userdata, 'cmi.progress_measure');
|
||
|
|
$def['cmi.scaled_passing_score'] = scorm_isset($userdata, 'cmi.scaled_passing_score');
|
||
|
|
$def['cmi.score.scaled'] = scorm_isset($userdata, 'cmi.score.scaled');
|
||
|
|
$def['cmi.score.raw'] = scorm_isset($userdata, 'cmi.score.raw');
|
||
|
|
$def['cmi.score.min'] = scorm_isset($userdata, 'cmi.score.min');
|
||
|
|
$def['cmi.score.max'] = scorm_isset($userdata, 'cmi.score.max');
|
||
|
|
$def['cmi.success_status'] = scorm_isset($userdata, 'cmi.success_status', 'unknown');
|
||
|
|
$def['cmi.suspend_data'] = scorm_isset($userdata, 'cmi.suspend_data');
|
||
|
|
$def['cmi.time_limit_action'] = scorm_isset($userdata, 'timelimitaction');
|
||
|
|
$def['cmi.total_time'] = scorm_isset($userdata, 'cmi.total_time', 'PT0H0M0S');
|
||
|
|
$def['cmi.launch_data'] = scorm_isset($userdata, 'datafromlms');
|
||
|
|
|
||
|
|
return $def;
|
||
|
|
}
|