123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624 |
- <?php
- /* For licensing terms, see /license.txt */
- use ChamiloSession as Session;
- /**
- * @package chamilo.exercise
- *
- * @author Julio Montoya <gugli100@gmail.com>
- */
- require_once __DIR__.'/../inc/global.inc.php';
- api_protect_course_script(false);
- require_once api_get_path(LIBRARY_PATH).'geometry.lib.php';
- //Display::display_reduced_header();
- echo '<div id="delineation-container">';
- $message = null;
- $dbg_local = 0;
- $gradebook = null;
- $final_overlap = null;
- $final_missing = null;
- $final_excess = null;
- $threadhold1 = null;
- $threadhold2 = null;
- $threadhold3 = null;
- $exerciseResult = Session::read('exerciseResult');
- $exerciseResultCoordinates = isset($_REQUEST['exerciseResultCoordinates']) ? $_REQUEST['exerciseResultCoordinates'] : null;
- $origin = api_get_origin();
- // if origin is learnpath
- $learnpath_id = 0;
- if (isset($_REQUEST['learnpath_id'])) {
- $learnpath_id = intval($_REQUEST['learnpath_id']);
- }
- $learnpath_item_id = 0;
- if (isset($_REQUEST['learnpath_item_id'])) {
- $learnpath_item_id = intval($_REQUEST['learnpath_item_id']);
- }
- $_SESSION['hotspot_coord'] = [];
- $newquestionList = Session::read('newquestionList', []);
- $questionList = Session::read('questionList');
- $exerciseId = intval($_GET['exerciseId']);
- $exerciseType = intval($_GET['exerciseType']);
- $questionNum = intval($_GET['num']);
- $nbrQuestions = isset($_GET['nbrQuestions']) ? intval($_GET['nbrQuestions']) : null;
- //clean extra session variables
- Session::erase('objExerciseExtra'.$exerciseId);
- Session::erase('exerciseResultExtra'.$exerciseId);
- Session::erase('questionListExtra'.$exerciseId);
- // Round-up the coordinates
- $user_array = '';
- if (isset($_GET['hotspot'])) {
- $coords = explode('/', $_GET['hotspot']);
- if (is_array($coords) && count($coords) > 0) {
- foreach ($coords as $coord) {
- if (!empty($coord)) {
- list($x, $y) = explode(';', $coord);
- $user_array .= round($x).';'.round($y).'/';
- }
- }
- }
- }
- $choice_value = '';
- $user_array = substr($user_array, 0, -1);
- if (isset($_GET['choice'])) {
- $choice_value = intval($_GET['choice']);
- }
- // Getting the options by js
- if (empty($choice_value)) {
- echo "<script>
- // this works for only radio buttons
- var f = window.document.frm_exercise;
- var choice_js='';
- var hotspot = new Array();
- var hotspotcoord = new Array();
- var counter=0;
- for ( var i = 0; i < f.elements.length; i++ ) {
- if (f.elements[i].type=='radio' && f.elements[i].checked) {
- choice_js = f.elements[i].value;
- counter ++;
- }
- if (f.elements[i].type=='hidden' ) {
- var name = f.elements[i].name;
- if (name.substr(0,7)=='hotspot')
- hotspot.push(f.elements[i].value);
- if (name.substr(0,20)=='hotspot_coordinates')
- hotspotcoord.push(f.elements[i].value);
- }
- }
- if (counter==0) {
- choice_js=-1; // this is an error
- }
- ";
- // IMPORTANT
- //this is the real redirect function
- //echo 'window.location.href = "exercise_submit_modal.php?learnpath_id='.$learnpath_id.'&learnpath_item_id='.$learnpath_item_id.'&hotspotcoord="+ hotspotcoord + "&hotspot="+ hotspot + "&choice="+ choice_js + "&exerciseId='.$exerciseId.'&num='.$questionNum.'&exerciseType='.$exerciseType.'&origin='.$origin.'&gradebook='.$gradebook.'";';
- echo ' url = "exercise_submit_modal.php?learnpath_id='.$learnpath_id.'&learnpath_item_id='.$learnpath_item_id.'&hotspotcoord="+ hotspotcoord + "&hotspot="+ hotspot + "&choice="+ choice_js + "&exerciseId='.$exerciseId.'&num='.$questionNum.'&exerciseType='.$exerciseType.'&'.api_get_cidreq().'&gradebook='.$gradebook.'";';
- echo "$('#global-modal .modal-body').load(url);";
- echo '</script>';
- exit;
- }
- $choice = [];
- $questionid = $questionList[$questionNum];
- // $choice_value => value of the user selection
- $choice[$questionid] = isset($choice_value) ? $choice_value : null;
- // initializing
- if (!is_array($exerciseResult)) {
- $exerciseResult = [];
- }
- // if the user has answered at least one question
- if (is_array($choice)) {
- if ($exerciseType == EXERCISE_FEEDBACK_TYPE_DIRECT) {
- // $exerciseResult receives the content of the form.
- // Each choice of the student is stored into the array $choice
- $exerciseResult = $choice;
- } else {
- // gets the question ID from $choice. It is the key of the array
- list($key) = array_keys($choice);
- // if the user didn't already answer this question
- if (!isset($exerciseResult[$key])) {
- // stores the user answer into the array
- $exerciseResult[$key] = $choice[$key];
- }
- }
- }
- // the script "exercise_result.php" will take the variable $exerciseResult from the session
- Session::write('exerciseResult', $exerciseResult);
- Session::write('exerciseResultCoordinates', $exerciseResultCoordinates);
- // creates a temporary Question object
- if (in_array($questionid, $questionList)) {
- $objQuestionTmp = Question:: read($questionid);
- $questionName = $objQuestionTmp->selectTitle();
- $questionDescription = $objQuestionTmp->selectDescription();
- $questionWeighting = $objQuestionTmp->selectWeighting();
- $answerType = $objQuestionTmp->selectType();
- $quesId = $objQuestionTmp->selectId(); //added by priya saini
- }
- $objAnswerTmp = new Answer($questionid);
- $nbrAnswers = $objAnswerTmp->selectNbrAnswers();
- $choice = $exerciseResult[$questionid];
- $destination = [];
- $comment = '';
- $next = 1;
- $_SESSION['hotspot_coord'] = [];
- $_SESSION['hotspot_dest'] = [];
- $overlap_color = $missing_color = $excess_color = false;
- $organs_at_risk_hit = 0;
- $wrong_results = false;
- $hot_spot_load = false;
- $questionScore = 0;
- $totalScore = 0;
- if (!empty($choice_value)) {
- for ($answerId = 1; $answerId <= $nbrAnswers; $answerId++) {
- $answer = $objAnswerTmp->selectAnswer($answerId);
- $answerComment = $objAnswerTmp->selectComment($answerId);
- $answerDestination = $objAnswerTmp->selectDestination($answerId);
- $answerCorrect = $objAnswerTmp->isCorrect($answerId);
- $answerWeighting = $objAnswerTmp->selectWeighting($answerId);
- $numAnswer = $objAnswerTmp->selectAutoId($answerId);
- //delineation
- $delineation_cord = $objAnswerTmp->selectHotspotCoordinates(1);
- $answer_delineation_destination = $objAnswerTmp->selectDestination(1);
- if ($dbg_local > 0) {
- error_log(__LINE__.' answerId: '.$answerId.'('.$answerType.') - user delineation_cord: '.$delineation_cord.' - $answer_delineation_destination: '.$answer_delineation_destination, 0);
- }
- switch ($answerType) {
- // for unique answer
- case UNIQUE_ANSWER:
- $studentChoice = ($choice_value == $numAnswer) ? 1 : 0;
- if ($studentChoice) {
- $questionScore += $answerWeighting;
- $totalScore += $answerWeighting;
- $newquestionList[] = $questionid;
- }
- break;
- case HOT_SPOT_DELINEATION:
- $studentChoice = $choice[$answerId];
- if ($studentChoice) {
- $newquestionList[] = $questionid;
- }
- if ($answerId === 1) {
- $questionScore += $answerWeighting;
- $totalScore += $answerWeighting;
- $_SESSION['hotspot_coord'][1] = $delineation_cord;
- $_SESSION['hotspot_dest'][1] = $answer_delineation_destination;
- }
- break;
- }
- if ($answerType == UNIQUE_ANSWER || $answerType == MULTIPLE_ANSWER) {
- if ($studentChoice) {
- $destination = $answerDestination;
- $comment = $answerComment;
- }
- } elseif ($answerType == HOT_SPOT_DELINEATION) {
- if ($next) {
- if ($dbg_local > 0) {
- error_log(__LINE__.' - next', 0);
- }
- $hot_spot_load = true; //apparently the script is called twice
- $user_answer = $user_array;
- $_SESSION['exerciseResultCoordinates'][$questionid] = $user_answer; //needed for exercise_result.php
- // we compare only the delineation not the other points
- $answer_question = $_SESSION['hotspot_coord'][1];
- $answerDestination = $_SESSION['hotspot_dest'][1];
- $poly_user = convert_coordinates($user_answer, '/');
- $poly_answer = convert_coordinates($answer_question, '|');
- $max_coord = poly_get_max($poly_user, $poly_answer);
- if (empty($_GET['hotspot'])) { //no user response
- $overlap = -2;
- } else {
- $poly_user_compiled = poly_compile($poly_user, $max_coord);
- $poly_answer_compiled = poly_compile(
- $poly_answer,
- $max_coord
- );
- $poly_results = poly_result(
- $poly_answer_compiled,
- $poly_user_compiled,
- $max_coord
- );
- $overlap = $poly_results['both'];
- $poly_answer_area = $poly_results['s1'];
- $poly_user_area = $poly_results['s2'];
- $missing = $poly_results['s1Only'];
- $excess = $poly_results['s2Only'];
- }
- //$overlap = round(polygons_overlap($poly_answer,$poly_user)); //this is an area in pixels
- if ($dbg_local > 0) {
- error_log(__LINE__.' - Polygons results are '.print_r($poly_results, 1), 0);
- }
- if ($overlap < 1) {
- //shortcut to avoid complicated calculations
- $final_overlap = 0;
- $final_missing = 100;
- $final_excess = 100;
- } else {
- // the final overlap is the percentage of the initial polygon that is overlapped by the user's polygon
- $final_overlap = round(((float) $overlap / (float) $poly_answer_area) * 100);
- if ($dbg_local > 1) {
- error_log(__LINE__.' - Final overlap is '.$final_overlap, 0);
- }
- // the final missing area is the percentage of the initial polygon that is not overlapped by the user's polygon
- $final_missing = 100 - $final_overlap;
- if ($dbg_local > 1) {
- error_log(__LINE__.' - Final missing is '.$final_missing, 0);
- }
- // the final excess area is the percentage of the initial polygon's size that is covered by the user's polygon outside of the initial polygon
- $final_excess = round((((float) $poly_user_area - (float) $overlap) / (float) $poly_answer_area) * 100);
- if ($dbg_local > 1) {
- error_log(__LINE__.' - Final excess is '.$final_excess, 0);
- }
- }
- $destination_items = explode('@@', $answerDestination);
- $threadhold_total = $destination_items[0];
- $threadhold_items = explode(';', $threadhold_total);
- $threadhold1 = $threadhold_items[0]; // overlap
- $threadhold2 = $threadhold_items[1]; // excess
- $threadhold3 = $threadhold_items[2]; //missing
- // if is delineation
- if ($answerId === 1) {
- //setting colors
- if ($final_overlap >= $threadhold1) {
- $overlap_color = true; //echo 'a';
- }
- if ($final_excess <= $threadhold2) {
- $excess_color = true; //echo 'b';
- }
- if ($final_missing <= $threadhold3) {
- $missing_color = true; //echo 'c';
- }
- $try_hotspot = null;
- $lp_hotspot = null;
- $url_hotspot = null;
- $select_question_hotspot = null;
- // if pass
- //if ($final_overlap>=$threadhold1 && $final_missing<=$threadhold2 && $final_excess<=$threadhold3) {
- if ($final_overlap >= $threadhold1 && $final_missing <= $threadhold3 && $final_excess <= $threadhold2) {
- $next = 1; //go to the oars
- $result_comment = get_lang('Acceptable');
- } else {
- $next = 1; //Go to the oars. If $next = 0 we will show this message: "One (or more) area at risk has been hit" instead of the table resume with the results
- $wrong_results = true;
- $result_comment = get_lang('Unacceptable');
- }
- $special_comment = $comment = $answerDestination = $objAnswerTmp->selectComment(1);
- $answerDestination = $objAnswerTmp->selectDestination(1);
- $destination_items = explode('@@', $answerDestination);
- $try_hotspot = $destination_items[1];
- $lp_hotspot = $destination_items[2];
- $select_question_hotspot = $destination_items[3];
- $url_hotspot = $destination_items[4];
- } elseif ($answerId > 1) {
- if ($objAnswerTmp->selectHotspotType($answerId) == 'noerror') {
- if ($dbg_local > 0) {
- error_log(__LINE__.' - answerId is of type noerror', 0);
- }
- //type no error shouldn't be treated
- $next = 1;
- continue;
- }
- if ($dbg_local > 0) {
- error_log(__LINE__.' - answerId is >1 so we\'re probably in OAR', 0);
- }
- //check the intersection between the oar and the user
- //echo 'user'; print_r($x_user_list); print_r($y_user_list);
- //echo 'official';print_r($x_list);print_r($y_list);
- //$result = get_intersection_data($x_list,$y_list,$x_user_list,$y_user_list);
- //$delineation_cord=$objAnswerTmp->selectHotspotCoordinates($answerId);
- $delineation_cord = $objAnswerTmp->selectHotspotCoordinates($answerId); //getting the oars coordinates
- $poly_answer = convert_coordinates($delineation_cord, '|');
- $max_coord = poly_get_max(
- $poly_user,
- $poly_answer
- ); //getting max coordinates
- $test = false;
- // if ($answerId == 2 ){$test = true;} for test oars
- if (empty($_GET['hotspot'])) { //no user response
- $overlap = false;
- } else {
- // poly_compile really works tested with gnuplot
- $poly_user_compiled = poly_compile(
- $poly_user,
- $max_coord,
- $test
- ); //$poly_user is already set when answerid = 1
- $poly_answer_compiled = poly_compile(
- $poly_answer,
- $max_coord,
- $test
- );
- $overlap = poly_touch(
- $poly_user_compiled,
- $poly_answer_compiled,
- $max_coord
- );
- }
- if ($overlap == false) {
- //all good, no overlap
- $next = 1;
- continue;
- } else {
- if ($dbg_local > 0) {
- error_log(
- __LINE__.' - Overlap is '.$overlap.': OAR hit',
- 0
- );
- }
- $organs_at_risk_hit++;
- //show the feedback
- $next = 1;
- $comment = $answerDestination = $objAnswerTmp->selectComment(
- $answerId
- );
- $answerDestination = $objAnswerTmp->selectDestination(
- $answerId
- );
- $destination_items = explode('@@', $answerDestination);
- $try_hotspot = $destination_items[1];
- $lp_hotspot = $destination_items[2];
- $select_question_hotspot = $destination_items[3];
- $url_hotspot = $destination_items[4];
- }
- }
- } else {
- // the first delineation feedback
- if ($dbg_local > 0) {
- error_log(__LINE__.' first', 0);
- }
- }
- }
- }
- if ($overlap_color) {
- $overlap_color = 'green';
- } else {
- $overlap_color = 'red';
- }
- if ($missing_color) {
- $missing_color = 'green';
- } else {
- $missing_color = 'red';
- }
- if ($excess_color) {
- $excess_color = 'green';
- } else {
- $excess_color = 'red';
- }
- if (!is_numeric($final_overlap)) {
- $final_overlap = 0;
- }
- if (!is_numeric($final_missing)) {
- $final_missing = 0;
- }
- if (!is_numeric($final_excess)) {
- $final_excess = 0;
- }
- if ($final_excess > 100) {
- $final_excess = 100;
- }
- $table_resume = '<table class="data_table">
- <tr class="row_odd">
- <td></td>
- <td ><b>'.get_lang('Requirements').'</b></td>
- <td><b>'.get_lang('YourAnswer').'</b></td>
- </tr>
- <tr class="row_even">
- <td><b>'.get_lang('Overlap').'</b></td>
- <td>'.get_lang('Min').' '.$threadhold1.'</td>
- <td><div style="color:'.$overlap_color.'">'.(($final_overlap < 0) ? 0 : intval($final_overlap)).'</div></td>
- </tr>
- <tr>
- <td><b>'.get_lang('Excess').'</b></td>
- <td>'.get_lang('Max').' '.$threadhold2.'</td>
- <td><div style="color:'.$excess_color.'">'.(($final_excess < 0) ? 0 : intval($final_excess)).'</div></td>
- </tr>
- <tr class="row_even">
- <td><b>'.get_lang('Missing').'</b></td>
- <td>'.get_lang('Max').' '.$threadhold3.'</td>
- <td><div style="color:'.$missing_color.'">'.(($final_missing < 0) ? 0 : intval($final_missing)).'</div></td>
- </tr>
- </table>';
- }
- Session::write('newquestionList', $newquestionList);
- $links = '';
- if (isset($choice_value) && $choice_value == -1) {
- if ($answerType != HOT_SPOT_DELINEATION) {
- $links .= '<a href="#" onclick="tb_remove();">'.get_lang('ChooseAnAnswer').'</a><br />';
- }
- }
- $destinationid = null;
- if ($answerType != HOT_SPOT_DELINEATION) {
- if (!empty($destination)) {
- $item_list = explode('@@', $destination);
- $try = $item_list[0];
- $lp = $item_list[1];
- $destinationid = $item_list[2];
- $url = $item_list[3];
- }
- $table_resume = '';
- } else {
- $try = $try_hotspot;
- $lp = $lp_hotspot;
- $destinationid = $select_question_hotspot;
- $url = $url_hotspot;
- if ($organs_at_risk_hit == 0 && $wrong_results == false) {
- // no error = no oar and no wrong result for delineation
- //show if no error
- //echo 'no error';
- $comment = $answerComment = $objAnswerTmp->selectComment($nbrAnswers);
- $answerDestination = $objAnswerTmp->selectDestination($nbrAnswers);
- //we send the error
- $destination_items = explode('@@', $answerDestination);
- $try = $destination_items[1];
- $lp = $destination_items[2];
- $destinationid = $destination_items[3];
- $url = $destination_items[4];
- $exerciseResult[$questionid] = 1;
- } else {
- $exerciseResult[$questionid] = 0;
- }
- }
- // the link to retry the question
- if (isset($try) && $try == 1) {
- $num_value_array = array_keys($questionList, $questionid);
- $links .= Display:: return_icon(
- 'reload.gif',
- '',
- ['style' => 'padding-left:0px;padding-right:5px;']
- ).'<a onclick="SendEx('.$num_value_array[0].');" href="#">'.get_lang('TryAgain').'</a><br /><br />';
- }
- // the link to theory (a learning path)
- if (!empty($lp)) {
- $lp_url = api_get_path(WEB_CODE_PATH).'lp/lp_controller.php?'.api_get_cidreq().'&action=view&lp_id='.$lp;
- $list = new LearnpathList(api_get_user_id());
- $flat_list = $list->get_flat_list();
- $links .= Display:: return_icon(
- 'theory.gif',
- '',
- ['style' => 'padding-left:0px;padding-right:5px;']
- ).'<a target="_blank" href="'.$lp_url.'">'.get_lang('SeeTheory').'</a><br />';
- }
- $links .= '<br />';
- // the link to an external website or link
- if (!empty($url)) {
- $links .= Display:: return_icon(
- 'link.gif',
- '',
- ['style' => 'padding-left:0px;padding-right:5px;']
- ).'<a target="_blank" href="'.$url.'">'.get_lang('VisitUrl').'</a><br /><br />';
- }
- // the link to finish the test
- if ($destinationid == -1) {
- $links .= Display:: return_icon(
- 'finish.gif',
- '',
- ['style' => 'width:22px; height:22px; padding-left:0px;padding-right:5px;']
- ).'<a onclick="SendEx(-1);" href="#">'.get_lang('EndActivity').'</a><br /><br />';
- } else {
- // the link to other question
- if (in_array($destinationid, $questionList)) {
- $objQuestionTmp = Question :: read($destinationid);
- $questionName = $objQuestionTmp->selectTitle();
- $num_value_array = (array_keys($questionList, $destinationid));
- $links .= Display:: return_icon(
- 'quiz.png',
- '',
- ['style' => 'padding-left:0px;padding-right:5px;']
- );
- $links .= '<a onclick="SendEx('.$num_value_array[0].');" href="#">'.
- get_lang('GoToQuestion').' '.$num_value_array[0].'</a><br /><br />';
- }
- }
- echo '<script>
- function SendEx(num) {
- if (num == -1) {
- window.location.href = "exercise_result.php?take_session=1&exerciseId='.$exerciseId.'&num="+num+"&exerciseType='.$exerciseType.'&origin='.$origin.'&learnpath_item_id='.$learnpath_item_id.'&learnpath_id='.$learnpath_id.'";
- //tb_remove();
- } else {
- num -= 1;
- window.location.href = "exercise_submit.php?tryagain=1&exerciseId='.$exerciseId.'&num="+num+"&exerciseType='.$exerciseType.'&origin='.$origin.'&learnpath_item_id='.$learnpath_item_id.'&learnpath_id='.$learnpath_id.'";
- //tb_remove();
- }
-
- return false;
- }
- </script>';
- if ($links != '') {
- echo '<h1><div style="color:#333;">'.get_lang('Feedback').'</div></h1>';
- if ($answerType == HOT_SPOT_DELINEATION) {
- if ($organs_at_risk_hit > 0) {
- //$message='<p>'.get_lang('YourDelineation').'</p>';
- //$message.=$table_resume;
- $message .= '<br />'.get_lang('ResultIs').' <b>'.get_lang('Unacceptable').'</b><br />';
- //if ($wrong_results) { }
- $message .= '<p style="color:#DC0A0A;"><b>'.get_lang('OARHit').'</b></p>';
- $message .= '<p>'.$comment.'</p>';
- } else {
- $message = '<p>'.get_lang('YourDelineation').'</p>';
- $message .= $table_resume;
- $message .= '<br />'.get_lang('ResultIs').' <b>'.$result_comment.'</b><br />';
- $message .= '<p>'.$comment.'</p>';
- }
- echo $message;
- } else {
- echo '<p>'.$comment.'</p>';
- }
- echo '<h3>'.$links.'</h3>';
- echo '</div>';
- Session::write('hot_spot_result', $message);
- $_SESSION['hotspot_delineation_result'][$exerciseId][$questionid] = [$message, $exerciseResult[$questionid]];
- //reseting the exerciseResult variable
- Session::write('exerciseResult', $exerciseResult);
- //save this variables just in case the exercise loads an LP with other exercise
- $_SESSION['objExerciseExtra'.$exerciseId] = $_SESSION['objExercise'];
- $_SESSION['exerciseResultExtra'.$exerciseId] = $_SESSION['exerciseResult'];
- $_SESSION['questionListExtra'.$exerciseId] = $_SESSION['questionList'];
- } else {
- $questionNum++;
- echo '<script>
- window.location.href = "exercise_submit.php?exerciseId='.$exerciseId.'&num='.$questionNum.'&exerciseType='.$exerciseType.'&'.api_get_cidreq().'";
- //tb_remove();
- </script>';
- }
- echo '</div>';
- //Display::display_footer();
|