Actualización

2025-04-10 12:36:07 +02:00
parent 1da7c3f3b9
commit 4aff98e77b
3147 changed files with 320647 additions and 0 deletions
--- a/plugin/test2pdf/src/test2pdf.lib.php
+++ b/plugin/test2pdf/src/test2pdf.lib.php
@@ -0,0 +1,434 @@
+<?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('&#39;', '&#039;', $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("&nbsp;", " ", $txt);
+    $txt = str_replace("&Aacute;", "Á", $txt);
+    $txt = str_replace("&aacute;", "á", $txt);
+    $txt = str_replace("&Eacute;", "É", $txt);
+    $txt = str_replace("&eacute;", "é", $txt);
+    $txt = str_replace("&Iacute;", "Í", $txt);
+    $txt = str_replace("&iacute;", "í", $txt);
+    $txt = str_replace("&Oacute;", "Ó", $txt);
+    $txt = str_replace("&oacute;", "ó", $txt);
+    $txt = str_replace("&Uacute;", "Ú", $txt);
+    $txt = str_replace("&uacute;", "ú", $txt);
+    $txt = str_replace("&Ntilde;", "Ñ", $txt);
+    $txt = str_replace("&ntilde;", "ñ", $txt);
+    $txt = str_replace("&agrave;", "à", $txt);
+    $txt = str_replace("&Agrave;", "À", $txt);
+    $txt = str_replace("&iexcl;", "¡", $txt);
+    $txt = str_replace("&middot;", "·", $txt);
+    $txt = str_replace("&Ccedil;", "Ç", $txt);
+    $txt = str_replace("&ccedil;", "ç", $txt);
+    $txt = str_replace("&quot;", '"', $txt);
+    $txt = str_replace("&ordf;", 'ª', $txt);
+    $txt = str_replace("&ordm;", 'º', $txt);
+    $txt = str_replace("&amp;", '&', $txt);
+    $txt = str_replace("&bull;", '•', $txt);
+    $txt = str_replace("&iquest;", '¿', $txt);
+    $txt = str_replace("&euro;", 'EUR', $txt);
+    $txt = str_replace("&uuml;", 'ü', $txt);
+    $txt = str_replace("&Uuml;", 'Ü', $txt);
+    $txt = str_replace("&uml;", '¨', $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("&nbsp;", " ", $string);
+    $txt = str_replace("&Aacute;", "Á", $txt);
+    $txt = str_replace("&aacute;", "á", $txt);
+    $txt = str_replace("&Eacute;", "É", $txt);
+    $txt = str_replace("&eacute;", "é", $txt);
+    $txt = str_replace("&Iacute;", "Í", $txt);
+    $txt = str_replace("&iacute;", "í", $txt);
+    $txt = str_replace("&Oacute;", "Ó", $txt);
+    $txt = str_replace("&oacute;", "ó", $txt);
+    $txt = str_replace("&Uacute;", "Ú", $txt);
+    $txt = str_replace("&uacute;", "ú", $txt);
+    $txt = str_replace("&Ntilde;", "Ñ", $txt);
+    $txt = str_replace("&ntilde;", "ñ", $txt);
+    $txt = str_replace("&quot;", '"', $txt);
+    $txt = str_replace("&ordf;", 'ª', $txt);
+    $txt = str_replace("&ordm;", 'º', $txt);
+    $txt = str_replace("&amp;", '&', $txt);
+    $txt = str_replace("&bull;", '•', $txt);
+    $txt = str_replace("&iquest; &", '¿', $txt);
+    $txt = str_replace("&agrave;", "à", $txt);
+    $txt = str_replace("&Agrave;", "À", $txt);
+    $txt = str_replace("&iexcl;", "¡", $txt);
+    $txt = str_replace("&middot;", "·", $txt);
+    $txt = str_replace("&Ccedil;", "Ç", $txt);
+    $txt = str_replace("&ccedil;", "ç", $txt);
+    $txt = str_replace("&euro;", 'EUR', $txt);
+    $txt = str_replace("&uuml;", 'ü', $txt);
+    $txt = str_replace("&Uuml;", 'Ü', $txt);
+    $txt = str_replace("uml;", '¨', $txt);
+
+    return $txt;
+}