LoadSCO

popup == 1?' target="newwin"':'' ?>> id,"userid",$user->id); - // End Add if ($scorm->hidebrowse == 0) { print_string("mode","scorm"); echo ': '.get_string('browse','scorm').''."\n"; if ($incomplete === true) { echo ''.get_string('normal','scorm')."\n"; - // Added by Pham Minh Duc - if (!empty($suspend)) { - echo ''.get_string('continue','scorm')."\n"; - } - // End Add - } else { - echo ''.get_string('review','scorm')."\n"; } } else { if ($incomplete === true) { @@ -1673,334 +494,4 @@ function scorm_view_display ($user, $scorm, $action, $cm, $blockwidth='') { parse($strYourXML); - print_r($arrOutput); //print it out, or do whatever! - -*/ -class xml2Array { - - var $arrOutput = array(); - var $resParser; - var $strXmlData; - - /** - * Convert a utf-8 string to html entities - * - * @param string $str The UTF-8 string - * @return string - */ - function utf8_to_entities($str) { - global $CFG; - - $entities = ''; - $values = array(); - $lookingfor = 1; - - if (empty($CFG->unicodedb)) { // If Unicode DB support enable does not convert string - $textlib = textlib_get_instance(); - for ($i = 0; $i < $textlib->strlen($str,'utf-8'); $i++) { - $thisvalue = ord($str[$i]); - if ($thisvalue < 128) { - $entities .= $str[$i]; // Leave ASCII chars unchanged - } else { - if (count($values) == 0) { - $lookingfor = ($thisvalue < 224) ? 2 : 3; - } - $values[] = $thisvalue; - if (count($values) == $lookingfor) { - $number = ($lookingfor == 3) ? - (($values[0] % 16) * 4096) + (($values[1] % 64) * 64) + ($values[2] % 64): - (($values[0] % 32) * 64) + ($values[1] % 64); - $entities .= '&#' . $number . ';'; - $values = array(); - $lookingfor = 1; - } - } - } - return $entities; - } else { - return $str; - } - } - - /** - * Parse an XML text string and create an array tree that rapresent the XML structure - * - * @param string $strInputXML The XML string - * @return array - */ - function parse($strInputXML) { - $this->resParser = xml_parser_create ('UTF-8'); - xml_set_object($this->resParser,$this); - xml_set_element_handler($this->resParser, "tagOpen", "tagClosed"); - - xml_set_character_data_handler($this->resParser, "tagData"); - - $this->strXmlData = xml_parse($this->resParser,$strInputXML ); - if(!$this->strXmlData) { - die(sprintf("XML error: %s at line %d", - xml_error_string(xml_get_error_code($this->resParser)), - xml_get_current_line_number($this->resParser))); - } - - xml_parser_free($this->resParser); - - return $this->arrOutput; - } - - function tagOpen($parser, $name, $attrs) { - $tag=array("name"=>$name,"attrs"=>$attrs); - array_push($this->arrOutput,$tag); - } - - function tagData($parser, $tagData) { - if(trim($tagData)) { - if(isset($this->arrOutput[count($this->arrOutput)-1]['tagData'])) { - $this->arrOutput[count($this->arrOutput)-1]['tagData'] .= $this->utf8_to_entities($tagData); - } else { - $this->arrOutput[count($this->arrOutput)-1]['tagData'] = $this->utf8_to_entities($tagData); - } - } - } - - function tagClosed($parser, $name) { - $this->arrOutput[count($this->arrOutput)-2]['children'][] = $this->arrOutput[count($this->arrOutput)-1]; - array_pop($this->arrOutput); - } - -} - -// -// 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_insert_statistic($statisticInput){ - $id = null; - if ($statistic = get_record_select('scorm_statistic',"userid='$statisticInput->userid' AND scormid='$statisticInput->scormid'")) { - - $statistic->durationtime = $statisticInput->duration; - $statistic->accesstime = $statisticInput->accesstime; - $statistic->status = $statisticInput->status; - $statistic->attemptnumber = $statisticInput->attemptnumber; - $id = update_record('scorm_statistic',$statistic); - } else { - $id = insert_record('scorm_statistic',$statisticInput); - } - return $id; -} - -function scorm_insert_trackmodel($userid,$scormid,$scoid,$attempt) { - $id = null; - if ($suspendtrack = get_record_select('scorm_suspendtrack',"userid='$userid' AND scormid='$scormid'")) { - $suspendtrack->suspendscoid = $scoid; - $suspendtrack->attempt = $attempt; - $id = update_record('scorm_suspendtrack',$suspendtrack); - } else { - $suspendtrack->scormid = $scormid; - $suspendtrack->suspendscoid = $scoid; - $suspendtrack->userid = $userid; - $suspendtrack->attempt = $attempt; - $id = insert_record('scorm_suspendtrack',$suspendtrack); - } - return $id; -} - -function scorm_get_suspendscoid($scormid,$userid) { - if ($sco = get_record("scorm_suspendtrack","scormid",$scormid,"userid",$userid)) { - $suspendscoid = $sco->suspendscoid; - return $suspendscoid; - } 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_get_AbsoluteTimeLimit($scoid){ - $sco = get_record("scorm_scoes","id",$scoid); - if (!empty($sco)){ - return $sco->attemptAbsoluteDurationLimit; - } - return 0; -} - -function scorm_update_status($scormid,$scoid) -{ - -} - -function scorm_get_nextsco($scormid,$scoid) -{ - -} - -function scorm_get_presco($scormid,$scoid) -{ - -} - -function scorm_isChoice($scormid,$scoid) -{ - $sco = get_record("scorm_sequencing_controlmode","scormid",$scormid,"scoid",$scoid); - $scoparent = get_record("scorm_sequencing_controlmode","scormid",$scormid,"identifier",$sco->parent); - - return $scoparent->choice; -} - -function scorm_isChoiceexit($scormid,$scoid) -{ - $sco = get_record("scorm_sequencing_controlmode","scormid",$scormid,"scoid",$scoid); - $scoparent = get_record("scorm_sequencing_controlmode","scormid",$scormid,"identifier",$sco->parent); - - return $scoparent->choiceexit; -} -// End add ?> diff --git a/mod/scorm/mod.html b/mod/scorm/mod.html index 0e0f55121a..66a8de0f67 100755 --- a/mod/scorm/mod.html +++ b/mod/scorm/mod.html @@ -1,5 +1,5 @@ dirroot.'/mod/scorm/lib.php'); + require_once($CFG->dirroot.'/mod/scorm/configurations.php'); if (!isset($form->name)) { $form->name = ''; } @@ -64,6 +64,9 @@ $element = trim($element); $window->$element = trim($value)==1?'checked':''; } + if (!isset($form->pkgtype)) { + $form->pkgtype = ''; + } $scormid = ''; if (!empty($form->instance)) { $scormid = '&instance='.$form->instance; diff --git a/mod/scorm/player.php b/mod/scorm/player.php index 85fc733f2f..ec9cce6345 100755 --- a/mod/scorm/player.php +++ b/mod/scorm/player.php @@ -4,8 +4,7 @@ require_once('../../config.php'); require_once('locallib.php'); - require_once('sequencinglib.php'); - + // // Checkin' script parameters // @@ -42,101 +41,14 @@ require_login($course->id, false, $cm); - //$f = "D:\\test.txt"; - //@$ft = fopen($f,"a"); - //fwrite($ft,"\n ++ Thong tin quyen set attempt ".$USER->setAttempt); $strscorms = get_string('modulenameplural', 'scorm'); $strscorm = get_string('modulename', 'scorm'); $strpopup = get_string('popup','scorm'); - $attempt = scorm_get_last_attempt($scorm->id,$USER->id); - - //Kiem tra xem co phai la tiep tuc khong - if ($mode=='continue') { - $scoid = scorm_get_suspendscoid($scorm->id,$USER->id); - $USER->setAttempt = 'set'; - $mode = 'normal'; - } - if (($mode == 'normal') && ($USER->setAttempt == 'notset')) { - $attempt++; - $USER->setAttempt = 'set'; - } - //Thuc hien Sequencing - - if ($mode!='review') { - $sequencingResult = scorm_sequecingrule_implement($scorm->id,$scoid,$USER->id); - //echo ""; - } - if (($sequencingResult->rule == 'exit') && ($sequencingResult->action == 'exit')){ - $exitscoid = get_sco_after_exit($scoid,$scorm->id); - //fwrite($ft,"\n ++ Thong tin exit sco la ".$exitscoid); - $orgstr = '¤torg='.$currentorg; - $modepop = '&mode='.$mode; - $scostr = '&scoid='.$exitscoid; - echo ""; - } - } - - //Thiet lap attempt_status cho scoid - scorm_set_attempt($scoid,$USER->id); - //Ket thuc thiet lap attemp_status - if ($mode!='review') { - //Update trang thai - scorm_rollup_updatestatus($scorm->id,$scoid,$USER->id); - //------------------------------ - } - //Thiet lap thong tin lien quan truy xuat Scorm - $statistic = get_record('scorm_statistic',"scormid",$scorm->id,"userid",$USER->id); - if (empty($statistic)) { - $statisticInput->accesstime = time(); - $statisticInput->durationtime = 0; - $statisticInput->status = 'during'; - $statisticInput->attemptnumber = $attempt; - $statisticInput->scormid = $scorm->id; - $statisticInput->userid = $USER->id; - $statisticid = scorm_insert_statistic($statisticInput); - } else { - if ($statistic->status=='suspend') { - $statisticInput->accesstime = time(); - $statisticInput->durationtime = $statistic->durationtime; - $statisticInput->status = 'during'; - $statisticInput->attemptnumber = $attempt; - $statisticInput->scormid = $scorm->id; - $statisticInput->userid = $USER->id; - } - } - - //---------------------Ket thuc thiet lap thoi gian --------------- - - //Lay thoi gian toi da cho phep - $absoluteTimeLimit = scorm_get_AbsoluteTimeLimit($scoid); - if ($absoluteTimeLimit > 0) { - echo ""; - } - //-------------------------------- - - if ($course->category != 0) { $navigation = "framename}\" href=\"../../course/view.php?id=$course->id\">$course->shortname ->"; if ($scorms = get_all_instances_in_course('scorm', $course)) { - // The module SCORM activity with the least id is the course + // The module SCORM/AICC activity with the first id is the course $firstscorm = current($scorms); if (!(($course->format == 'scorm') && ($firstscorm->id == $scorm->id))) { $navigation .= "framename}\" href=\"index.php?id=$course->id\">$strscorms ->"; @@ -148,7 +60,7 @@ $pagetitle = strip_tags("$course->shortname: ".format_string($scorm->name)); - if (!$cm->visible and !isteacher($course->id)) { + if (!$cm->visible and !has_capability('moodle/user:viewhiddenactivities',$context)) { print_header($pagetitle, "$course->fullname", "$navigation ".format_string($scorm->name,true)."", '', '', true, update_module_button($cm->id, $course->id, $strscorm), '', false); @@ -158,24 +70,14 @@ // // TOC processing // - //$attempt = scorm_get_last_attempt($scorm->id, $USER->id); - //$f = "D:\\test.txt"; - //@$ft = fopen($f,"a"); - ////fwrite($ft,"\n ++ ++ + ++ Gia tri $attempt lay duoc la ".$attempt); - - //if ($mode=='normal'){ - // $newattempt = 'on'; - //} + $scorm->version = strtolower(clean_param($scorm->version, PARAM_SAFEDIR)); // Just to be safe + require_once($CFG->dirroot.'/mod/scorm/datamodels/'.$scorm->version.'lib.php'); + $attempt = scorm_get_last_attempt($scorm->id, $USER->id); if (($newattempt=='on') && (($attempt < $scorm->maxattempt) || ($scorm->maxattempt == 0))) { $attempt++; - //$f = "D:\\test.txt"; - //@$ft = fopen($f,"a"); - //fwrite($ft,"\n ----New attempt------- ".$attempt); - } $attemptstr = '&attempt=' . $attempt; - //fwrite($ft,"\n ----Gia tri attempt bay gio la------- ".$attempt); $result = scorm_get_toc($USER,$scorm,'structurelist',$currentorg,$scoid,$mode,$attempt,true); $sco = $result->sco; @@ -183,14 +85,11 @@ $mode = 'normal'; } if ($mode != 'browse') { - ////fwrite($ft,"\n ++ ++ + ++ Gia tri $mode khac browser ".$mode); if ($trackdata = scorm_get_tracks($sco->id,$USER->id,$attempt)) { if (($trackdata->status == 'completed') || ($trackdata->status == 'passed') || ($trackdata->status == 'failed')) { $mode = 'review'; - ////fwrite($ft,"\n ++ ++ + ++ Gia tri $mode ".$mode); } else { $mode = 'normal'; - ////fwrite($ft,"\n ++ ++ + ++ Gia tri $mode ".$mode); } } } @@ -210,12 +109,7 @@ $SESSION->scorm_scoid = $sco->id; $SESSION->scorm_status = 'Not Initialized'; $SESSION->scorm_mode = $mode; - $SESSION->attempt = $attempt; - - // Doan code them - ////fwrite($ft,"\n ++ ++ + ++ Gia tri attempt duoc gan cho user la ".$attempt); - $USER->attempt = $attempt; - //------------Ket thuc doan them + $SESSION->scorm_attempt = $attempt; // // Print the page header @@ -224,20 +118,10 @@ if ($scorm->popup == 1) { $bodyscript = 'onunload="main.close();"'; } - - // Kiem tra xem co duoc exit khong - if (scorm_isChoiceexit($sco->scorm,$sco->id)) { - $exitlink = '('.get_string('exit','scorm').') '; - } else { - $exitlink = get_string('exitisnotallowed','scorm'); - } - - //Luu giu khoa hoc thoat ra - $suspend = '('.get_string('suspend','scorm').') '; - + $exitlink = '('.get_string('exit','scorm').') '; print_header($pagetitle, "$course->fullname", "$navigation ".format_string($scorm->name,true)."", - '', '', true, $exitlink.$suspend.update_module_button($cm->id, $course->id, $strscorm), '', false, $bodyscript); + '', '', true, $exitlink.update_module_button($cm->id, $course->id, $strscorm), '', false, $bodyscript); if ($sco->scormtype == 'sco') { ?> @@ -337,28 +221,14 @@ prerequisites) { if ($scorm->popup == 0) { - if (strpos('MSIE',$_SERVER['HTTP_USER_AGENT']) === false) { - /// Internet Explorer does not has full support to objects ?> - -

- -