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) {
// scorm_seq_terminate_descent($ancestorsroot, $userid); TODO: undefined
$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;
}
}
}
}
}
function scorm_get_available_descendent($descend = array(), $sco)
{
if ($sco == null) {
return $descend;
} else {
$avchildren = scorm_get_available_children($sco);
foreach ($avchildren as $avchild) {
array_push($descend, $avchild);
}
foreach ($avchildren as $avchild) {
scorm_get_available_descendent($descend, $avchild);
}
}
}
function scorm_randomize_children_process($scoid, $userid)
{
$sco = scorm_get_sco($scoid);
if (!scorm_is_leaf($sco)) {
if (!scorm_seq_is('suspended', $scoid, $userid) && !scorm_seq_is('active', $scoid, $userid)) {
$r = get_record('scorm_scoes_track', 'scoid', $scoid, 'userid', $userid, 'element', 'randomizationtiming');
switch ($r->value) {
case 'never':
break;
case 'oneachnewattempt':
case 'once':
if (!scorm_seq_is('activityprogressstatus', $scoid, $userid)) {
if (scorm_seq_is('randomizechildren', $scoid, $userid)) {
$childlist = array();
$res = scorm_get_available_children($sco);
$i = sizeof($res) - 1;
$children = $res->value;
while ($i >= 0) {
$pos = array_rand($children);
array_push($childlist, $children[$pos]);
array_splice($children, $pos, 1);
$i--;
}
$clist = serialize($childlist);
scorm_seq_set('availablechildren', $scoid, $userid, false);
scorm_seq_set('availablechildren', $scoid, $userid, $clist);
}
}
break;
}
}
}
}
