moodle/moodle
3
0
Fork 0
mirror of https://github.com/moodle/moodle.git synced 2025-08-05 08:56:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed some bugs about undefined variables and added some more functions. Still work-in-progress file

Browse source
This commit is contained in:
csantossaenz 2007-04-30 12:46:08 +00:00
parent de0bc10fea
commit f3800343b4
1 changed files with 254 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

307
mod/scorm/datamodels/sequencinglib.php
View file

@ -43,6 +43,9 @@ function scorm_seq_navigation ($scoid,$userid,$request) {
$seq->target = null; $seq->target = null;
$seq->endsession = null; $seq->endsession = null;
$seq->exception = null; $seq->exception = null;
$seq->reachable = true;
$seq->prevact = true;
$seq->constrainedchoice = true;
switch ($request) { switch ($request) {
case 'start_': case 'start_':
@ -269,7 +272,7 @@ function scorm_seq_termination ($seq,$userid) {
} }
if ($ancestors = scorm_get_ancestors($sco)) { if ($ancestors = scorm_get_ancestors($sco)) {
foreach ($ancestors as $ancestor) { foreach ($ancestors as $ancestor) {
scorm_seq_set('active',$ancestor->id,$userid,0,false); scorm_seq_set('active',$ancestor->id,$userid,false);
scorm_seq_set('suspended',$ancestor->id,$userid); scorm_seq_set('suspended',$ancestor->id,$userid);
$seq->currentactivity = $ancestor; $seq->currentactivity = $ancestor;
} }
@ -281,14 +284,14 @@ function scorm_seq_termination ($seq,$userid) {
} }
break; break;
case 'abandon': case 'abandon':
scorm_seq_set('active',$sco->id,$userid,0,false); scorm_seq_set('active',$sco->id,$userid,false);
$seq->active = null; $seq->active = null;
$seq->termination = true; $seq->termination = true;
break; break;
case 'abandonall': case 'abandonall':
if ($ancestors = scorm_get_ancestors($sco)) { if ($ancestors = scorm_get_ancestors($sco)) {
foreach ($ancestors as $ancestor) { foreach ($ancestors as $ancestor) {
scorm_seq_set('active',$ancestor->id,$userid,0,false); scorm_seq_set('active',$ancestor->id,$userid,false);
$seq->currentactivity = $ancestor; $seq->currentactivity = $ancestor;
} }
$seq->termination = true; $seq->termination = true;
@ -311,18 +314,19 @@ function scorm_seq_end_attempt($sco,$userid) {
if (!isset($sco->tracked) || ($sco->tracked == 1)) { if (!isset($sco->tracked) || ($sco->tracked == 1)) {
if (!scorm_seq_is('suspended',$sco->id,$userid)) { if (!scorm_seq_is('suspended',$sco->id,$userid)) {
if (!isset($sco->completionsetbycontent) || ($sco->completionsetbycontent == 0)) { if (!isset($sco->completionsetbycontent) || ($sco->completionsetbycontent == 0)) {
if (!scorm_seq_is('attemptprogressstatus',$sco->id,$userid,$attempt)) { // if (!scorm_seq_is('attemptprogressstatus',$sco->id,$userid,$attempt)) {
scorm_seq_set('attemptprogressstatus',$sco->id,$userid,$attempt); if (!scorm_seq_is('attemptprogressstatus',$sco->id,$userid)) {
scorm_seq_set('attemptcompletionstatus',$sco->id,$userid,$attempt); scorm_seq_set('attemptprogressstatus',$sco->id,$userid);
scorm_seq_set('attemptcompletionstatus',$sco->id,$userid);
} }
} }
if (!isset($sco->objectivesetbycontent) || ($sco->objectivesetbycontent == 0)) { if (!isset($sco->objectivesetbycontent) || ($sco->objectivesetbycontent == 0)) {
if ($sco->objectives) { if ($objectives = $sco->objectives) {
foreach ($objectives as $objective) { foreach ($objectives as $objective) {
if ($objective->primary) { if ($objective->primary) {
if (!scorm_seq_objective_progress_status($sco,$userid,$objective)) { if (!scorm_seq_objective_progress_status($sco,$userid,$objective)) {
scorm_seq_set('objectiveprogressstatus',$sco->id,$userid,$attempt); scorm_seq_set('objectiveprogressstatus',$sco->id,$userid);
scorm_seq_set('objectivesatisfiedstatus',$sco->id,$userid,$attempt); scorm_seq_set('objectivesatisfiedstatus',$sco->id,$userid);
} }
} }
} }
@ -342,7 +346,7 @@ function scorm_seq_end_attempt($sco,$userid) {
if ($suspended) { if ($suspended) {
scorm_seq_set('suspended',$sco,$userid); scorm_seq_set('suspended',$sco,$userid);
} else { } else {
scorm_seq_set('suspended',$sco,$userid,0,false); scorm_seq_set('suspended',$sco,$userid,false);
} }
} }
} }
@ -350,7 +354,8 @@ function scorm_seq_end_attempt($sco,$userid) {
scorm_seq_overall_rollup($sco,$userid); scorm_seq_overall_rollup($sco,$userid);
} }
function scorm_seq_is($what, $scoid, $userid, $attempt=0) { //function scorm_seq_is($what, $scoid, $userid, $attempt=0) {
function scorm_seq_is($what, $scoid, $userid) {
/// Check if passed activity $what is active /// Check if passed activity $what is active
$active = false; $active = false;
if ($track = get_record('scorm_scoes_track','scoid',$scoid,'userid',$userid,'element',$what)) { if ($track = get_record('scorm_scoes_track','scoid',$scoid,'userid',$userid,'element',$what)) {
@ -359,7 +364,8 @@ function scorm_seq_is($what, $scoid, $userid, $attempt=0) {
return $active; return $active;
} }
function scorm_seq_set($what, $scoid, $userid, $attempt=0, $value='true') { //function scorm_seq_set($what, $scoid, $userid, $attempt=0, $value='true') {
function scorm_seq_set($what, $scoid, $userid, $value='true') {
/// set passed activity to active or not /// set passed activity to active or not
if ($value == false) { if ($value == false) {
delete_record('scorm_scoes_track','scoid',$scoid,'userid',$userid,'element',$what); delete_record('scorm_scoes_track','scoid',$scoid,'userid',$userid,'element',$what);
@ -537,18 +543,18 @@ function scorm_seq_measure_rollup($sco,$userid){
if(!$valid){ if(!$valid){
scorm_seq_set('objectivemeasurestatus',$sco->id,$userid,$attempt,false); scorm_seq_set('objectivemeasurestatus',$sco->id,$userid,false);
} }
else{ else{
if($countedmeasures>0){ if($countedmeasures>0){
scorm_seq_set('objectivemeasurestatus',$sco->id,$userid,$attempt); scorm_seq_set('objectivemeasurestatus',$sco->id,$userid);
$val=$totalmeasure/$countedmeasure; $val=$totalmeasure/$countedmeasure;
scorm_seq_set('normalizedmeasure',$sco->id,$userid,$attempt,$val); scorm_seq_set('normalizedmeasure',$sco->id,$userid,$val);
} }
else{ else{
scorm_seq_set('objectivemeasurestatus',$sco->id,$userid,$attempt,false); scorm_seq_set('objectivemeasurestatus',$sco->id,$userid,false);
} }
} }
@ -562,7 +568,7 @@ function scorm_seq_objective_rollup_measure($sco,$userid){
$objectives = get_records('scorm_seq_objective','scoid',$sco->id); $objectives = get_records('scorm_seq_objective','scoid',$sco->id);
foreach ($objective as $objective){ foreach ($objectives as $objective){
if ($objective->primaryobj == true){//Objective contributes to rollup I'm using primaryobj field, but not if ($objective->primaryobj == true){//Objective contributes to rollup I'm using primaryobj field, but not
$targetobjective = $objective; $targetobjective = $objective;
break; break;
@ -575,7 +581,7 @@ function scorm_seq_objective_rollup_measure($sco,$userid){
if (!scorm_seq_objective_progress_status($sco,$userid,$targetobjective)) { if (!scorm_seq_objective_progress_status($sco,$userid,$targetobjective)) {
scorm_seq_set('objectiveprogressstatus',$sco->id,$userid,$attempt,false); scorm_seq_set('objectiveprogressstatus',$sco->id,$userid,false);
} }
@ -587,16 +593,16 @@ function scorm_seq_objective_rollup_measure($sco,$userid){
if (!$isactive || ($isactive &&//measuresatisfactionif )){//This condition is really odd. It's in the SeqNav.pdf on page 193, line 3.1.2.1 if (!$isactive || ($isactive &&//measuresatisfactionif )){//This condition is really odd. It's in the SeqNav.pdf on page 193, line 3.1.2.1
if($normalizedmeasure->value >= $targetobjective->minnormalizedmeasure){ if($normalizedmeasure->value >= $targetobjective->minnormalizedmeasure){
scorm_seq_set('objectiveprogressstatus',$sco->id,$userid,$attempt); scorm_seq_set('objectiveprogressstatus',$sco->id,$userid);
scorm_seq_set('objectivesatisfiedstatus',$sco->id,$userid,$attempt); scorm_seq_set('objectivesatisfiedstatus',$sco->id,$userid);
} }
else{ else{
scorm_seq_set('objectiveprogressstatus',$sco->id,$userid,$attempt); scorm_seq_set('objectiveprogressstatus',$sco->id,$userid);
scorm_seq_set('objectivesatisfiedstatus',$sco->id,$userid,$attempt,false); scorm_seq_set('objectivesatisfiedstatus',$sco->id,$userid,false);
} }
} }
else{ else{
scorm_seq_set('objectiveprogressstatus',$sco->id,$userid,$attempt,false); scorm_seq_set('objectiveprogressstatus',$sco->id,$userid,false);
} }
} }
@ -623,12 +629,12 @@ function scorm_seq_objective_rollup_rules($sco,$userid){
if(scorm_seq_rollup_rule_check($sco,$userid,'notsatisfied')){//with not satisfied rollup for the activity 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('objectiveprogressstatus',$sco->id,$userid);
scorm_seq_set('objectivesatisfiedstatus',$sco->id,$userid,$attempt,false); scorm_seq_set('objectivesatisfiedstatus',$sco->id,$userid,false);
} }
if(scorm_seq_rollup_rule_check($sco,$userid,'satisfied')){//with satisfied rollup for the activity 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('objectiveprogressstatus',$sco->id,$userid);
scorm_seq_set('objectivesatisfiedstatus',$sco->id,$userid,$attempt); scorm_seq_set('objectivesatisfiedstatus',$sco->id,$userid);
} }
} }
@ -639,14 +645,14 @@ function scorm_seq_activity_progress_rollup ($sco, $userid){
if(scorm_seq_rollup_rule_check($sco,$userid,'incomplete')){ if(scorm_seq_rollup_rule_check($sco,$userid,'incomplete')){
//incomplete rollup action //incomplete rollup action
scorm_seq_set('attemptcompletionstatus',$sco->id,$userid,$attempt,false); scorm_seq_set('attemptcompletionstatus',$sco->id,$userid,false);
scorm_seq_set('attemptprogressstatus',$sco->id,$userid,$attempt); scorm_seq_set('attemptprogressstatus',$sco->id,$userid);
} }
if(scorm_seq_rollup_rule_check($sco,$userid,'completed')){ if(scorm_seq_rollup_rule_check($sco,$userid,'completed')){
//incomplete rollup action //incomplete rollup action
scorm_seq_set('attemptcompletionstatus',$sco->id,$userid,$attempt); scorm_seq_set('attemptcompletionstatus',$sco->id,$userid);
scorm_seq_set('attemptprogressstatus',$sco->id,$userid,$attempt); scorm_seq_set('attemptprogressstatus',$sco->id,$userid);
} }
} }
@ -932,18 +938,18 @@ function scorm_seq_check_child ($sco, $action, $userid){
$included = false; $included = false;
$r = get_record('scorm_scoes_track','scoid',$sco->id,'userid',$userid,'element','activityattemptcount'); $r = get_record('scorm_scoes_track','scoid',$sco->id,'userid',$userid,'element','activityattemptcount');
if ($action == 'satisfied' || $action == 'notsatisfied'){ if ($action == 'satisfied' || $action == 'notsatisfied'){
if (!scorm_seq_is('rollupobjectivesatisfied',$sco->id,$userid,$attempt){ if (!scorm_seq_is('rollupobjectivesatisfied',$sco->id,$userid){
$included = true; $included = true;
if (($action == 'satisfied' //&& adlseqRequiredforSatisfied == 'ifNotSuspended') || ($action == 'notsatisfied' && adlseqRequiredforNotSatisfied == 'ifNotSuspended')){ if (($action == 'satisfied' //&& adlseqRequiredforSatisfied == 'ifNotSuspended') || ($action == 'notsatisfied' && adlseqRequiredforNotSatisfied == 'ifNotSuspended')){
if (!scorm_seq_is('activityprogressstatus',$sco->id,$userid,$attempt) || ((($r->value)>0)&& !scorm_seq_is('suspended',$sco->id,$userid,$attempt))){ if (!scorm_seq_is('activityprogressstatus',$sco->id,$userid) || ((($r->value)>0)&& !scorm_seq_is('suspended',$sco->id,$userid))){
$included = false; $included = false;
} }
} }
else{ else{
if (($action == 'satisfied' //&& adlseqRequiredforSatisfied == 'ifAttempted') || ($action == 'notsatisfied' && adlseqRequiredforNotSatisfied == 'ifAttempted')){ if (($action == 'satisfied' //&& adlseqRequiredforSatisfied == 'ifAttempted') || ($action == 'notsatisfied' && adlseqRequiredforNotSatisfied == 'ifAttempted')){
if (!scorm_seq_is('activityprogressstatus',$sco->id,$userid,$attempt) || (($r->value) == 0)){{ if (!scorm_seq_is('activityprogressstatus',$sco->id,$userid) || (($r->value) == 0)){{
$included = false; $included = false;
} }
} }
@ -959,12 +965,12 @@ function scorm_seq_check_child ($sco, $action, $userid){
} }
} }
if ($action == 'completed' || $action == 'incomplete'){ if ($action == 'completed' || $action == 'incomplete'){
if (!scorm_seq_is('rollupprogresscompletion',$sco->id,$userid,$attempt){ if (!scorm_seq_is('rollupprogresscompletion',$sco->id,$userid){
$included = true; $included = true;
if (($action == 'completed' //&& adlseqRequiredForCompleted == 'ifNotSuspended') || ($action == 'incomplete' && adlseqRequiredForIncomplete == 'ifNotSuspended')){ if (($action == 'completed' //&& adlseqRequiredForCompleted == 'ifNotSuspended') || ($action == 'incomplete' && adlseqRequiredForIncomplete == 'ifNotSuspended')){
if (!scorm_seq_is('activityprogressstatus',$sco->id,$userid,$attempt) || ( (($r->value)>0)&& !scorm_seq_is('suspended',$sco->id,$userid,$attempt))){ if (!scorm_seq_is('activityprogressstatus',$sco->id,$userid) || ( (($r->value)>0)&& !scorm_seq_is('suspended',$sco->id,$userid))){
$included = false; $included = false;
} }
@ -973,7 +979,7 @@ function scorm_seq_check_child ($sco, $action, $userid){
if (($action == 'completed' //&& adlseqRequiredForCompleted == 'ifAttempted') || ($action == 'incomplete' && adlseqRequiredForIncomplete == 'ifAttempted')){ if (($action == 'completed' //&& adlseqRequiredForCompleted == 'ifAttempted') || ($action == 'incomplete' && adlseqRequiredForIncomplete == 'ifAttempted')){
if (!scorm_seq_is('activityprogressstatus',$sco->id,$userid,$attempt) || (($r->value)==0)){ if (!scorm_seq_is('activityprogressstatus',$sco->id,$userid) || (($r->value)==0)){
$included = false; $included = false;
} }
@ -1002,43 +1008,46 @@ function scorm_seq_sequencing ($scoid,$userid,$seq) {
switch ($seq->sequencing) { switch ($seq->sequencing) {
case 'start': case 'start':
$seq = scorm_seq_start_sequencing($sco,$userid,$seq); //We'll see the parameters we have to send, this should update delivery and end
$seq->sequencing = true; $seq->sequencing = true;
$seq->delivery = scorm_seq_start_sequencing($scoid,$userid,$seq);//updates delivery and end
break; break;
case 'resumeall': case 'resumeall':
$seq = scorm_seq_resume_sequencing($sco,$userid,$seq); //We'll see the parameters we have to send, this should update delivery and end
$seq->sequencing = true; $seq->sequencing = true;
$seq->delivery = scorm_seq_resume_all_sequencing($sco,$userid,$seq);// We'll see the parameters we have to send, this should update delivery
break; break;
case 'exit': case 'exit':
$seq = scorm_seq_exit_sequencing($sco,$userid,$seq); //We'll see the parameters we have to send, this should update delivery and end
$seq->sequencing = true; $seq->sequencing = true;
$seq->endsession = scorm_seq_exit_sequencing($sco,$userid);// We'll see the parameters we have to send, this should update end seq
break; break;
case 'retry': case 'retry':
$seq = scorm_seq_retry_sequencing($sco,$userid,$seq); //We'll see the parameters we have to send, this should update delivery and end
$seq->sequencing = true; $seq->sequencing = true;
$seq->delivery = scorm_seq_retry_sequencing($sco,$userid); //We'll see the parameters we have to send, this should update delivery and end
break; break;
case 'previous': case 'previous':
$seq = scorm_seq_previous_sequencing($sco,$userid,$seq);// We'll see the parameters we have to send, this should update delivery and end
$seq->sequencing = true; $seq->sequencing = true;
$seq->delivery = scorm_seq_previous_sequencing($sco,$userid); //We'll see the parameters we have to send, this should update delivery
break; break;
case 'choice': case 'choice':
$seq = scorm_seq_choice_sequencing($sco,$userid,$seq);// We'll see the parameters we have to send, this should update delivery and end
$seq->sequencing = true; $seq->sequencing = true;
$seq->delivery = scorm_seq_choice_sequencing($sco,$userid);// We'll see the parameters we have to send, this should update delivery and end
break; break;
@ -1069,7 +1078,7 @@ function scorm_seq_start_sequencing($scoid,$userid,$seq){
$ancestorsroot = array_reverse($ancestors); $ancestorsroot = array_reverse($ancestors);
$res = scorm_seq_flow($ancestorsroot[0],'forward',$seq,true$userid); $res = scorm_seq_flow($ancestorsroot[0],'forward',$seq,true$userid);
if($res){ if($res){
//return deliver return $res;
} }
else{ else{
//return end and exception //return end and exception
@ -1111,7 +1120,7 @@ function scorm_seq_continue_sequencing($scoid,$userid,$seq){
$res = scorm_seq_flow($currentact,'forward',$seq,false,$userid); $res = scorm_seq_flow($currentact,'forward',$seq,false,$userid);
if($res){ if($res){
//return deliver return $res;
} }
else{ else{
//return end and exception //return end and exception
@ -1138,7 +1147,7 @@ function scorm_seq_previous_sequencing($scoid,$userid,$seq){
$res = scorm_seq_flow($currentact,'backward',$seq,false,$userid); $res = scorm_seq_flow($currentact,'backward',$seq,false,$userid);
if($res){ if($res){
//return deliver return $res;
} }
else{ else{
//return end and exception //return end and exception
@ -1186,6 +1195,7 @@ function scorm_seq_retry_sequencing($scoid,$userid,$seq){
if (!scorm_is_leaf($seq->currentactivity)){ if (!scorm_is_leaf($seq->currentactivity)){
$res = scorm_seq_flow($seq->currentactivity,'forward',$seq,true,$userid); $res = scorm_seq_flow($seq->currentactivity,'forward',$seq,true,$userid);
if($res != null){ if($res != null){
return $res;
//return deliver //return deliver
} }
else{ else{
@ -1324,7 +1334,7 @@ function scorm_seq_flow_tree_traversal ($activity,$direction,$childrenflag,$prev
$parent = scorm_get_parent($activity); $parent = scorm_get_parent($activity);
$children = scorm_get_children($parent); $children = scorm_get_children($parent);
$seq->traversaldir = $direction; $seq->traversaldir = $direction;
$sib = scorm_get_sibling($activity); $sib = scorm_get_siblings($activity);
$pos = array_search($sib, $activity); $pos = array_search($sib, $activity);
if ($pos !== false) { if ($pos !== false) {
if ($pos != sizeof ($sib)){ if ($pos != sizeof ($sib)){
@ -1444,35 +1454,35 @@ function scorm_limit_cond_check ($activity,$userid){
if (!isset($activity->limitcontrol) || ($activity->limitcontrol == 1)){ if (!isset($activity->limitcontrol) || ($activity->limitcontrol == 1)){
$r = get_record('scorm_scoes_track','scoid',$activity->id,'userid',$userid,'element','activityattemptcount'); $r = get_record('scorm_scoes_track','scoid',$activity->id,'userid',$userid,'element','activityattemptcount');
if (scorm_seq_is('activityprogressstatus',$activity->id,$userid,$attempt) && ($r->value >=$activity->limitattempt)){ if (scorm_seq_is('activityprogressstatus',$activity->id,$userid) && ($r->value >=$activity->limitattempt)){
return true; return true;
} }
} }
if (!isset($activity->limitabsdurcontrol) || ($activity->limitabsdurcontrol == 1)){ if (!isset($activity->limitabsdurcontrol) || ($activity->limitabsdurcontrol == 1)){
$r = get_record('scorm_scoes_track','scoid',$activity->id,'userid',$userid,'element','activityabsoluteduration'); $r = get_record('scorm_scoes_track','scoid',$activity->id,'userid',$userid,'element','activityabsoluteduration');
if (scorm_seq_is('activityprogressstatus',$activity->id,$userid,$attempt) && ($r->value >=$activity->limitabsduration)){ if (scorm_seq_is('activityprogressstatus',$activity->id,$userid) && ($r->value >=$activity->limitabsduration)){
return true; return true;
} }
} }
if (!isset($activity->limitexpdurcontrol) || ($activity->limitexpdurcontrol == 1)){ if (!isset($activity->limitexpdurcontrol) || ($activity->limitexpdurcontrol == 1)){
$r = get_record('scorm_scoes_track','scoid',$activity->id,'userid',$userid,'element','activityexperiencedduration'); $r = get_record('scorm_scoes_track','scoid',$activity->id,'userid',$userid,'element','activityexperiencedduration');
if (scorm_seq_is('activityprogressstatus',$activity->id,$userid,$attempt) && ($r->value >=$activity->limitexpduration)){ if (scorm_seq_is('activityprogressstatus',$activity->id,$userid) && ($r->value >=$activity->limitexpduration)){
return true; return true;
} }
} }
if (!isset($activity->limitattabsdurcontrol) || ($activity->limitattabsdurcontrol == 1)){ if (!isset($activity->limitattabsdurcontrol) || ($activity->limitattabsdurcontrol == 1)){
$r = get_record('scorm_scoes_track','scoid',$activity->id,'userid',$userid,'element','attemptabsoluteduration'); $r = get_record('scorm_scoes_track','scoid',$activity->id,'userid',$userid,'element','attemptabsoluteduration');
if (scorm_seq_is('activityprogressstatus',$activity->id,$userid,$attempt) && ($r->value >=$activity->limitattabsduration)){ if (scorm_seq_is('activityprogressstatus',$activity->id,$userid) && ($r->value >=$activity->limitattabsduration)){
return true; return true;
} }
} }
if (!isset($activity->limitattexpdurcontrol) || ($activity->limitattexpdurcontrol == 1)){ if (!isset($activity->limitattexpdurcontrol) || ($activity->limitattexpdurcontrol == 1)){
$r = get_record('scorm_scoes_track','scoid',$activity->id,'userid',$userid,'element','attemptexperiencedduration'); $r = get_record('scorm_scoes_track','scoid',$activity->id,'userid',$userid,'element','attemptexperiencedduration');
if (scorm_seq_is('activityprogressstatus',$activity->id,$userid,$attempt) && ($r->value >=$activity->limitattexpduration)){ if (scorm_seq_is('activityprogressstatus',$activity->id,$userid) && ($r->value >=$activity->limitattexpduration)){
return true; return true;
} }
} }
@ -1499,6 +1509,197 @@ function scorm_limit_cond_check ($activity,$userid){
return false; return false;
}
function scorm_seq_choice_sequencing($sco,$userid,$seq){
$avchildren = Array ();
$comancestor = null;
$traverse = null;
if ($sco == null){
$seq->delivery = null;
$seq->exception = 'SB.2.9-1';
$return $seq;
}
$ancestors = scorm_get_ancestors($sco);
$arrpath = array_reverse($ancestors);
array_push ($arrpath,$sco);//path from the root to the target
foreach ($arrpath as $activity){
if ($activity->parent != '/') {
$avchildren = scorm_get_available_children (scorm_get_parent($activity));
$position = array_search($avchildren, $activity);
if ($position !== false){
$seq->delivery = null;
$seq->exception = 'SB.2.9-2';
$return $seq;
}
}
if (scorm_seq_rules_check($activity,'hidefromchoice' != null){
$seq->delivery = null;
$seq->exception = 'SB.2.9-3';
$return $seq;
}
}
if ($sco->parent != '/') {
$parent = scorm_sco_get_parent ($sco);
if ( !get_record('scorm_scoes_track','scoid',$parentid->id,'userid',$userid,'element','sequencingcontrolchoice')){
$seq->delivery = null;
$seq->exception = 'SB.2.9-4';
$return $seq;
}
}
if ($seq->currentactivity != null){
$commonpos = scorm_find_common_ancestor($ancestors,$seq->currentactivity);
$comancestor = $arrpath [$commonpos];
}
else{
$comancestor = $arrpath [0];
}
if($seq->currentactivity === $sco) {
break;
}
$sib = scorm_get_siblings($seq->currentactivity);
$pos = array_search($sib, $sco);
if (pos !=== false){
$siblings = array_slice($sib, 0, $pos-1);
if (empty($siblings)){
$seq->delivery = null;
$seq->exception = 'SB.2.9-5';
$return $seq;
}
$children = scorm_get_children (scorm_get_parent ($sco));
$pos1 = array_search($children, $sco);
$pos2 = array_search($seq->currentactivity, $sco);
if ($pos1>$pos2){
$traverse = 'forward';
}
else{
$traverse = 'backward';
}
foreach ($siblings as $sibling){
$seq = scorm_seq_choice_activity_traversal($sibling,$userid,$seq,$traverse);
if(!$seq->reachable){
$seq->delivery = null;
return $seq;
}
}
break;
}
if($seq->currentactivity == null || $seq->currentactivity == $comancestor){
$commonpos = scorm_find_common_ancestor($ancestors,$seq->currentactivity);
$comtarget = array_slice($sib, 1,$commonpos);//path from the common ancestor to the target activity
$comtarget = array_reverse($comtarget);
if (empty($comtarget)){
$seq->delivery = null;
$seq->exception = 'SB.2.9-5';
$return $seq;
}
foreach ($comtarget as $act){
$seq = scorm_seq_choice_activity_traversal($act,$userid,$seq,'forward');
if(!$seq->reachable){
$seq->delivery = null;
return $seq;
}
if(scorm_seq_is('active',$act->id,$userid) && ($act->id != $comancestor->id && $seq->prevact)){//adlseq:can i write it like another property for the $seq object?
$seq->delivery = null;
$seq->exception = 'SB.2.9-6';
$return $seq;
}
}
break;
}
if ($comancestor->id == $sco->id){
$ancestorscurrent = scorm_get_ancestors($seq->currentactivity);
$possco = array_search ($ancestorscurrent, $sco);
$curtarget = array_slice($ancestorscurrent,0,$possco);//path from the current activity to the target
if (empty($curtarget)){
$seq->delivery = null;
$seq->exception = 'SB.2.9-5';
$return $seq;
}
$i=0;
foreach ($curtarget as $activ){
$i++;
if ($i != sizeof($curtarget)){
if ( !get_record('scorm_scoes_track','scoid',$activ->id,'userid',$userid,'element','sequencingcontrolchoiceexit')){
$seq->delivery = null;
$seq->exception = 'SB.2.9-7';
$return $seq;
}
}
}
break;
}
if (array_search ($ancestors, $comancestor)!== false){
$ancestorscurrent = scorm_get_ancestors($seq->currentactivity);
$commonpos = scorm_find_common_ancestor($ancestors,$sco);
$curcommon = array_slice($ancestorscurrent,0,$commonpos-1);
if(empty($curcommon)){
$seq->delivery = null;
$seq->exception = 'SB.2.9-5';
$return $seq;
}
$constrained = null;
foreach ($curcommon as $acti){
if ( !get_record('scorm_scoes_track','scoid',$activ->id,'userid',$userid,'element','sequencingcontrolchoiceexit')){
$seq->delivery = null;
$seq->exception = 'SB.2.9-7';
$return $seq;
}
if ($constrained == null){
if($seq->constrainedchoice){
$constrained = $acti;//adlseq:can i write it like another property for the $seq object?
}
}
}
if ($constrained != null){
$fwdir = scorm_get_preorder($constrained);
if(array_search ($fwdir, $sco)!== false){
$traverse = 'forward';
}
else{
$traverse = 'backward';
}
$seq = scorm_seq_choice_flow ($constrained, $traverse, $seq);
//CONTINUE 11.5.5
}
}
} }
?> ?>