435 lines
12 KiB
PHP
435 lines
12 KiB
PHP
<?php
|
|
/* For license terms, see /license.txt */
|
|
/**
|
|
* Functions.
|
|
*
|
|
* @package chamilo.plugin.test2pdf
|
|
*/
|
|
$letters = [
|
|
'a',
|
|
'b',
|
|
'c',
|
|
'd',
|
|
'e',
|
|
'f',
|
|
'g',
|
|
'h',
|
|
'i',
|
|
'j',
|
|
'k',
|
|
'l',
|
|
'm',
|
|
'n',
|
|
'o',
|
|
'p',
|
|
'q',
|
|
'r',
|
|
's',
|
|
't',
|
|
'u',
|
|
'v',
|
|
'w',
|
|
'x',
|
|
'y',
|
|
'z',
|
|
];
|
|
|
|
/**
|
|
* List exercises.
|
|
*
|
|
* @param int $courseId Course ID
|
|
* @param int $sessionId Session ID
|
|
*
|
|
* @throws Exception
|
|
*
|
|
* @return array Results (list of exercise details)
|
|
*/
|
|
function showExerciseCourse($courseId, $sessionId = 0)
|
|
{
|
|
$tableQuiz = Database::get_course_table(TABLE_QUIZ_TEST);
|
|
$tableLpItem = Database::get_course_table(TABLE_LP_ITEM);
|
|
$courseId = (int) $courseId;
|
|
$sessionId = (int) $sessionId;
|
|
$conditionSession = api_get_session_condition($sessionId, true, true, 'a.session_id');
|
|
$sql = "SELECT a.*
|
|
FROM $tableQuiz a
|
|
LEFT JOIN $tableLpItem b ON a.iid = b.path AND a.c_id = b.c_id
|
|
WHERE a.c_id = $courseId
|
|
AND (a.active = 1 OR (item_type = 'quiz' AND b.c_id = $courseId))
|
|
$conditionSession
|
|
ORDER BY a.title ASC;";
|
|
$res = Database::query($sql);
|
|
$aux = [];
|
|
while ($row = Database::fetch_assoc($res)) {
|
|
$aux[] = $row;
|
|
}
|
|
|
|
return $aux;
|
|
}
|
|
|
|
/**
|
|
* List quiz details.
|
|
*
|
|
* @throws Exception
|
|
*
|
|
* @return array Results (list of quiz details)
|
|
*/
|
|
function getInfoQuiz($courseId, $id)
|
|
{
|
|
$courseId = (int) $courseId;
|
|
$id = (int) $id;
|
|
$tableQuiz = Database::get_course_table(TABLE_QUIZ_TEST);
|
|
$sql = "SELECT * FROM $tableQuiz WHERE iid = $id";
|
|
$res = Database::query($sql);
|
|
$row = Database::fetch_assoc($res);
|
|
|
|
return $row;
|
|
}
|
|
|
|
/**
|
|
* List question_id.
|
|
*
|
|
* @throws Exception
|
|
*
|
|
* @return array Results (list question ID)
|
|
*/
|
|
function getQuestionsFromCourse($courseId, $quizId, $sessionId = 0)
|
|
{
|
|
$courseId = (int) $courseId;
|
|
$quizId = (int) $quizId;
|
|
$sessionId = (int) $sessionId;
|
|
|
|
$tableQuizQuestion = Database::get_course_table(TABLE_QUIZ_TEST_QUESTION);
|
|
$tableQuestion = Database::get_course_table(TABLE_QUIZ_QUESTION);
|
|
$tableQuiz = Database::get_course_table(TABLE_QUIZ_TEST);
|
|
$conditionSession = api_get_session_condition($sessionId, true, true, 'q.session_id');
|
|
|
|
$sql = "SELECT a.question_id AS question_id
|
|
FROM $tableQuizQuestion a
|
|
INNER JOIN $tableQuestion b ON a.question_id = b.iid
|
|
INNER JOIN $tableQuiz q ON q.iid = a.exercice_id
|
|
WHERE a.c_id = $courseId AND a.exercice_id = $quizId
|
|
AND (b.type IN (1, 2, 3, 9, 10, 11, 12, 14))
|
|
$conditionSession
|
|
ORDER BY question_order ASC;";
|
|
$res = Database::query($sql);
|
|
$aux = [];
|
|
while ($row = Database::fetch_assoc($res)) {
|
|
$aux[] = $row['question_id'];
|
|
}
|
|
|
|
return $aux;
|
|
}
|
|
|
|
/**
|
|
* List question details.
|
|
*
|
|
* @throws Exception
|
|
*
|
|
* @return array Results (list of question details)
|
|
*/
|
|
function getInfoQuestion($courseId, $id)
|
|
{
|
|
$courseId = (int) $courseId;
|
|
$id = (int) $id;
|
|
$tableQuestion = Database::get_course_table(TABLE_QUIZ_QUESTION);
|
|
$sql = "SELECT * FROM $tableQuestion
|
|
WHERE
|
|
iid = $id
|
|
AND (type IN (1, 2, 3, 9, 10, 11, 12, 14))";
|
|
$res = Database::query($sql);
|
|
$row = Database::fetch_assoc($res);
|
|
|
|
return $row;
|
|
}
|
|
|
|
/**
|
|
* List answer details.
|
|
*
|
|
* @throws Exception
|
|
*
|
|
* @return array Results (list of answer by question_id)
|
|
*/
|
|
function getAnswers($courseId, $id)
|
|
{
|
|
$courseId = (int) $courseId;
|
|
$id = (int) $id;
|
|
$tableQuizAnswer = Database::get_course_table(TABLE_QUIZ_ANSWER);
|
|
$sql = "SELECT * FROM $tableQuizAnswer
|
|
WHERE question_id = $id
|
|
ORDER BY position ASC;";
|
|
$res = Database::query($sql);
|
|
$aux = [];
|
|
while ($row = Database::fetch_assoc($res)) {
|
|
$aux[] = $row;
|
|
}
|
|
|
|
return $aux;
|
|
}
|
|
|
|
/**
|
|
* Information of an answer type Fill in the blanks.
|
|
*
|
|
* @param $answer
|
|
*
|
|
* @return array
|
|
*/
|
|
function getAnswerFillInBlanks($answer)
|
|
{
|
|
$listAnswerResults = [];
|
|
$listAnswerResults['text'] = '';
|
|
$listAnswerResults['words_count'] = 0;
|
|
$listAnswerResults['words_with_bracket'] = [];
|
|
$listAnswerResults['words'] = [];
|
|
$listAnswerResults['weighting'] = [];
|
|
$listAnswerResults['input_size'] = [];
|
|
$listAnswerResults['switchable'] = '';
|
|
$listAnswerResults['student_answer'] = [];
|
|
$listAnswerResults['student_score'] = [];
|
|
$listAnswerResults['blank_separator_number'] = 0;
|
|
$listDoubleColon = [];
|
|
|
|
api_preg_match("/(.*)::(.*)$/s", $answer, $listResult);
|
|
|
|
if (count($listResult) < 2) {
|
|
$listDoubleColon[] = '';
|
|
$listDoubleColon[] = '';
|
|
} else {
|
|
$listDoubleColon[] = $listResult[1];
|
|
$listDoubleColon[] = $listResult[2];
|
|
}
|
|
|
|
$listAnswerResults['system_string'] = $listDoubleColon[1];
|
|
|
|
// Make sure we only take the last bit to find special marks
|
|
$listArobaseSplit = explode('@', $listDoubleColon[1]);
|
|
|
|
if (count($listArobaseSplit) < 2) {
|
|
$listArobaseSplit[1] = '';
|
|
}
|
|
|
|
// Take the complete string except after the last '::'
|
|
$listDetails = explode(':', $listArobaseSplit[0]);
|
|
|
|
// < number of item after the ::[score]:[size]:[separator_id]@ , here there are 3
|
|
if (count($listDetails) < 3) {
|
|
$listWeightings = explode(',', $listDetails[0]);
|
|
$listSizeOfInput = [];
|
|
for ($i = 0; $i < count($listWeightings); $i++) {
|
|
$listSizeOfInput[] = 200;
|
|
}
|
|
$blankSeparatorNumber = 0; // 0 is [...]
|
|
} else {
|
|
$listWeightings = explode(',', $listDetails[0]);
|
|
$listSizeOfInput = explode(',', $listDetails[1]);
|
|
$blankSeparatorNumber = $listDetails[2];
|
|
}
|
|
|
|
$listSeparators = [
|
|
['[', ']'],
|
|
['{', '}'],
|
|
['(', ')'],
|
|
['*', '*'],
|
|
['#', '#'],
|
|
['%', '%'],
|
|
['$', '$'],
|
|
];
|
|
|
|
$listAnswerResults['text'] = $listDoubleColon[0];
|
|
$listAnswerResults['weighting'] = $listWeightings;
|
|
$listAnswerResults['input_size'] = $listSizeOfInput;
|
|
$listAnswerResults['switchable'] = $listArobaseSplit[1];
|
|
$listAnswerResults['blank_separator_start'] = $listSeparators[$blankSeparatorNumber][0];
|
|
$listAnswerResults['blank_separator_end'] = $listSeparators[$blankSeparatorNumber][1];
|
|
$listAnswerResults['blank_separator_number'] = $blankSeparatorNumber;
|
|
|
|
$blankCharStart = $listSeparators[$blankSeparatorNumber][0];
|
|
$blankCharEnd = $listSeparators[$blankSeparatorNumber][1];
|
|
$blankCharStartForRegexp = escapeForRegexp($blankCharStart);
|
|
$blankCharEndForRegexp = escapeForRegexp($blankCharEnd);
|
|
|
|
// Get all blanks words
|
|
$listAnswerResults['words_count'] = api_preg_match_all(
|
|
'/'.$blankCharStartForRegexp.'[^'.$blankCharEndForRegexp.']*'.$blankCharEndForRegexp.'/',
|
|
$listDoubleColon[0],
|
|
$listWords
|
|
);
|
|
|
|
if ($listAnswerResults['words_count'] > 0) {
|
|
$listAnswerResults['words_with_bracket'] = $listWords[0];
|
|
// remove [ and ] in string
|
|
array_walk(
|
|
$listWords[0],
|
|
function (&$value, $key, $tabBlankChar) {
|
|
$trimChars = '';
|
|
for ($i = 0; $i < count($tabBlankChar); $i++) {
|
|
$trimChars .= $tabBlankChar[$i];
|
|
}
|
|
$value = trim($value, $trimChars);
|
|
$key = trim($key);
|
|
},
|
|
[$blankCharStart, $blankCharEnd]
|
|
);
|
|
$listAnswerResults['words'] = $listWords[0];
|
|
}
|
|
|
|
// Get all common words
|
|
$commonWords = api_preg_replace(
|
|
'/'.$blankCharStartForRegexp.'[^'.$blankCharEndForRegexp.']*'.$blankCharEndForRegexp.'/',
|
|
'::',
|
|
$listDoubleColon[0]
|
|
);
|
|
$listAnswerResults['common_words'] = explode('::', $commonWords);
|
|
|
|
return $listAnswerResults;
|
|
}
|
|
|
|
/**
|
|
* Escapes text used for question type Fill in the blanks.
|
|
*
|
|
* @param $inChar
|
|
*
|
|
* @return mixed|string
|
|
*/
|
|
function escapeForRegexp($inChar)
|
|
{
|
|
$listChars = [
|
|
".",
|
|
"+",
|
|
"*",
|
|
"?",
|
|
"[",
|
|
"^",
|
|
"]",
|
|
"$",
|
|
"(",
|
|
")",
|
|
"{",
|
|
"}",
|
|
"=",
|
|
"!",
|
|
">",
|
|
"|",
|
|
":",
|
|
"-",
|
|
")",
|
|
];
|
|
|
|
if (in_array($inChar, $listChars)) {
|
|
return "\\".$inChar;
|
|
} else {
|
|
return $inChar;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Clear the answer entered.
|
|
*
|
|
* @param string $answer
|
|
*
|
|
* @return string
|
|
*/
|
|
function clearStudentAnswer($answer)
|
|
{
|
|
$answer = api_html_entity_decode($answer);
|
|
$answer = api_preg_replace('/\s\s+/', ' ', $answer); // replace excess white spaces
|
|
$answer = str_replace(''', ''', $answer);
|
|
$answer = strtr($answer, array_flip(get_html_translation_table(HTML_ENTITIES, ENT_QUOTES)));
|
|
|
|
return trim($answer);
|
|
}
|
|
|
|
/**
|
|
* Remove all html tag.
|
|
*
|
|
* @param string $string The string to be stripped of HTML
|
|
*
|
|
* @return string clean of html tag
|
|
*/
|
|
function removeHtml($string)
|
|
{
|
|
$txt = str_replace("<html>", "", $string);
|
|
$txt = str_replace("<head>", "", $txt);
|
|
$txt = str_replace("<title>", "", $txt);
|
|
$txt = str_replace("</title>", "", $txt);
|
|
$txt = str_replace("</head>", "", $txt);
|
|
$txt = str_replace("<body>", "", $txt);
|
|
$txt = str_replace("</body>", "", $txt);
|
|
$txt = str_replace("</html>", "", $txt);
|
|
$txt = strip_tags($txt);
|
|
$txt = str_replace(chr(13).chr(10), "", $txt);
|
|
$txt = str_replace(" ", " ", $txt);
|
|
$txt = str_replace("Á", "Á", $txt);
|
|
$txt = str_replace("á", "á", $txt);
|
|
$txt = str_replace("É", "É", $txt);
|
|
$txt = str_replace("é", "é", $txt);
|
|
$txt = str_replace("Í", "Í", $txt);
|
|
$txt = str_replace("í", "í", $txt);
|
|
$txt = str_replace("Ó", "Ó", $txt);
|
|
$txt = str_replace("ó", "ó", $txt);
|
|
$txt = str_replace("Ú", "Ú", $txt);
|
|
$txt = str_replace("ú", "ú", $txt);
|
|
$txt = str_replace("Ñ", "Ñ", $txt);
|
|
$txt = str_replace("ñ", "ñ", $txt);
|
|
$txt = str_replace("à", "à", $txt);
|
|
$txt = str_replace("À", "À", $txt);
|
|
$txt = str_replace("¡", "¡", $txt);
|
|
$txt = str_replace("·", "·", $txt);
|
|
$txt = str_replace("Ç", "Ç", $txt);
|
|
$txt = str_replace("ç", "ç", $txt);
|
|
$txt = str_replace(""", '"', $txt);
|
|
$txt = str_replace("ª", 'ª', $txt);
|
|
$txt = str_replace("º", 'º', $txt);
|
|
$txt = str_replace("&", '&', $txt);
|
|
$txt = str_replace("•", '•', $txt);
|
|
$txt = str_replace("¿", '¿', $txt);
|
|
$txt = str_replace("€", 'EUR', $txt);
|
|
$txt = str_replace("ü", 'ü', $txt);
|
|
$txt = str_replace("Ü", 'Ü', $txt);
|
|
$txt = str_replace("¨", '¨', $txt);
|
|
|
|
return $txt;
|
|
}
|
|
|
|
/**
|
|
* Remove all html tag.
|
|
*
|
|
* @param string $string The string to be stripped of accents
|
|
*
|
|
* @return string clean of html tag
|
|
*/
|
|
function removeQuotes($string)
|
|
{
|
|
$txt = str_replace(" ", " ", $string);
|
|
$txt = str_replace("Á", "Á", $txt);
|
|
$txt = str_replace("á", "á", $txt);
|
|
$txt = str_replace("É", "É", $txt);
|
|
$txt = str_replace("é", "é", $txt);
|
|
$txt = str_replace("Í", "Í", $txt);
|
|
$txt = str_replace("í", "í", $txt);
|
|
$txt = str_replace("Ó", "Ó", $txt);
|
|
$txt = str_replace("ó", "ó", $txt);
|
|
$txt = str_replace("Ú", "Ú", $txt);
|
|
$txt = str_replace("ú", "ú", $txt);
|
|
$txt = str_replace("Ñ", "Ñ", $txt);
|
|
$txt = str_replace("ñ", "ñ", $txt);
|
|
$txt = str_replace(""", '"', $txt);
|
|
$txt = str_replace("ª", 'ª', $txt);
|
|
$txt = str_replace("º", 'º', $txt);
|
|
$txt = str_replace("&", '&', $txt);
|
|
$txt = str_replace("•", '•', $txt);
|
|
$txt = str_replace("¿ &", '¿', $txt);
|
|
$txt = str_replace("à", "à", $txt);
|
|
$txt = str_replace("À", "À", $txt);
|
|
$txt = str_replace("¡", "¡", $txt);
|
|
$txt = str_replace("·", "·", $txt);
|
|
$txt = str_replace("Ç", "Ç", $txt);
|
|
$txt = str_replace("ç", "ç", $txt);
|
|
$txt = str_replace("€", 'EUR', $txt);
|
|
$txt = str_replace("ü", 'ü', $txt);
|
|
$txt = str_replace("Ü", 'Ü', $txt);
|
|
$txt = str_replace("uml;", '¨', $txt);
|
|
|
|
return $txt;
|
|
}
|