';
$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'] = array();
$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 "';
exit;
}
$choice = array();
$questionid = $questionList[$questionNum];
// $choice_value => value of the user selection
$choice[$questionid] = isset($choice_value) ? $choice_value : null;
// initializing
if (!is_array($exerciseResult)) {
$exerciseResult = array();
}
// 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);
/*
// if it is the last question (only for a sequential exercise)
if($questionNum >= $nbrQuestions)
{
if($debug>0){echo str_repeat(' ',0).'Redirecting to exercise_result.php - Remove debug option to let this happen'."
\n";}
// goes to the script that will show the result of the exercise
// header("Location: exercise_result.php?origin=$origin&learnpath_id=$learnpath_id&learnpath_item_id=$learnpath_item_id");
// echo 'location result';
}*/
// 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 = array();
$comment = '';
$next = 1;
$_SESSION['hotspot_coord'] = array();
$_SESSION['hotspot_dest'] = array();
$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) {
//display_unique_or_multiple_answer($answerType, $studentChoice, $answer, $answerComment, $answerCorrect);
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';
}
// 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 = '
|
'.get_lang('Requirements').' |
'.get_lang('YourAnswer').' |
| '.get_lang('Overlap').' |
'.get_lang('Min').' '.$threadhold1.' |
'.(($final_overlap < 0) ? 0 : intval($final_overlap)).' |
| '.get_lang('Excess').' |
'.get_lang('Max').' '.$threadhold2.' |
'.(($final_excess < 0) ? 0 : intval($final_excess)).' |
| '.get_lang('Missing').' |
'.get_lang('Max').' '.$threadhold3.' |
'.(($final_missing < 0) ? 0 : intval($final_missing)).' |
';
}
Session::write('newquestionList', $newquestionList);
$links = '';
if (isset($choice_value) && $choice_value == -1) {
if ($answerType != HOT_SPOT_DELINEATION) {
$links .= '
'.get_lang('ChooseAnAnswer').'';
}
}
$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',
'',
array('style' => 'padding-left:0px;padding-right:5px;')
).'
'.get_lang('TryAgain').'';
}
// 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',
'',
array('style' => 'padding-left:0px;padding-right:5px;')
).'
'.get_lang('SeeTheory').'';
}
$links .= '
';
// the link to an external website or link
if (!empty($url)) {
$links .= Display:: return_icon(
'link.gif',
'',
array('style' => 'padding-left:0px;padding-right:5px;')
).'
'.get_lang('VisitUrl').'';
}
// the link to finish the test
if ($destinationid == -1) {
$links .= Display:: return_icon(
'finish.gif',
'',
array('style' => 'width:22px; height:22px; padding-left:0px;padding-right:5px;')
).'
'.get_lang('EndActivity').'';
} 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',
'',
array('style' => 'padding-left:0px;padding-right:5px;')
).'
'.get_lang('GoToQuestion').' '.$num_value_array[0].'';
}
}
echo '';
if ($links != '') {
echo '
'.get_lang('Feedback').'
';
if ($answerType == HOT_SPOT_DELINEATION) {
if ($organs_at_risk_hit > 0) {
//$message='
'.get_lang('YourDelineation').'
';
//$message.=$table_resume;
$message .= '
'.get_lang('ResultIs').'
'.get_lang('Unacceptable').'';
//if ($wrong_results) { }
$message .= '
'.get_lang('OARHit').'
';
$message .= '
'.$comment.'
';
} else {
$message = '
'.get_lang('YourDelineation').'
';
$message .= $table_resume;
$message .= '
'.get_lang('ResultIs').'
'.$result_comment.'';
$message .= '
'.$comment.'
';
}
echo $message;
} else {
echo '
'.$comment.'
';
}
echo '
'.$links.'
';
echo '