123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268 |
- <?php
- use ChamiloSession as Session;
- $debug = 0;
- $use_anonymous = true;
- if (!empty($_REQUEST['aicc_sid'])) {
- session_id($_REQUEST['aicc_sid']);
- if ($debug > 1) { error_log('New LP - '.__FILE__.','.__LINE__.' - reusing session ID '.$_REQUEST['aicc_sid'], 0); }
- } elseif (!empty($_REQUEST['session_id'])) {
- session_id($_REQUEST['session_id']);
- if ($debug > 1) { error_log('New LP - '.__FILE__.','.__LINE__.' - reusing session ID '.$_REQUEST['session_id'], 0); }
- }
- require_once __DIR__.'/../inc/global.inc.php';
- if ($debug > 2) { error_log('New LP - '.__FILE__.','.__LINE__.' - Current session ID: '.session_id(), 0); }
- $file = Session::read('file');
- $oLP = unserialize(Session::read('lpobject'));
- $oItem = & $oLP->items[$oLP->current];
- if (!is_object($oItem)) {
- error_log('New LP - aicc_hacp - Could not load oItem item', 0);
- exit;
- }
- $autocomplete_when_80pct = 0;
- $result = array(
- 'core' => array(),
- 'core_lesson' => array(),
- 'core_vendor' => array(),
- 'evaluation' => array(),
- 'student_data' => array(),
- );
- $convert_enc = array('%25', '%0D', '%0A', '%09', '%20', '%2D', '%2F', '%3B', '%3F', '%7B', '%7D', '%7C', '%5C', '%5E', '%7E', '%5B', '%5D', '%60', '%23', '%3E', '%3C', '%22');
- $convert_dec = array('%', "\r", "\n", "\t", ' ', '-', '/', ';', '?', '{', '}', '|', '\\', '^', '~', '[', ']', '`', '#', '>', '<', '"');
- $crlf = "\r\n";
- $tab = "";
- $s_ec = 'error=';
- $s_et = 'error_text=';
- $s_ad = 'aicc_data=';
- $errors = array(0 => 'Successful', 1 => 'Invalid Command', 2 => 'Invalid AU password', 3 => 'Invalid Session ID');
- $error_code = 0;
- $error_text = '';
- $aicc_data = '';
- $result = '';
- if (!empty($_REQUEST['command'])) {
-
- switch (strtolower($_REQUEST['command'])) {
- case 'getparam':
-
- if (!empty($_REQUEST['version'])) {
- $hacp_version = Database::escape_string($_REQUEST['version']);
- }
- if (!empty($_REQUEST['session_id'])) {
- $hacp_session_id = Database::escape_string($_REQUEST['session_id']);
- }
- $error_code = 0;
- $error_text = $errors[$error_code];
-
- $result = $s_ec.$error_code.$crlf.$s_et.$error_text.$crlf.$s_ad;
- $result .= '[Core]'.$crlf;
- $result .= $tab.'Student_ID='.$_user['user_id'].$crlf;
- $result .= $tab.'Student_Name='.api_get_person_name($_user['firstName'], $_user['lastName']).$crlf;
- $result .= $tab.'Lesson_Location='.$oItem->get_lesson_location().$crlf;
- $result .= $tab.'Credit='.$oItem->get_credit().$crlf;
- $result .= $tab.'Lesson_Status='.$oItem->get_status().$crlf;
- $result .= $tab.'Score='.$oItem->get_score().$crlf;
- $result .= $tab.'Time='.$oItem->get_scorm_time('js').$crlf;
- $result .= $tab.'Lesson_Mode='.$oItem->get_lesson_mode().$crlf;
- $result .= '[Core_Lesson]'.$crlf;
- $result .= $oItem->get_suspend_data().$crlf;
- $result .= '[Core_Vendor]'.$crlf;
- $result .= $oItem->get_launch_data.$crlf;
- $result .= '[Comments]'.$crlf;
- $result .= $crlf;
- $result .= '[Evaluation]'.$crlf;
- $result .= $tab.'Course_ID={'.api_get_course_id().'}'.$crlf;
-
- $result .= '[Student_Data]'.$crlf;
- $result .= $tab.'Mastery_Score='.$oItem->masteryscore.$crlf;
-
-
-
-
-
- break;
- case 'putparam':
- $hacp_version = '';
- $hacp_session_id = '';
- $hacp_aicc_data = '';
- foreach ($_REQUEST as $name => $value) {
-
- switch (strtolower($name)) {
- case 'version':
- $hacp_version = $value;
- break;
- case 'session_id':
- $hacp_session_id = $value;
- break;
- case 'aicc_data':
-
- $value = str_replace('+', ' ', $value);
- $value = str_replace($convert_enc, $convert_dec, $value);
- $hacp_aicc_data = $value;
- break;
- }
- }
-
-
- $aicc = new aicc();
- $msg_array = $aicc->parse_ini_string_quotes_safe($hacp_aicc_data, array('core_lesson', 'core_vendor'));
-
- foreach ($msg_array as $key => $dummy) {
- switch (strtolower($key)) {
- case 'core':
- foreach ($msg_array[$key] as $subkey => $value) {
- switch (strtolower($subkey)) {
- case 'lesson_location':
-
- $oItem->set_lesson_location($value);
- break;
- case 'lesson_status':
-
-
- switch ($value) {
- case 'C':
- $value = 'completed';
- break;
- case 'I':
- $value = 'incomplete';
- break;
- case 'N':
- case 'NA':
- $value = 'not attempted';
- break;
- case 'P':
- $value = 'passed';
- break;
- case 'B':
- $value = 'browsed';
- break;
- default:
- break;
- }
- $oItem->set_status($value);
- break;
- case 'score':
-
- $oItem->set_score($value);
- break;
- case 'time':
-
- if (strpos($value, ':') !== false) {
- $oItem->set_time($value, 'scorm');
- } else {
- $oItem->set_time($value);
- }
- break;
- }
- }
- break;
- case 'core_lesson':
-
- $oItem->current_data = $msg_array[$key];
- break;
- case 'comments':
- break;
- case 'objectives_status':
- break;
- case 'student_data':
- break;
- case 'student_preferences':
- break;
- }
- }
- $error_code = 0;
- $error_text = $errors[$error_code];
- $result = $s_ec.$error_code.$crlf.$s_et.$error_text.$crlf.$s_ad.$crlf;
- $oItem->save(false);
- break;
- case 'putcomments':
- $error_code = 0;
- $error_text = $errors[$error_code];
- $result = $s_ec.$error_code.$crlf.$s_et.$error_text.$crlf.$s_ad.$crlf;
- break;
- case 'putobjectives':
- $error_code = 0;
- $error_text = $errors[$error_code];
- $result = $s_ec.$error_code.$crlf.$s_et.$error_text.$crlf.$s_ad.$crlf;
- break;
- case 'putpath':
- $error_code = 0;
- $error_text = $errors[$error_code];
- $result = $s_ec.$error_code.$crlf.$s_et.$error_text.$crlf.$s_ad.$crlf;
- break;
- case 'putinteractions':
- $error_code = 0;
- $error_text = $errors[$error_code];
- $result = $s_ec.$error_code.$crlf.$s_et.$error_text.$crlf.$s_ad.$crlf;
- break;
- case 'putperformance':
- $error_code = 0;
- $error_text = $errors[$error_code];
- $result = $s_ec.$error_code.$crlf.$s_et.$error_text.$crlf.$s_ad.$crlf;
- break;
- case 'exitau':
- $error_code = 0;
- $error_text = $errors[$error_code];
- $result = $s_ec.$error_code.$crlf.$s_et.$error_text.$crlf.$s_ad.$crlf;
- break;
- default:
- $error_code = 1;
- $error_text = $errors[1];
- $result = $s_ec.$error_code.$crlf.$s_et.$error_text.$crlf;
- }
- }
- Session::write('lpobject', serialize($oLP));
- session_write_close();
- header('Content-type: text/plain');
- echo $result;
|