| [ Index ] |
PHP Cross Reference of moodle-2.8 |
[Summary view] [Print] [Text view]
1 <?php 2 // This file is part of Moodle - http://moodle.org/ 3 // 4 // Moodle is free software: you can redistribute it and/or modify 5 // it under the terms of the GNU General Public License as published by 6 // the Free Software Foundation, either version 3 of the License, or 7 // (at your option) any later version. 8 // 9 // Moodle is distributed in the hope that it will be useful, 10 // but WITHOUT ANY WARRANTY; without even the implied warranty of 11 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12 // GNU General Public License for more details. 13 // 14 // You should have received a copy of the GNU General Public License 15 // along with Moodle. If not, see <http://www.gnu.org/licenses/>. 16 17 // Prevent Caching Headers. 18 header("Expires: Mon, 26 Jul 1997 05:00:00 GMT"); 19 header("Cache-Control: no-cache"); 20 header("Pragma: no-cache"); 21 22 require_once('../../config.php'); 23 require_once($CFG->dirroot.'/mod/scorm/lib.php'); 24 require_once($CFG->dirroot.'/mod/scorm/locallib.php'); 25 require_once($CFG->dirroot.'/mod/scorm/datamodels/aicclib.php'); 26 27 foreach ($_POST as $key => $value) { 28 $tempkey = strtolower($key); 29 $_POST[$tempkey] = $value; 30 } 31 32 $command = required_param('command', PARAM_ALPHA); 33 $sessionid = required_param('session_id', PARAM_ALPHANUM); 34 $aiccdata = optional_param('aicc_data', '', PARAM_RAW); 35 36 $cfgscorm = get_config('scorm'); 37 38 $url = new moodle_url('/mod/scorm/aicc.php', array('command' => $command, 'session_id' => $sessionid)); 39 if ($aiccdata !== 0) { 40 $url->param('aicc_data', $aiccdata); 41 } 42 $PAGE->set_url($url); 43 44 if (empty($cfgscorm->allowaicchacp)) { 45 require_login(); 46 if (!confirm_sesskey($sessionid)) { 47 print_error('invalidsesskey'); 48 } 49 $aiccuser = $USER; 50 $scormsession = $SESSION->scorm; 51 } else { 52 $scormsession = scorm_aicc_confirm_hacp_session($sessionid); 53 if (empty($scormsession)) { 54 print_error('invalidhacpsession', 'scorm'); 55 } 56 $aiccuser = $DB->get_record('user', array('id' => $scormsession->userid), 'id,username,lastname,firstname', MUST_EXIST); 57 } 58 59 if (!empty($command)) { 60 $command = strtolower($command); 61 62 if (isset($scormsession->scoid)) { 63 $scoid = $scormsession->scoid; 64 } else { 65 print_error('cannotcallscript'); 66 } 67 $mode = 'normal'; 68 if (isset($scormsession->scormmode)) { 69 $mode = $scormsession->scormmode; 70 } 71 $status = 'Not Initialized'; 72 if (isset($scormsession->scormstatus)) { 73 $status = $scormsession->scormstatus; 74 } 75 if (isset($scormsession->attempt)) { 76 $attempt = $scormsession->attempt; 77 } else { 78 $attempt = 1; 79 } 80 81 if ($sco = scorm_get_sco($scoid, SCO_ONLY)) { 82 if (!$scorm = $DB->get_record('scorm', array('id' => $sco->scorm))) { 83 print_error('cannotcallscript'); 84 } 85 } else { 86 print_error('cannotcallscript'); 87 } 88 $aiccrequest = "MOODLE scoid: $scoid" 89 . "\r\nMOODLE mode: $mode" 90 . "\r\nMOODLE status: $status" 91 . "\r\nMOODLE attempt: $attempt" 92 . "\r\nAICC sessionid: $sessionid" 93 . "\r\nAICC command: $command" 94 . "\r\nAICC aiccdata:\r\n$aiccdata"; 95 scorm_debug_log_write("aicc", "HACP Request:\r\n$aiccrequest", $scoid); 96 ob_start(); 97 98 if ($scorm = $DB->get_record('scorm', array('id' => $sco->scorm))) { 99 switch ($command) { 100 case 'getparam': 101 if ($status == 'Not Initialized') { 102 $scormsession->scormstatus = 'Running'; 103 $status = 'Running'; 104 } 105 if ($status != 'Running') { 106 echo "error=101\r\nerror_text=Terminated\r\n"; 107 } else { 108 if ($usertrack = scorm_get_tracks($scoid, $aiccuser->id, $attempt)) { 109 $userdata = $usertrack; 110 } else { 111 $userdata->status = ''; 112 $userdata->score_raw = ''; 113 } 114 $userdata->student_id = $aiccuser->username; 115 $userdata->student_name = $aiccuser->lastname .', '. $aiccuser->firstname; 116 $userdata->mode = $mode; 117 if ($userdata->mode == 'normal') { 118 $userdata->credit = 'credit'; 119 } else { 120 $userdata->credit = 'no-credit'; 121 } 122 123 if ($sco = scorm_get_sco($scoid)) { 124 $userdata->course_id = $sco->identifier; 125 $userdata->datafromlms = isset($sco->datafromlms) ? $sco->datafromlms : ''; 126 $userdata->mastery_score = isset($sco->mastery_score) && is_numeric($sco->mastery_score) ? 127 trim($sco->mastery_score) : ''; 128 $userdata->max_time_allowed = isset($sco->max_time_allowed) ? $sco->max_time_allowed : ''; 129 $userdata->time_limit_action = isset($sco->time_limit_action) ? $sco->time_limit_action : ''; 130 131 echo "error=0\r\nerror_text=Successful\r\naicc_data="; 132 echo "[Core]\r\n"; 133 echo 'Student_ID='.$userdata->student_id."\r\n"; 134 echo 'Student_Name='.$userdata->student_name."\r\n"; 135 if (isset($userdata->{'cmi.core.lesson_location'})) { 136 echo 'Lesson_Location='.$userdata->{'cmi.core.lesson_location'}."\r\n"; 137 } else { 138 echo 'Lesson_Location='."\r\n"; 139 } 140 echo 'Credit='.$userdata->credit."\r\n"; 141 if (isset($userdata->status)) { 142 if ($userdata->status == '') { 143 $userdata->entry = ', ab-initio'; 144 } else { 145 if (isset($userdata->{'cmi.core.exit'}) && ($userdata->{'cmi.core.exit'} == 'suspend')) { 146 $userdata->entry = ', resume'; 147 } else { 148 $userdata->entry = ''; 149 } 150 } 151 } 152 if (isset($userdata->{'cmi.core.lesson_status'})) { 153 echo 'Lesson_Status='.$userdata->{'cmi.core.lesson_status'}.$userdata->entry."\r\n"; 154 $scormsession->scorm_lessonstatus = $userdata->{'cmi.core.lesson_status'}; 155 } else { 156 echo 'Lesson_Status=not attempted'.$userdata->entry."\r\n"; 157 $scormsession->scorm_lessonstatus = 'not attempted'; 158 } 159 if (isset($userdata->{'cmi.core.score.raw'})) { 160 $max = ''; 161 $min = ''; 162 if (isset($userdata->{'cmi.core.score.max'}) && !empty($userdata->{'cmi.core.score.max'})) { 163 $max = ', '.$userdata->{'cmi.core.score.max'}; 164 if (isset($userdata->{'cmi.core.score.min'}) && !empty($userdata->{'cmi.core.score.min'})) { 165 $min = ', '.$userdata->{'cmi.core.score.min'}; 166 } 167 } 168 echo 'Score='.$userdata->{'cmi.core.score.raw'}.$max.$min."\r\n"; 169 } else { 170 echo 'Score='."\r\n"; 171 } 172 if (isset($userdata->{'cmi.core.total_time'})) { 173 echo 'Time='.$userdata->{'cmi.core.total_time'}."\r\n"; 174 } else { 175 echo 'Time='.'00:00:00'."\r\n"; 176 } 177 echo 'Lesson_Mode='.$userdata->mode."\r\n"; 178 if (isset($userdata->{'cmi.suspend_data'})) { 179 echo "[Core_Lesson]\r\n".rawurldecode($userdata->{'cmi.suspend_data'})."\r\n"; 180 } else { 181 echo "[Core_Lesson]\r\n"; 182 } 183 echo "[Core_Vendor]\r\n".$userdata->datafromlms."\r\n"; 184 echo "[Evaluation]\r\nCourse_ID = {".$userdata->course_id."}\r\n"; 185 echo "[Student_Data]\r\n"; 186 echo 'Mastery_Score='.$userdata->mastery_score."\r\n"; 187 echo 'Max_Time_Allowed='.$userdata->max_time_allowed."\r\n"; 188 echo 'Time_Limit_Action='.$userdata->time_limit_action."\r\n"; 189 } else { 190 print_error('cannotfindsco', 'scorm'); 191 } 192 } 193 break; 194 case 'putparam': 195 if ($status == 'Running') { 196 if (! $cm = get_coursemodule_from_instance("scorm", $scorm->id, $scorm->course)) { 197 echo "error=1\r\nerror_text=Unknown\r\n"; // No one must see this error message if not hacked. 198 } 199 $savetrack = has_capability('mod/scorm:savetrack', context_module::instance($cm->id), $aiccuser->id); 200 if (!empty($aiccdata) && $savetrack) { 201 $initlessonstatus = 'not attempted'; 202 $lessonstatus = 'not attempted'; 203 if (isset($scormsession->scorm_lessonstatus)) { 204 $initlessonstatus = $scormsession->scorm_lessonstatus; 205 } 206 $score = ''; 207 $datamodel['lesson_location'] = 'cmi.core.lesson_location'; 208 $datamodel['lesson_status'] = 'cmi.core.lesson_status'; 209 $datamodel['score'] = 'cmi.core.score.raw'; 210 $datamodel['time'] = 'cmi.core.session_time'; 211 $datamodel['[core_lesson]'] = 'cmi.suspend_data'; 212 $datamodel['[comments]'] = 'cmi.comments'; 213 $datarows = explode("\r\n", $aiccdata); 214 reset($datarows); 215 while ((list(, $datarow) = each($datarows)) !== false) { 216 if (($equal = strpos($datarow, '=')) !== false) { 217 $element = strtolower(trim(substr($datarow, 0, $equal))); 218 $value = trim(substr($datarow, $equal + 1)); 219 if (isset($datamodel[$element])) { 220 $element = $datamodel[$element]; 221 switch ($element) { 222 case 'cmi.core.lesson_location': 223 $id = scorm_insert_track($aiccuser->id, $scorm->id, $sco->id, 224 $attempt, $element, $value); 225 break; 226 case 'cmi.core.lesson_status': 227 $statuses = array( 228 'passed' => 'passed', 229 'completed' => 'completed', 230 'failed' => 'failed', 231 'incomplete' => 'incomplete', 232 'browsed' => 'browsed', 233 'not attempted' => 'not attempted', 234 'p' => 'passed', 235 'c' => 'completed', 236 'f' => 'failed', 237 'i' => 'incomplete', 238 'b' => 'browsed', 239 'n' => 'not attempted' 240 ); 241 $exites = array( 242 'logout' => 'logout', 243 'time-out' => 'time-out', 244 'suspend' => 'suspend', 245 'l' => 'logout', 246 't' => 'time-out', 247 's' => 'suspend', 248 ); 249 $values = explode(',', $value); 250 $value = ''; 251 if (count($values) > 1) { 252 $value = trim(strtolower($values[1])); 253 $value = $value[0]; 254 if (isset($exites[$value])) { 255 $value = $exites[$value]; 256 } 257 } 258 if (empty($value) || isset($exites[$value])) { 259 $subelement = 'cmi.core.exit'; 260 $id = scorm_insert_track($aiccuser->id, $scorm->id, $sco->id, 261 $attempt, $subelement, $value); 262 } 263 $value = trim(strtolower($values[0])); 264 $value = $value[0]; 265 if (isset($statuses[$value]) && ($mode == 'normal')) { 266 $value = $statuses[$value]; 267 $id = scorm_insert_track($aiccuser->id, $scorm->id, $sco->id, 268 $attempt, $element, $value); 269 } 270 $lessonstatus = $value; 271 break; 272 case 'cmi.core.score.raw': 273 $values = explode(',', $value); 274 if ((count($values) > 1) && ($values[1] >= $values[0]) && is_numeric($values[1])) { 275 $subelement = 'cmi.core.score.max'; 276 $value = trim($values[1]); 277 $id = scorm_insert_track($aiccuser->id, $scorm->id, $sco->id, 278 $attempt, $subelement, $value); 279 if ((count($values) == 3) && ($values[2] <= $values[0]) && is_numeric($values[2])) { 280 $subelement = 'cmi.core.score.min'; 281 $value = trim($values[2]); 282 $id = scorm_insert_track($aiccuser->id, $scorm->id, $sco->id, 283 $attempt, $subelement, $value); 284 } 285 } 286 287 $value = ''; 288 if (is_numeric($values[0])) { 289 $value = trim($values[0]); 290 $id = scorm_insert_track($aiccuser->id, $scorm->id, $sco->id, 291 $attempt, $element, $value); 292 } 293 $score = $value; 294 break; 295 case 'cmi.core.session_time': 296 $scormsession->sessiontime = $value; 297 break; 298 } 299 } 300 } else { 301 if (isset($datamodel[strtolower(trim($datarow))])) { 302 $element = $datamodel[strtolower(trim($datarow))]; 303 $value = ''; 304 while ((($datarow = current($datarows)) !== false) && (substr($datarow, 0, 1) != '[')) { 305 $value .= $datarow."\r\n"; 306 next($datarows); 307 } 308 $value = rawurlencode($value); 309 $id = scorm_insert_track($aiccuser->id, $scorm->id, $sco->id, $attempt, $element, $value); 310 } 311 } 312 } 313 if (($mode == 'browse') && ($initlessonstatus == 'not attempted')) { 314 $lessonstatus = 'browsed'; 315 $id = scorm_insert_track($aiccuser->id, $scorm->id, $sco->id, 316 $attempt, 'cmi.core.lesson_status', 'browsed'); 317 } 318 if ($mode == 'normal') { 319 if ($sco = scorm_get_sco($scoid)) { 320 if (isset($sco->mastery_score) && is_numeric($sco->mastery_score)) { 321 if ($score != '') { // Score is correctly initialized w/ an empty string, see above. 322 if ($score >= trim($sco->mastery_score)) { 323 $lessonstatus = 'passed'; 324 } else { 325 $lessonstatus = 'failed'; 326 } 327 } 328 } 329 $id = scorm_insert_track($aiccuser->id, $scorm->id, $sco->id, 330 $attempt, 'cmi.core.lesson_status', $lessonstatus); 331 } 332 } 333 } 334 echo "error=0\r\nerror_text=Successful\r\n"; 335 } else if ($status == 'Terminated') { 336 echo "error=1\r\nerror_text=Terminated\r\n"; 337 } else { 338 echo "error=1\r\nerror_text=Not Initialized\r\n"; 339 } 340 break; 341 case 'putcomments': 342 if ($status == 'Running') { 343 echo "error=0\r\nerror_text=Successful\r\n"; 344 } else if ($status == 'Terminated') { 345 echo "error=1\r\nerror_text=Terminated\r\n"; 346 } else { 347 echo "error=1\r\nerror_text=Not Initialized\r\n"; 348 } 349 break; 350 case 'putinteractions': 351 if ($status == 'Running') { 352 echo "error=0\r\nerror_text=Successful\r\n"; 353 } else if ($status == 'Terminated') { 354 echo "error=1\r\nerror_text=Terminated\r\n"; 355 } else { 356 echo "error=1\r\nerror_text=Not Initialized\r\n"; 357 } 358 break; 359 case 'putobjectives': 360 if ($status == 'Running') { 361 echo "error=0\r\nerror_text=Successful\r\n"; 362 } else if ($status == 'Terminated') { 363 echo "error=1\r\nerror_text=Terminated\r\n"; 364 } else { 365 echo "error=1\r\nerror_text=Not Initialized\r\n"; 366 } 367 break; 368 case 'putpath': 369 if ($status == 'Running') { 370 echo "error=0\r\nerror_text=Successful\r\n"; 371 } else if ($status == 'Terminated') { 372 echo "error=1\r\nerror_text=Terminated\r\n"; 373 } else { 374 echo "error=1\r\nerror_text=Not Initialized\r\n"; 375 } 376 break; 377 case 'putperformance': 378 if ($status == 'Running') { 379 echo "error=0\r\nerror_text=Successful\r\n"; 380 } else if ($status == 'Terminated') { 381 echo "error=1\r\nerror_text=Terminated\r\n"; 382 } else { 383 echo "error=1\r\nerror_text=Not Initialized\r\n"; 384 } 385 break; 386 case 'exitau': 387 if ($status == 'Running') { 388 if (isset($scormsession->sessiontime) && ($scormsession->sessiontime != '')) { 389 if ($track = $DB->get_record('scorm_scoes_track', array("userid" => $aiccuser->id, 390 "scormid" => $scorm->id, 391 "scoid" => $sco->id, 392 "attempt" => $attempt, 393 "element" => 'cmi.core.total_time'))) { 394 // Add session_time to total_time. 395 $value = scorm_add_time($track->value, $scormsession->sessiontime); 396 $track->value = $value; 397 $track->timemodified = time(); 398 $DB->update_record('scorm_scoes_track', $track); 399 } else { 400 $track = new stdClass(); 401 $track->userid = $aiccuser->id; 402 $track->scormid = $scorm->id; 403 $track->scoid = $sco->id; 404 $track->element = 'cmi.core.total_time'; 405 $track->value = $scormsession->sessiontime; 406 $track->attempt = $attempt; 407 $track->timemodified = time(); 408 $id = $DB->insert_record('scorm_scoes_track', $track); 409 } 410 scorm_update_grades($scorm, $aiccuser->id); 411 } 412 $scormsession->scormstatus = 'Terminated'; 413 $scormsession->session_time = ''; 414 echo "error=0\r\nerror_text=Successful\r\n"; 415 } else if ($status == 'Terminated') { 416 echo "error=1\r\nerror_text=Terminated\r\n"; 417 } else { 418 echo "error=1\r\nerror_text=Not Initialized\r\n"; 419 } 420 break; 421 default: 422 echo "error=1\r\nerror_text=Invalid Command\r\n"; 423 break; 424 } 425 } 426 } else { 427 if (empty($command)) { 428 echo "error=1\r\nerror_text=Invalid Command\r\n"; 429 } else { 430 echo "error=3\r\nerror_text=Invalid Session ID\r\n"; 431 } 432 } 433 if (empty($cfgscorm->allowaicchacp)) { 434 $SESSION->scorm = $scormsession; 435 } else { 436 $scormsession->timemodified = time(); 437 $DB->update_record('scorm_aicc_session', $scormsession); 438 } 439 440 $aiccresponse = ob_get_contents(); 441 scorm_debug_log_write("aicc", "HACP Response:\r\n$aiccresponse", $scoid); 442 ob_end_flush();
title
Description
Body
title
Description
Body
title
Description
Body
title
Body
| Generated: Fri Nov 28 20:29:05 2014 | Cross-referenced by PHPXref 0.7.1 |