<?php // $Id$
-/* // Added by Pham Minh Duc
- case 'IMSSS:SEQUENCING':
- $parent = array_pop($parents);
- array_push($parents, $parent);
- foreach ($block['children'] as $sequencing) {
- if ($sequencing['name']=='IMSSS:CONTROLMODE') {
- if ($sequencing['attrs']['CHOICE'] == 'false') {
- $scoes->elements[$manifest][$parent->organization][$parent->identifier]->choice = 0;
- }
- if ($sequencing['attrs']['CHOICEEXIT'] == 'false') {
- $scoes->elements[$manifest][$parent->organization][$parent->identifier]->choiceexit = 0;
- }
- if ($sequencing['attrs']['FLOW'] == 'true') {
- $scoes->elements[$manifest][$parent->organization][$parent->identifier]->flow = 1;
- }
- if ($sequencing['attrs']['FORWARDONLY'] == 'true') {
- $scoes->elements[$manifest][$parent->organization][$parent->identifier]->forwardonly = 1;
- }
- if ($sequencing['attrs']['USECURRENTATTEMPTOBJECTINFO'] == 'true') {
- $scoes->elements[$manifest][$parent->organization][$parent->identifier]->usecurrentattemptobjectinfo = 1;
- }
- if ($sequencing['attrs']['USECURRENTATTEMPTPROGRESSINFO'] == 'true') {
- $scoes->elements[$manifest][$parent->organization][$parent->identifier]->usecurrentattemptprogressinfo = 1;
- }
- }
- if ($sequencing['name']=='ADLSEQ:CONSTRAINEDCHOICECONSIDERATIONS') {
- if ($sequencing['attrs']['CONSTRAINCHOICE'] == 'true') {
- $scoes->elements[$manifest][$parent->organization][$parent->identifier]->constrainChoice = 1;
- }
- if ($sequencing['attrs']['PREVENTACTIVATION'] == 'true') {
- $scoes->elements[$manifest][$parent->organization][$parent->identifier]->preventactivation = 1;
- }
-
- }
- if ($sequencing['name']=='IMSSS:OBJECTIVES') {
- foreach ($sequencing['children'] as $objective) {
- if ($objective['name']=='IMSSS:PRIMARYOBJECTIVE') {
- foreach ($objective['children'] as $primaryobjective) {
- if ($primaryobjective['name']=='IMSSS:MINNORMALIZEDMEASURE') {
- $scoes->elements[$manifest][$parent->organization][$parent->identifier]->minnormalizedmeasure = $primaryobjective['tagData'];
- }
- }
- }
- }
- }
- if ($sequencing['name']=='IMSSS:LIMITCONDITIONS') {
- if (!empty($sequencing['attrs']['ATTEMPTLIMIT'])) {
- $scoes->elements[$manifest][$parent->organization][$parent->identifier]->attemptLimit = $sequencing['attrs']['ATTEMPTLIMIT'];
- }
- if (!empty($sequencing['attrs']['ATTEMPTABSOLUTEDURATIONLIMIT'])) {
- $scoes->elements[$manifest][$parent->organization][$parent->identifier]->attemptAbsoluteDurationLimit = $sequencing['attrs']['ATTEMPTABSOLUTEDURATIONLIMIT'];
- }
- }
- if ($sequencing['name']=='IMSSS:ROLLUPRULES') {
- $rolluprules = array();
- if (!empty($sequencing['attrs']['ROLLUPOBJECTIVESATISFIED'])) {
- if ($sequencing['attrs']['ROLLUPOBJECTIVESATISFIED']== 'false') {
- $scoes->elements[$manifest][$parent->organization][$parent->identifier]->rollupobjectivesatisfied = 0;
- }
- }
- if (!empty($sequencing['attrs']['ROLLUPPROGRESSCOMPLETION'])) {
- if ($sequencing['attrs']['ROLLUPPROGRESSCOMPLETION']== 'false') {
- $scoes->elements[$manifest][$parent->organization][$parent->identifier]->rollupprogresscompletion = 0;
- }
- }
- if (!empty($sequencing['attrs']['OBJECTIVEMEASUREWEIGHT'])) {
- $scoes->elements[$manifest][$parent->organization][$parent->identifier]->objectivemeasureweight = $sequencing['attrs']['OBJECTIVEMEASUREWEIGHT'];
- }
-
- if (!empty($sequencing['children'])){
- foreach ($sequencing['children'] as $sequencingrolluprule) {
- if ($sequencingrolluprule['name']=='IMSSS:ROLLUPRULE' ) {
- $rolluprule = new stdClass();
- if ($sequencingrolluprule['attrs']['CHILDACTIVITYSET'] !=' ') {
- $rolluprule->childactivityset = $sequencingrolluprule['attrs']['CHILDACTIVITYSET'];
- if (!empty($sequencingrolluprule['children'])) {
- foreach ($sequencingrolluprule['children'] as $rolluproleconditions) {
- if ($rolluproleconditions['name']=='IMSSS:ROLLUPCONDITIONS') {
- $conditions = array();
- if (!empty($rolluproleconditions['attrs']['conditionCombination'])) {
- $rolluprule->conditionCombination = $rolluproleconditions['attrs']['conditionCombination'];
- }
- foreach ($rolluproleconditions['children'] as $rolluprulecondition) {
- if ($rolluprulecondition['name']=='IMSSS:ROLLUPCONDITION') {
- $condition = new stdClass();
- if (!empty($rolluprulecondition['attrs']['OPERATOR'])) {
- $condition->operator = $rolluprulecondition['attrs']['OPERATOR'];
- }
- if (!empty($rolluprulecondition['attrs']['CONDITION'])) {
- $condition->condition = $rolluprulecondition['attrs']['CONDITION'];
- }
- array_push($conditions,$condition);
- }
- }
- $rolluprule->conditions = $conditions;
- }
- if ($rolluproleconditions['name']=='IMSSS:ROLLUPACTION') {
- $rolluprule->rollupruleaction = $rolluproleconditions['attrs']['ACTION'];
- }
- }
- }
- }
- array_push($rolluprules, $rolluprule);
- }
- }
- }
- $scoes->elements[$manifest][$parent->organization][$parent->identifier]->rolluprules = $rolluprules;
- }
-
- if ($sequencing['name']=='IMSSS:SEQUENCINGRULES') {
- $sequencingrules = array();
- foreach ($sequencing['children'] as $conditionrules) {
- if ($conditionrules['name']=='IMSSS:EXITCONDITIONRULE') {
- $sequencingrule = new stdClass();
- if (!empty($conditionrules['children'])) {
- foreach ($conditionrules['children'] as $conditionrule) {
- if ($conditionrule['name']=='IMSSS:RULECONDITIONS') {
- $ruleconditions = array();
- if (!empty($conditionrule['attrs']['conditionCombination'])) {
- $sequencingrule->conditionCombination = $conditionrule['attrs']['conditionCombination'];
- }
- foreach ($conditionrule['children'] as $rulecondition) {
- if ($rulecondition['name']=='IMSSS:RULECONDITION') {
- $condition = new stdClass();
- if (!empty($rulecondition['attrs']['OPERATOR'])) {
- $condition->operator = $rulecondition['attrs']['OPERATOR'];
- }
- if (!empty($rulecondition['attrs']['CONDITION'])) {
- $condition->condition = $rulecondition['attrs']['CONDITION'];
- }
- if (!empty($rulecondition['attrs']['MEASURETHRESHOLD'])) {
- $condition->measurethreshold = $rulecondition['attrs']['MEASURETHRESHOLD'];
- }
- if (!empty($rulecondition['attrs']['REFERENCEDOBJECTIVE'])) {
- $condition->referencedobjective = $rulecondition['attrs']['REFERENCEDOBJECTIVE'];
- }
- array_push($ruleconditions,$condition);
- }
- }
- $sequencingrule->ruleconditions = $ruleconditions;
- }
- if ($conditionrule['name']=='IMSSS:RULEACTION') {
- $sequencingrule->exitconditionruleaction = $conditionrule['attrs']['ACTION'];
- }
- }
- }
- array_push($sequencingrules,$sequencingrule);
- }
- if ($conditionrules['name']=='IMSSS:PRECONDITIONRULE') {
- $sequencingrule = new stdClass();
- if (!empty($conditionrules['children'])) {
- foreach ($conditionrules['children'] as $conditionrule) {
- if ($conditionrule['name']=='IMSSS:RULECONDITIONS') {
- $ruleconditions = array();
- if (!empty($conditionrule['attrs']['conditionCombination'])) {
- $sequencingrule->conditionCombination = $conditionrule['attrs']['conditionCombination'];
- }
- foreach ($conditionrule['children'] as $rulecondition) {
- if ($rulecondition['name']=='IMSSS:RULECONDITION') {
- $condition = new stdClass();
- if (!empty($rulecondition['attrs']['OPERATOR'])) {
- $condition->operator = $rulecondition['attrs']['OPERATOR'];
- }
- if (!empty($rulecondition['attrs']['CONDITION'])) {
- $condition->condition = $rulecondition['attrs']['CONDITION'];
- }
- if (!empty($rulecondition['attrs']['MEASURETHRESHOLD'])) {
- $condition->measurethreshold = $rulecondition['attrs']['MEASURETHRESHOLD'];
- }
- if (!empty($rulecondition['attrs']['REFERENCEDOBJECTIVE'])) {
- $condition->referencedobjective = $rulecondition['attrs']['REFERENCEDOBJECTIVE'];
- }
- array_push($ruleconditions,$condition);
- }
- }
- $sequencingrule->ruleconditions = $ruleconditions;
- }
- if ($conditionrule['name']=='IMSSS:RULEACTION') {
- $sequencingrule->preconditionruleaction = $conditionrule['attrs']['ACTION'];
- }
- }
- }
- array_push($sequencingrules,$sequencingrule);
- }
- if ($conditionrules['name']=='IMSSS:POSTCONDITIONRULE') {
- $sequencingrule = new stdClass();
- if (!empty($conditionrules['children'])) {
- foreach ($conditionrules['children'] as $conditionrule) {
- if ($conditionrule['name']=='IMSSS:RULECONDITIONS'){
- $ruleconditions = array();
- if (!empty($conditionrule['attrs']['conditionCombination'])){
- $sequencingrule->conditionCombination = $conditionrule['attrs']['conditionCombination'];
- }
- foreach ($conditionrule['children'] as $rulecondition){
- if ($rulecondition['name']=='IMSSS:RULECONDITION'){
- $condition = new stdClass();
- if (!empty($rulecondition['attrs']['OPERATOR'])){
- $condition->operator = $rulecondition['attrs']['OPERATOR'];
- }
- if (!empty($rulecondition['attrs']['CONDITION'])){
- $condition->condition = $rulecondition['attrs']['CONDITION'];
- }
- if (!empty($rulecondition['attrs']['MEASURETHRESHOLD'])){
- $condition->measurethreshold = $rulecondition['attrs']['MEASURETHRESHOLD'];
- }
- if (!empty($rulecondition['attrs']['REFERENCEDOBJECTIVE'])){
- $condition->referencedobjective = $rulecondition['attrs']['REFERENCEDOBJECTIVE'];
- }
- array_push($ruleconditions,$condition);
- }
- }
- $sequencingrule->ruleconditions = $ruleconditions;
- }
- if ($conditionrule['name']=='IMSSS:RULEACTION'){
- $sequencingrule->postconditionruleaction = $conditionrule['attrs']['ACTION'];
- }
- }
- }
- array_push($sequencingrules,$sequencingrule);
- }
- $scoes->elements[$manifest][$parent->organization][$parent->identifier]->sequencingrules = $sequencingrules;
- }
- }
- }
- break;
-*/
-
-function scorm_parse_scorm($pkgdir,$scormid) {
- global $CFG;
-
- $launch = 0;
- $manifestfile = $pkgdir.'/imsmanifest.xml';
-
- if (is_file($manifestfile)) {
-
- $xmlstring = file_get_contents($manifestfile);
- $objXML = new xml2Array();
- $manifests = $objXML->parse($xmlstring);
- // print_r($manifests);
- $scoes = new stdClass();
- $scoes->version = '';
- $scoes = scorm_get_manifest($manifests,$scoes);
-
- if (count($scoes->elements) > 0) {
- $olditems = get_records('scorm_scoes','scorm',$scormid);
- foreach ($scoes->elements as $manifest => $organizations) {
- foreach ($organizations as $organization => $items) {
- foreach ($items as $identifier => $item) {
- $item->scorm = $scormid;
- $item->manifest = $manifest;
- $item->organization = $organization;
- if ($olditemid = scorm_array_search('identifier',$item->identifier,$olditems)) {
- $item->id = $olditemid;
- $id = update_record('scorm_scoes',$item);
- unset($olditems[$olditemid]);
- } else {
- $id = insert_record('scorm_scoes',$item);
- }
- // Added by Pham Minh Duc
- $item->scormid = $scormid;
- $item->scoid = $id;
- $idControlMode = insert_record('scorm_sequencing_controlmode',$item);
-
- if (!empty($item->sequencingrules)) {
- foreach($item->sequencingrules as $sequencingrule) {
- $sequencingrule->scormid = $scormid;
- $sequencingrule->scoid = $item->scoid;
- $idruleconditions = insert_record('scorm_sequencing_ruleconditions',$sequencingrule);
- foreach($sequencingrule->ruleconditions as $rulecondition) {
- $rulecondition->scormid = $sequencingrule->scormid;
- $rulecondition->scoid = $sequencingrule->scoid;
- $rulecondition->ruleconditionsid = $idruleconditions;
- $idrulecondition = insert_record('scorm_sequencing_rulecondition',$rulecondition);
- }
- }
- }
-
- if (!empty($item->rolluprules)) {
- $idControlMode = insert_record('scorm_sequencing_rolluprules',$item);
- foreach($item->rolluprules as $rollup) {
- $rollup->rolluprulesid =$idControlMode;
- $rollup->scormid = $scormid;
- $rollup->scoid = $item->scoid;
-
- $idRollupRule = insert_record('scorm_sequencing_rolluprule',$rollup);
- $rollup->rollupruleid = $idRollupRule;
- $idconditions = insert_record('scorm_sequencing_rollupruleconditions',$rollup);
- foreach($rollup->conditions as $condition){
- $condition->ruleconditionsid = $idconditions;
- $condition->scormid = $rollup->scormid;
- $condition->scoid = $rollup->scoid;
- $idcondition = insert_record('scorm_sequencing_rolluprulecondition',$condition);
- }
- }
- }
- // End Add
- if (($launch == 0) && ((empty($scoes->defaultorg)) || ($scoes->defaultorg == $identifier))) {
- $launch = $id;
- }
- }
- }
- }
- if (!empty($olditems)) {
- foreach($olditems as $olditem) {
- delete_records('scorm_scoes','id',$olditem->id);
- delete_records('scorm_scoes_track','scoid',$olditem->id);
- }
- }
- set_field('scorm','version',$scoes->version,'id',$scormid);
- }
- }
-
- return $launch;
-}
function scorm_get_toc($user,$scorm,$liststyle,$currentorg='',$scoid='',$mode='normal',$attempt='',$play=false) {
global $CFG;
// Retrieve user tracking data for each learning object
//
- // Added by Pham Minh Duc
- // $suspendedscoid = scorm_get_suspendedscoid($scorm->id,$user->id,$attempt);
- // End add
-
$usertracks = array();
+ $optionaldatas = array();
foreach ($scoes as $sco) {
if (!empty($sco->launch)) {
if ($usertrack=scorm_get_tracks($sco->id,$user->id,$attempt)) {
}
$usertracks[$sco->identifier] = $usertrack;
}
+ if ($optionaldata = scorm_get_sco($sco->id, SCO_DATA)) {
+ $optionaldatas[$sco->identifier] = $optionaldata;
+ }
}
}
$parents[$level]='/';
foreach ($scoes as $sco) {
$isvisible = false;
- if ($optionaldatas = scorm_get_sco($sco->id, SCO_DATA)) {
- if (!isset($optionaldatas->isvisible) || (isset($optionaldatas->isvisible) && ($optionaldatas->isvisible == 'true'))) {
+ if (isset($optionaldatas[$sco->identifier])) {
+ if (!isset($optionaldatas[$sco->identifier]->isvisible) ||
+ (isset($optionaldatas[$sco->identifier]->isvisible) && ($optionaldatas[$sco->identifier]->isvisible == 'true'))) {
$isvisible = true;
}
}
}
$nextsco = next($scoes);
$nextisvisible = false;
- if (($nextsco !== false) && ($optionaldatas = scorm_get_sco($nextsco->id, SCO_DATA))) {
- if (!isset($optionaldatas->isvisible) || (isset($optionaldatas->isvisible) && ($optionaldatas->isvisible == 'true'))) {
+ if (($nextsco !== false) && (isset($optionaldatas[$nextsco->identifier]))) {
+ if (!isset($optionaldatas[$nextsco->identifier]->isvisible) ||
+ (isset($optionaldatas[$nextsco->identifier]->isvisible) && ($optionaldatas[$nextsco->identifier]->isvisible == 'true'))) {
$nextisvisible = true;
}
}
- if ($nextisvisible && ($nextsco !== false) && ($sco->parent != $nextsco->parent) && (($level==0) || (($level>0) && ($nextsco->parent == $sco->identifier)))) {
+ if ($nextisvisible && ($nextsco !== false) && ($sco->parent != $nextsco->parent) &&
+ (($level==0) || (($level>0) && ($nextsco->parent == $sco->identifier)))) {
$sublist++;
$icon = 'minus';
if (isset($_COOKIE['hide:SCORMitem'.$nextsco->id])) {
$icon = 'plus';
}
- $result->toc .= '<a href="javascript:expandCollide(img'.$sublist.','.$sublist.','.$nextsco->id.');"><img id="img'.$sublist.'" src="'.$scormpixdir.'/'.$icon.'.gif" alt="'.$strexpand.'" title="'.$strexpand.'"/></a>';
+ $result->toc .= '<a href="javascript:expandCollide(img'.$sublist.','.$sublist.','.$nextsco->id.');">'.
+ '<img id="img'.$sublist.'" src="'.$scormpixdir.'/'.$icon.'.gif" alt="'.$strexpand.'" title="'.$strexpand.'"/></a>';
} else if ($isvisible) {
$result->toc .= '<img src="'.$scormpixdir.'/spacer.gif" />';
}
$startbold = '<b>';
$endbold = '</b>';
$findnext = true;
- $shownext = $sco->next;
- $showprev = $sco->previous;
+ $shownext = isset($optionaldatas[$sco->identifier]->next) ? $optionaldatas[$sco->identifier]->next : 0;
+ $showprev = isset($optionaldatas[$sco->identifier]->prev) ? $optionaldatas[$sco->identifier]->prev : 0;
}
if (($nextid == 0) && (scorm_count_launchable($scorm->id,$currentorg) > 1) && ($nextsco!==false) && (!$findnext)) {
$previd = $sco->id;
}
}
- if (empty($sco->prerequisites) || scorm_eval_prerequisites($sco->prerequisites,$usertracks)) {
+ require_once('sequencinglib.php');
+ if (scorm_seq_evaluate($sco->id,$usertracks)) {
if ($sco->id == $scoid) {
$result->prerequisites = true;
}
- // Modified by Pham Minh Duc
- // if (scorm_isChoice($scorm->id,$sco->id) == 1) {
$url = $CFG->wwwroot.'/mod/scorm/player.php?a='.$scorm->id.'&currentorg='.$currentorg.$modestr.'&scoid='.$sco->id;
$result->toc .= $statusicon.' '.$startbold.'<a href="'.$url.'">'.format_string($sco->title).'</a>'.$score.$endbold."</li>\n";
$tocmenus[$sco->id] = scorm_repeater('−',$level) . '>' . format_string($sco->title);
- // } else {
- // $result->toc .= ' '.$startbold.format_string($sco->title).$score.$endbold."</li>\n";
- // $tocmenus[$sco->id] = scorm_repeater('−',$level) . '>' . format_string($sco->title);
- // }
- // End modify
} else {
if ($sco->id == $scoid) {
$result->prerequisites = false;
return $result;
}
-//
-// Functions added by Pham Minh Duc
-//
-function scorm_get_score_from_parent($sco,$userid,$grademethod=VALUESCOES) {
- $scores = NULL;
- $scores->scoes = 0;
- $scores->values = 0;
- $scores->scaled = 0;
- $scores->max = 0;
- $scores->sum = 0;
-
- $scoes_total = 0;
- $scoes_count = 0;
- $attempt = scorm_get_last_attempt($sco->scorm, $userid);
- $scoes = get_records('scorm_scoes', 'parent', $sco->identifier);
- foreach ($scoes as $sco)
- {
- $scoes_total++;
- if ($userdata=scorm_get_tracks($sco->id, $userid,$attempt)) {
- if (($userdata->status == 'completed') || ($userdata->success_status == 'passed')) {
- $scoes_count++;
- }
-
- $scoreraw = $userdata->score_raw;
- if (!empty($userdata->score_raw)) {
- $scores->values++;
- $scores->sum += $userdata->score_raw;
- $scores->max = ($userdata->score_raw > $scores->max)?$userdata->score_raw:$scores->max;
- }
- if (!empty($userdata->score_scaled)) {
- $scores->scaled = $scores->scaled + $userdata->score_scaled;
- }
- }
- }
- if ($scoes_count > 0) {
- $scores->scaled = ($scores->scaled)/($scoes_count);
- }
- switch ($grademethod) {
- case VALUEHIGHEST:
- return $scores->max;
- break;
- case VALUEAVERAGE:
- if ($scores->values > 0) {
- return $scores->sum/$scores->values;
- } else {
- return 0;
- }
- break;
- case VALUESUM:
- return $scores->sum;
- break;
- case VALUESCOES:
- return $scores->scaled;
- break;
- }
-}
-
-function scorm_get_user_sco_count($scormid, $userid) {
- $scoes_count = 0;
- $attempt = scorm_get_last_attempt($current->scorm, $userid);
- $scoes = get_records('scorm_scoes', 'scorm', $scormid);
-
- foreach ($scoes as $sco) {
- if ($userdata=scorm_get_tracks($sco->id, $userid,$attempt)) {
- if (($userdata->status == 'completed') || ($userdata->success_status == 'passed')) {
- $scoes_count++;
- }
- }
- }
- return $scoes_count;
-}
-
-function scorm_grade_user_new($scoes, $userid, $grademethod=VALUESCOES) {
- $scores = NULL;
- $scores->scoes = 0;
- $scores->values = 0;
- $scores->scaled = 0;
- $scores->max = 0;
- $scores->sum = 0;
-
- if (!$scoes) {
- return '';
- }
- $current = current($scoes);
- $attempt = scorm_get_last_attempt($current->scorm, $userid);
- foreach ($scoes as $sco) {
- if ($userdata=scorm_get_tracks($sco->id, $userid,$attempt)) {
- if (($userdata->status == 'completed') || ($userdata->success_status == 'passed')) {
- $scores->scoes++;
- }
- $scaled = $userdata->score_scaled;
- $scoreraw = $userdata->score_raw;
- if ($scaled ==0){
- $scores->scaled = $scores->scaled / $scores->scoes;
- }
- if (!empty($userdata->score_raw)) {
- $scores->values++;
- $scores->sum += $userdata->score_raw;
- $scores->max = ($userdata->score_raw > $scores->max)?$userdata->score_raw:$scores->max;
- }
- if (!empty($scaled)) {
- $scores->scaled = (($scores->scaled) * ($scores->scoes-1) + $scaled)/($scores->scoes);
- }
- }
- }
- switch ($grademethod) {
- case VALUEHIGHEST:
- return $scores->max;
- break;
- case VALUEAVERAGE:
- if ($scores->values > 0) {
- return $scores->sum/$scores->values;
- } else {
- return 0;
- }
- break;
- case VALUESUM:
- return $scores->sum;
- break;
- case VALUESCOES:
- return $scores->scaled;
- break;
- }
-}
-
-function scorm_get_suspendedscoid($scormid,$userid,$attempt) {
- if ($sco = get_record_select("scorm_scoes_track","scormid=$scormid AND userid=$userid AND attempt=$attempt AND (element='cmi.exit' OR element='cmi.core.exit') AND value='suspend'")) {
- return $sco->scoid;
- } else {
- return 0;
- }
-}
-
-function scorm_set_attempt($scoid,$userid) {
- if ($scormid = get_field('scorm_scoes','scorm','id',$scoid)) {
- $attempt = scorm_get_last_attempt($scormid,$userid);
- } else {
- $attempt = 1;
- }
- $scormtype = get_field('scorm_scoes','scormtype','id',$scoid) ;
- if ($scormtype == 'sco'){
- $element = 'cmi.attempt_status';
- $value = 'attempted';
- scorm_insert_track($userid,$scormid,$scoid,$attempt,$element,$value);
- }
-}
-
-function scorm_isChoice($scormid,$scoid)
-{
- $sco = get_record("scorm_scoes","id",$scoid);
- $scoparent = get_record("scorm_sequencing_controlmode","scormid",$scormid,"identifier",$sco->parent);
-
- return $scoparent->choice;
-}
-
-function scorm_isChoiceexit($scormid,$scoid)
-{
- $sco = get_record("scorm_scoes","id",$scoid);
- $scoparent = get_record("scorm_sequencing_controlmode","scormid",$scormid,"identifier",$sco->parent);
-
- return $scoparent->choiceexit;
-}
-// End add
-
?>
-<?php \r
-\r
-// Cac ham danh cho viec thuc thi Sequencing\r
-// --------Ket thuc cac ham danh cho viec thuc thi Sequencing ------------\r
-\r
-// Cac ham danh cho viec thuc thi Rollup\r
-\r
-//-----------------------------------------------------\r
-function scorm_rollup_updatestatus($scormid,$scoidchild, $userid)\r
-{\r
- //$f = "D:\\test.txt";\r
- //@$ft = fopen($f,"a");\r
- //fwrite($ft,"\n >>>>> SCO goi Rollup la ".$scoidchild);\r
- $scochild = get_record("scorm_scoes","id",$scoidchild);\r
- $scoparent = get_record("scorm_scoes","scorm",$scormid,"identifier",$scochild->parent);\r
- //Danh sach cac con cua cha\r
- $scochildren = get_records_select("scorm_scoes","scorm =".$scormid." and parent ='".$scoparent->identifier."'");\r
- //Lay gia tri last attempt\r
- //fwrite($ft,"\n >>>>> Bat dau xu ly Rollup SCO cha ".$scoparent->id);\r
- $attempt = scorm_get_last_attempt($scormid,$userid);\r
- \r
- if(!empty($scoparent)){\r
- $scoid = $scoparent->id;\r
- $rolluprules = get_record("scorm_sequencing_rolluprules","scormid",$scormid,"scoid",$scoid);\r
- if (!empty($rolluprules)){\r
- $idrolluprules = $rolluprules->id;\r
- $rules = get_records_select('scorm_sequencing_rolluprule','scoid ='.$scoid.' and rolluprulesid ='. $idrolluprules);\r
- \r
- foreach ($rules as $rule){\r
- $ruleid = $rule->id;\r
- $ruleConditions = get_record("scorm_sequencing_rollupruleconditions","scoid",$scoid,"rollupruleid",$ruleid); \r
- $idruleConditions = $ruleConditions->id;\r
- $conditions = get_records_select('scorm_sequencing_rolluprulecondition','scoid ='.$scoid.' and ruleconditionsid ='.$idruleConditions); \r
- \r
- //Truong hop 1: childactivitySet = all\r
- // conditioncombination = any\r
- if (($rule->childactivityset == 'all') && ($ruleConditions->conditioncombination=='any')){\r
- foreach($conditions as $condition){\r
- $conditionOK = false; \r
- //Condition 1: condition = attempted operator = 'noOp'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'attempted') && ($condition->operator=='noOp')){\r
- $conditionOK = true; \r
- foreach ($scochildren as $sco){\r
- //fwrite($ft,"\n >>>>> Xu ly Rollup voi dieu kien attempt \n");\r
- $usertrack = scorm_get_tracks($sco->id,$userid);\r
- if ($usertrack->attempt_status != 'attempted'){\r
- //fwrite($ft,"\n >>>>> Co SCO con chua attempted \n");\r
- $conditionOK = false;\r
- }\r
- }\r
- }\r
- //Condition 2: condition = attempted operator = 'not'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'attempted') && ($condition->operator=='not')){\r
- $conditionOK = true; \r
- foreach ($scochildren as $sco){\r
- //fwrite($ft,"\n >>>>> Xu ly Rollup voi dieu kien not attempt \n");\r
- $usertrack = scorm_get_tracks($sco->id,$userid);\r
- if ($usertrack->attempt_status != 'notattempted'){\r
- $conditionOK = false;\r
- }\r
- }\r
- } \r
- //Condition 3: condition = satisfied operator = 'noOp'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'satisfied') && ($condition->operator=='noOp')){\r
- $conditionOK = true; \r
- foreach ($scochildren as $sco){\r
- $usertrack = scorm_get_tracks($sco->id,$userid);\r
- if ($usertrack->satisfied_status != 'satisfied'){\r
- $conditionOK = false;\r
- }\r
- }\r
- }\r
- //Condition 4: condition = satisfied operator = 'not'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'satisfied') && ($condition->operator=='not')){\r
- $conditionOK = true; \r
- foreach ($scochildren as $sco){\r
- $usertrack = scorm_get_tracks($sco->id,$userid);\r
- if ($usertrack->satisfied_status != 'notSatisfied'){\r
- $conditionOK = false;\r
- }\r
- }\r
- } \r
- //Condition 5: condition = completed operator = 'noOp'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'completed') && ($condition->operator=='noOp')){\r
- $conditionOK = true; \r
- foreach ($scochildren as $sco){\r
- $usertrack = scorm_get_tracks($sco->id,$userid);\r
- if ($usertrack->attempt_status != 'completed'){\r
- $conditionOK = false;\r
- }\r
- }\r
- } \r
- //Condition 6: condition = completed operator = 'not'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'completed') && ($condition->operator=='not')){\r
- $conditionOK = true; \r
- foreach ($scochildren as $sco){\r
- $usertrack = scorm_get_tracks($sco->id,$userid);\r
- if ($usertrack->attempt_status != 'notcompleted'){\r
- $conditionOK = false;\r
- }\r
- }\r
- } \r
- //Neu dieu kien van dung sau khi xem xet thi thuc hien action\r
- if ($conditionOK == true){\r
- if ($ruleConditions->rollupruleaction == 'completed')\r
- {\r
- scorm_insert_track($userid,$scormid,$scoid,$attempt,'cmi.completion_status','completed');\r
- //fwrite($ft,"\n >>>>> Xu ly Rollup thanh cong voi completed cho SCO ".$scoid);\r
- }\r
- if ($ruleConditions->rollupruleaction == 'satisfied')\r
- {\r
- scorm_insert_track($userid,$scormid,$scoid,$attempt,'cmi.success_status','passed');\r
- //fwrite($ft,"\n >>>>> Xu ly Rollup thanh cong voi satisfied\n");\r
- }\r
- if ($ruleConditions->rollupruleaction == 'notSatisfied')\r
- {\r
- scorm_insert_track($userid,$scormid,$scoid,$attempt,'cmi.success_status','failed');\r
- //fwrite($ft,"\n >>>>> Xu ly Rollup thanh cong voi notSatisfied\n");\r
- } \r
- //echo "<script language='JavaScript'>";\r
- //echo "alert('Thuc hien rollup. Trang thai ".$scoparent->identifier." la hoan thanh voi userid".$userid."');";\r
- //echo "<script>";\r
- \r
- }\r
- }\r
- }\r
- //Ket thuc truong hop 1\r
- //Truong hop 2: childactivitySet = any\r
- // conditioncombination = any\r
- if (($rule->childactivityset == 'any') && ($ruleConditions->conditioncombination=='any')){\r
- $conditionOK = false; \r
- foreach($conditions as $condition){\r
- //$conditionOK = false; \r
- //Condition 1: condition = attempted operator = 'noOp'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'attempted') && ($condition->operator=='noOp')){\r
- $conditionOK = false; \r
- foreach ($scochildren as $sco){\r
- $usertrack = scorm_get_tracks($sco->id,$userid);\r
- if ($usertrack->attempt_status = 'attempted'){\r
- $conditionOK = true;\r
- }\r
- }\r
- }\r
- //Condition 2: condition = attempted operator = 'not'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'attempted') && ($condition->operator=='not')){\r
- $conditionOK = false; \r
- foreach ($scochildren as $sco){\r
- $usertrack = scorm_get_tracks($sco->id,$userid);\r
- if ($usertrack->attempt_status = 'notattempted'){\r
- $conditionOK = true;\r
- }\r
- }\r
- } \r
- //Condition 3: condition = satisfied operator = 'noOp'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'satisfied') && ($condition->operator=='noOp')){\r
- $conditionOK = false; \r
- foreach ($scochildren as $sco){\r
- $usertrack = scorm_get_tracks($sco->id,$userid);\r
- if ($usertrack->satisfied_status = 'satisfied'){\r
- $conditionOK = true;\r
- }\r
- }\r
- }\r
- //Condition 4: condition = satisfied operator = 'not'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'satisfied') && ($condition->operator=='not')){\r
- $conditionOK = false; \r
- foreach ($scochildren as $sco){\r
- $usertrack = scorm_get_tracks($sco->id,$userid);\r
- if ($usertrack->satisfied_status = 'notSatisfied'){\r
- //fwrite($ft,"\n >>>>> Xu ly Rollup voi notSatisfied\n");\r
- $conditionOK = true;\r
- }\r
- }\r
- } \r
- //Condition 5: condition = completed operator = 'noOp'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'completed') && ($condition->operator=='noOp')){\r
- $conditionOK = false; \r
- foreach ($scochildren as $sco){\r
- $usertrack = scorm_get_tracks($sco->id,$userid);\r
- if ($usertrack->attempt_status = 'completed'){\r
- $conditionOK = true;\r
- }\r
- }\r
- } \r
- //Condition 6: condition = completed operator = 'not'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'completed') && ($condition->operator=='not')){\r
- $conditionOK = false; \r
- foreach ($scochildren as $sco){\r
- $usertrack = scorm_get_tracks($sco->id,$userid);\r
- if ($usertrack->attempt_status = 'notcompleted'){\r
- $conditionOK = true;\r
- }\r
- }\r
- } \r
- //Neu dieu kien van dung sau khi xem xet thi thuc hien action\r
- if ($conditionOK == true){\r
- if ($ruleConditions->rollupruleaction == 'completed')\r
- {\r
- scorm_insert_track($userid,$scormid,$scoid,$attempt,'cmi.completion_status','completed');\r
- //fwrite($ft,"\n >>>>> Xu ly Rollup thanh cong voi completed\n");\r
- }\r
- if ($ruleConditions->rollupruleaction == 'satisfied')\r
- {\r
- scorm_insert_track($userid,$scormid,$scoid,$attempt,'cmi.success_status','passed');\r
- //fwrite($ft,"\n >>>>> Xu ly Rollup thanh cong voi satisfied\n");\r
- }\r
- if ($ruleConditions->rollupruleaction == 'notSatisfied')\r
- {\r
- scorm_insert_track($userid,$scormid,$scoid,$attempt,'cmi.success_status','failed');\r
- //fwrite($ft,"\n >>>>> Xu ly Rollup thanh cong voi notSatisfied\n");\r
- } \r
- //echo "<script language='JavaScript'>";\r
- //echo "alert('Thuc hien rollup. Trang thai ".$scoparent->identifier." la hoan thanh voi userid".$userid."');";\r
- //echo "<script>";\r
- \r
- }\r
- }\r
- }\r
- //Ket thuc truong hop 2\r
- //Truong hop 3: childactivitySet = any\r
- // conditioncombination = all\r
- if (($rule->childactivityset == 'any') && ($ruleConditions->conditioncombination=='all')){\r
- foreach ($scochildren as $sco){\r
- $usertrack = scorm_get_tracks($sco->id,$userid);\r
- $conditionOK = true; \r
- foreach($conditions as $condition){\r
- //Condition 1: condition = attempted operator = 'noOp'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'attempted') && ($condition->operator=='noOp')){\r
- if ($usertrack->attempt_status != 'attempted'){\r
- $conditionOK = false;\r
- }\r
- }\r
- //Condition 2: condition = attempted operator = 'not'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'attempted') && ($condition->operator=='not')){\r
- if ($usertrack->attempt_status != 'notattempted'){\r
- $conditionOK = false;\r
- }\r
- } \r
- //Condition 3: condition = satisfied operator = 'noOp'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'satisfied') && ($condition->operator=='noOp')){\r
- if ($usertrack->attempt_status != 'satisfied'){\r
- $conditionOK = false;\r
- }\r
- }\r
- //Condition 4: condition = satisfied operator = 'not'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'satisfied') && ($condition->operator=='not')){\r
- if ($usertrack->attempt_status != 'notSatisfied'){\r
- $conditionOK = false;\r
- }\r
- } \r
- //Condition 5: condition = completed operator = 'noOp'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'completed') && ($condition->operator=='noOp')){\r
- if ($usertrack->attempt_status != 'completed'){\r
- $conditionOK = false;\r
- }\r
- } \r
- //Condition 6: condition = completed operator = 'not'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'completed') && ($condition->operator=='not')){\r
- if ($usertrack->attempt_status != 'notcompleted'){\r
- $conditionOK = false;\r
- }\r
- } \r
- //Neu dieu kien van dung sau khi xem xet thi thuc hien action\r
- }\r
- }\r
- if ($conditionOK == true){\r
- if ($ruleConditions->rollupruleaction == 'completed')\r
- {\r
- scorm_insert_track($userid,$scormid,$scoid,$attempt,'cmi.completion_status','completed');\r
- //fwrite($ft,"\n >>>>> Xu ly Rollup thanh cong voi completed\n");\r
- }\r
- if ($ruleConditions->rollupruleaction == 'satisfied')\r
- {\r
- scorm_insert_track($userid,$scormid,$scoid,$attempt,'cmi.success_status','passed');\r
- //fwrite($ft,"\n >>>>> Xu ly Rollup thanh cong voi satisfied\n");\r
- }\r
- if ($ruleConditions->rollupruleaction == 'notSatisfied')\r
- {\r
- scorm_insert_track($userid,$scormid,$scoid,$attempt,'cmi.success_status','failed');\r
- //fwrite($ft,"\n >>>>> Xu ly Rollup thanh cong voi notSatisfied\n");\r
- } \r
- //echo "<script language='JavaScript'>";\r
- //echo "alert('Thuc hien rollup. Trang thai ".$scoparent->identifier." la hoan thanh voi userid".$userid."');";\r
- //echo "<script>";\r
- \r
- } \r
- }\r
- //Ket thuc truong hop 3\r
- //Truong hop 4: childactivitySet = all\r
- // conditioncombination = all\r
- if (($rule->childactivityset == 'all') && ($ruleConditions->conditioncombination=='all')){\r
- $conditionOK = true; \r
- foreach ($scochildren as $sco){\r
- $usertrack = scorm_get_tracks($sco->id,$userid);\r
- foreach($conditions as $condition){\r
- //Condition 1: condition = attempted operator = 'noOp'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'attempted') && ($condition->operator=='noOp')){\r
- if ($usertrack->attempt_status != 'attempted'){\r
- $conditionOK = false;\r
- }\r
- }\r
- //Condition 2: condition = attempted operator = 'not'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'attempted') && ($condition->operator=='not')){\r
- if ($usertrack->attempt_status != 'notattempted'){\r
- $conditionOK = false;\r
- }\r
- } \r
- //Condition 3: condition = satisfied operator = 'noOp'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'satisfied') && ($condition->operator=='noOp')){\r
- if ($usertrack->attempt_status != 'satisfied'){\r
- $conditionOK = false;\r
- }\r
- }\r
- //Condition 4: condition = satisfied operator = 'not'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'satisfied') && ($condition->operator=='not')){\r
- if ($usertrack->attempt_status != 'notSatisfied'){\r
- $conditionOK = false;\r
- }\r
- } \r
- //Condition 5: condition = completed operator = 'noOp'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'completed') && ($condition->operator=='noOp')){\r
- if ($usertrack->attempt_status != 'completed'){\r
- $conditionOK = false;\r
- }\r
- } \r
- //Condition 6: condition = completed operator = 'not'\r
- // Thuc hien rollupaction \r
- if (($condition->condition == 'completed') && ($condition->operator=='not')){\r
- if ($usertrack->attempt_status != 'notcompleted'){\r
- $conditionOK = false;\r
- }\r
- } \r
- //Neu dieu kien van dung sau khi xem xet thi thuc hien action\r
- }\r
- }\r
- if ($conditionOK == true){\r
- if ($ruleConditions->rollupruleaction == 'completed')\r
- {\r
- scorm_insert_track($userid,$scormid,$scoid,$attempt,'cmi.completion_status','completed');\r
- //fwrite($ft,"\n >>>>> Xu ly Rollup thanh cong voi completed\n");\r
- }\r
- if ($ruleConditions->rollupruleaction == 'satisfied')\r
- {\r
- scorm_insert_track($userid,$scormid,$scoid,$attempt,'cmi.success_status','passed');\r
- //fwrite($ft,"\n >>>>> Xu ly Rollup thanh cong voi satisfied\n");\r
- }\r
- if ($ruleConditions->rollupruleaction == 'notSatisfied')\r
- {\r
- scorm_insert_track($userid,$scormid,$scoid,$attempt,'cmi.success_status','failed');\r
- //fwrite($ft,"\n >>>>> Xu ly Rollup thanh cong voi notSatisfied\n");\r
- } \r
- //echo "<script language='JavaScript'>";\r
- //echo "alert('Thuc hien rollup. Trang thai ".$scoparent->identifier." la hoan thanh voi userid".$userid."');";\r
- //echo "<script>";\r
- \r
- } \r
- }\r
- //Ket thuc truong hop 4 \r
- } \r
- }\r
- \r
- //Thuc hien de qui cho Rollup voi cac muc cha\r
- $scograndparent = get_record("scorm_scoes","scorm",$scormid,"identifier",$scoparent->parent);\r
- if (!empty($scograndparent)){\r
- //fwrite($ft,"\n >>>>> Quay lui Rollup SCO ".$scoparent->id);\r
- scorm_rollup_updatestatus($scormid,$scoparent->id, $userid);\r
- }\r
- }\r
-}\r
-\r
-// --------Ket thuc cac ham danh cho viec thuc thi Rollup -------\r
-\r
-//---------Thuc hien sequencing rule -----------------\r
-function scorm_sequecingrule_implement($scormid,$scoidchild, $userid)\r
-{\r
- $sequencingResult->rule = ''; //Rule co 3 truong hop exit, pre va post\r
- $sequencingResult->action = '';\r
- \r
- \r
- $f = "D:\\test.txt";\r
- @$ft = fopen($f,"a");\r
- //fwrite($ft,"\n >>>>> Kiem tra Sequencing \n");\r
-\r
- $scochild = get_record("scorm_scoes","id",$scoidchild);\r
- $scoparent = get_record("scorm_scoes","scorm",$scormid,"identifier",$scochild->parent);\r
- //Danh sach cac con cua cha\r
- $scochildren = get_records_select("scorm_scoes","scorm =".$scormid." and parent ='".$scoparent->identifier."'");\r
- //Lay gia tri last attempt\r
- \r
- $attempt = scorm_get_last_attempt($scormid,$userid);\r
- \r
- if(!empty($scoparent)){\r
- //fwrite($ft,"\n >>>>> Kiem tra Sequencing : Co Parent\n");\r
- \r
- $scoid = $scoparent->id;\r
- //Lay trang thai cua SCO cha\r
- $usertrack = scorm_get_tracks($scoid,$userid);\r
- //fwrite($ft,"\n >>>>> Kiem tra Sequencing : id Parent ".$scoid); \r
- //fwrite($ft,"\n >>>>> Kiem tra Sequencing : usertrack ".$usertrack->status); \r
- $sequencingrules = get_records_select("scorm_sequencing_ruleconditions","scormid=".$scormid." and scoid=".$scoid);\r
- if (!empty($sequencingrules)){\r
- foreach($sequencingrules as $sequencingrule){\r
- //fwrite($ft,"\n >>>>> Kiem tra Sequencing : Co Sequencing o SCO".$sequencingrule->scoid); \r
- \r
- $idsequencingrule = $sequencingrule->id;\r
- $ruleconditions = get_records_select('scorm_sequencing_rulecondition','scoid ='.$scoid.' and ruleconditionsid ='. $idsequencingrule);\r
- \r
- $conditionOK = true;\r
- //Truong hop 1: conditioncombination = all \r
- if ($sequencingrule->conditioncombination =='all'){\r
- //fwrite($ft,"\n >>>>> Kiem tra Sequencing :conditioncombination la all \n"); \r
- $conditionOK = true;\r
- //fwrite($ft,"\n >>>>> Usertrack->status la: ".$usertrack->status);\r
- foreach ($ruleconditions as $rulecondition){\r
- //Neu co mot dieu kien khong thoa man thi se khong dung\r
- if (($rulecondition->condition != $usertrack->status)&&($rulecondition->condition != $usertrack->success_status)&&($rulecondition->condition != $usertrack->satisfied_status)){\r
- $conditionOK = false; \r
- }\r
- } \r
- }\r
- //Truong hop 2: conditioncombination = any \r
- if ($sequencingrule->conditioncombination =='any'){\r
- $conditionOK = false; \r
- foreach ($ruleconditions as $rulecondition){\r
- //Neu co mot dieu kien thoa man thi se dung\r
- if (($rulecondition->condition == $usertrack->status) || ($rulecondition->condition == $usertrack->success_status) || ($rulecondition->condition == $usertrack->satisfied_status) ){\r
- $conditionOK = true; \r
- }\r
- } \r
- }\r
- \r
- //fwrite($ft,"\n >>>>> Gia tri conditionOK sau khi kiem tra dk la: ".$conditionOK);\r
- //Neu dieu kien van dung thi thuc hien Action \r
- if ($conditionOK == true){\r
- //fwrite($ft,"\n >>>>> Dieu kien Sequencing OK..Thuc hien Action \n"); \r
- //Truong hop 1: ExitAction la Exit\r
- if ($sequencingrule->exitconditionruleaction=='exit')\r
- {\r
- //fwrite($ft,"\n >>>>> Xu ly Sequencing thanh cong -- Thuc hien su kien exit \n");\r
- echo "<script type=\"text/javascript\">";\r
- echo "alert('Thuc hien sequen. Do Trang thai ".$scoparent->identifier." la hoan thanh. Tien hanh EXIT');";\r
- echo "</script>";\r
- $sequencingResult->rule = 'exit';\r
- $sequencingResult->action = 'exit'; \r
- }\r
- if ($sequencingrule->preconditionruleaction=='disabled')\r
- {\r
- //fwrite($ft,"\n >>>>> Xu ly Sequencing thanh cong -- Thuc hien su kien disable \n");\r
- echo "<script type=\"text/javascript\">";\r
- echo "alert('Thuc hien sequen. Do Trang thai ".$scoparent->identifier." la hoan thanh. Tien hanh Disable');";\r
- echo "</script>"; \r
- $sequencingResult->rule = 'pre';\r
- $sequencingResult->action = 'disable'; \r
- \r
- } \r
- \r
- }\r
- }\r
- }\r
- }\r
- return $sequencingResult;\r
-}\r
-function get_sco_after_exit($scoid,$scormid){\r
- $scochild = get_record("scorm_scoes","id",$scoid);\r
- $scoparent = get_record("scorm_scoes","scorm",$scormid,"identifier",$scochild->parent);\r
- $exitscoid = $scoid++;\r
- $exitscochild = get_record("scorm_scoes","id",$exitscoid,"scorm",$scormid);\r
- if (empty($exitscochild)){\r
- //Da ra ngoai vung scoid. Hay day chinh la sco cuoi cung\r
- return 0;\r
- }\r
- else{\r
- $exitscoparent = get_record("scorm_scoes","scorm",$scormid,"identifier",$exitscochild->parent);\r
- //Neu chua ra khoi activity do thi tiep tuc\r
- while ($exitscoparent->id == $scoparent->id){\r
- $exitscoid++;\r
- $exitscochild = get_record("scorm_scoes","id",$exitscoid);\r
- if (empty($exitscochild)){\r
- //Da ra ngoai vung scoid. Hay day chinh la sco cuoi cung\r
- return 0;\r
- }\r
- else{\r
- $exitscoparent = get_record("scorm_scoes","scorm",$scormid,"identifier",$exitscochild->parent);\r
- }\r
- }\r
- }\r
- return $exitscoid; \r
-}\r
-\r
-?>\r
+<?php // $Id$
+
+function scorm_seq_evaluate($scoid,$usertracks) {
+ return true;
+}
+
+function scorm_seq_overall ($scoid,$userid,$request) {
+ $seq = scorm_seq_navigation($scoid,$userid,$request);
+ if ($seq->navigation) {
+ if ($seq->termination != null) {
+ $seq = scorm_seq_termination($scoid,$userid,$seq);
+ }
+ if ($seq->sequencing != null) {
+ // scorm_sequencing_sequencing($scoid,$userid,$seq);
+ }
+ if ($seq->target != null) {
+ // scorm_sequencing_delivery($scoid,$userid,$seq);
+ }
+ }
+ if ($seq->exception != null) {
+ // scorm_sequencing_exception($seq);
+ }
+ return 'true';
+}
+
+function scorm_seq_navigation ($scoid,$userid,$request) {
+ /// Sequencing structure
+ $seq = new stdClass();
+ $seq->currentactivity = scorm_get_sco($scoid);
+ $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->exception = null;
+
+ 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)) {
+ if ($track = get_record('scorm_scoes_track','scoid',$scoid,'userid',$userid,'name','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) && ($parent->flow == true)) {
+ // Current activity is active !
+ if ($request == 'continue_') {
+ $seq->navigation = true;
+ $seq->termination = 'exit';
+ $seq->sequencing = 'continue';
+ } else {
+ if (isset($parentsco->forwardonly) && ($parent->forwardolny == 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: /// {target=<STRING>}choice
+ if ($targetsco = get_record('scorm_scoes','scorm',$sco->scorm,'identifier',$request)) {
+ if ($targetsco->parent != '/') {
+ $seq->target = $request;
+ } else {
+ if ($parentsco = scorm_get_parent($targetsco)) {
+ if (isset($parentsco->choice) && ($parent->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 != $target->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_temination ($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 = scorm_seq_exit_action_rules($seq,$userid);
+ do {
+ $exit = 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);
+ $exit = 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);
+ }
+ /// Terminate Descendent Attempts Process
+ if ($ancestors = scorm_get_ancestors($sco)) {
+ foreach ($ancestors as $ancestor) {
+ scorm_seq_end_attempt($ancestor,$userid);
+ $seq->currentactivity = $ancestor;
+ }
+ }
+ $seq->active = scorm_seq_is('active',$seq->currentactivity->id,$userid);
+ $seq->termination = true;
+ break;
+ case 'suspendall':
+ if (($seq->active) || ($seq->suspended)) {
+ scorm_seq_set('suspended',$sco->id,$userid);
+ } else {
+ if ($sco->parent != '/') {
+ $parentsco = scorm_get_parent($sco);
+ scorm_seq_set('suspended',$parentsco->id,$userid);
+ } else {
+ $seq->termination = false;
+ $seq->exception = 'TB.2.3-3';
+ // return $seq;
+ }
+ }
+ if ($ancestors = scorm_get_ancestors($sco)) {
+ foreach ($ancestors as $ancestor) {
+ scorm_seq_set('active',$ancestor->id,$userid,0,false);
+ scorm_seq_set('suspended',$ancestor->id,$userid);
+ $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,0,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,0,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) {
+ 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,$attempt)) {
+ scorm_seq_set('attemptprogressstatus',$sco->id,$userid,$attempt);
+ scorm_seq_set('attemptcompletionstatus',$sco->id,$userid,$attempt);
+ }
+ }
+ if (!isset($sco->objectivesetbycontent) || ($sco->objectivesetbycontent == 0)) {
+ if ($sco->objectives) {
+ foreach ($objectives as $objective) {
+ if ($objective->primary) {
+ if (!scorm_seq_objective_progress_status($sco,$userid,$objective)) {
+ scorm_seq_set('objectiveprogressstatus',$sco->id,$userid,$attempt);
+ scorm_seq_set('objectivesatisfiedstatus',$sco->id,$userid,$attempt);
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ } else {
+ if ($children = scorm_get_children($sco)) {
+ $suspended = false;
+ foreach ($children as $child) {
+ if (scorm_seq_is('suspended',$child,$userid)) {
+ $suspended = true;
+ break;
+ }
+ }
+ if ($suspended) {
+ scorm_seq_set('suspended',$sco,$userid);
+ } else {
+ scorm_seq_set('suspended',$sco,$userid,0,false);
+ }
+ }
+ }
+ scorm_seq_set('active',$sco,$userid,0,false);
+ scorm_seq_overall_rollup($sco,$userid);
+}
+
+function scorm_seq_is($what, $scoid, $userid, $attempt=0) {
+ /// Check if passed activity $what is active
+ $active = false;
+ if ($track = get_record('scorm_scoes_track','scoid',$scoid,'userid',$userid,'element',$what)) {
+ $active = true;
+ }
+ return $active;
+}
+
+function scorm_seq_set($what, $scoid, $userid, $attempt=0, $value='true') {
+ /// set passed activity to active or not
+ if ($value == false) {
+ delete_record('scorm_scoes_track','scoid',$scoid,'userid',$userid,'element',$what);
+ } else {
+ $sco = scorm_get_sco($scoid);
+ scorm_insert_track($userid, $sco->scorm, $sco->id, 0, $what, $value);
+ }
+}
+
+function scorm_seq_exit_action_rules($seq,$userid) {
+ $sco = $seq->currentactivity;
+ $ancestors = scorm_get_ancestors($sco);
+ $exittarget = null;
+ foreach (array_reverse($ancestors) as $ancestor) {
+ if (scorm_seq_rules_check($ancestor,'exit') != null) {
+ $exittarget = $ancestor;
+ break;
+ }
+ }
+ if ($exittarget != null) {
+ $commons = array_slice($ancestors,0,scorm_find_common_ancestor($ancestors,$exittarget));
+
+ /// Terminate Descendent Attempts Process
+ if ($commons) {
+ foreach ($commons as $ancestor) {
+ scorm_seq_end_attempt($ancestor,$userid);
+ $seq->currentactivity = $ancestor;
+ }
+ }
+ }
+ return $seq;
+}
+
+function scorm_seq_post_cond_rules($seq,$userid) {
+ $sco = $seq->currentactivity;
+ if (!$seq->suspended) {
+ if ($action = scorm_seq_rules_check($sco,'post') != null) {
+ switch($action) {
+ case 'retry':
+ case 'continue':
+ case 'previous':
+ $seq->sequencing = $action;
+ break;
+ case 'exitparent':
+ case 'exitall':
+ $seq->termination = $action;
+ break;
+ case 'retryall':
+ $seq->termination = 'exitall';
+ $seq->sequencing = 'retry';
+ break;
+ }
+ }
+ }
+ return $seq;
+}
+
+?>
projects / moodle.git / commitdiff