public static function _CreateAttemptQuestionsSQLFormer($ATTEMPT_ID, $arTest, $clauseAllChildsLessons, $courseLessonId)
{
$strSql =
"INSERT INTO b_learn_test_result (ATTEMPT_ID, QUESTION_ID)
SELECT " . ($ATTEMPT_ID + 0) . " ,Q.ID
FROM b_learn_lesson L
INNER JOIN b_learn_question Q ON L.ID = Q.LESSON_ID
WHERE (L.ID IN (" . $clauseAllChildsLessons . ") OR (L.ID = " . ($courseLessonId + 0) . ") )
AND Q.ACTIVE = 'Y' "
. ($arTest["INCLUDE_SELF_TEST"] != "Y" ? "AND Q.SELF = 'N' " : "").
"ORDER BY " . ($arTest["RANDOM_QUESTIONS"] == "Y" ? CTest::GetRandFunction() : "Q.SORT ").
($arTest["QUESTIONS_AMOUNT"] > 0 ? "LIMIT " . ($arTest["QUESTIONS_AMOUNT"] + 0) : "");
return ($strSql);
}
/**
* <p>Возвращает список вопросов плана тестирования по фильтру <b>arFilter</b>, отсортированный в порядке <b>arOrder</b>.</p>
*
*
*
*
* @param array $arrayarOrder = Array("ID"=>"DESC") Массив для сортировки результата. Массив вида <i>array("поле
* сортировки"=>"направление сортировки" [, ...])</i>.<br>Поле для
* сортировки может принимать значения: <ul> <li> <b>ID</b> - идентификатор
* вопроса в плане тестирования; </li> <li> <b>ATTEMPT_ID</b> - идентификатор
* попытки; </li> <li> <b>QUESTION_ID</b> - идентификатор вопроса; </li> <li> <b>POINT</b> -
* количество баллов; </li> <li> <b>ANSWERED</b> - вопрос отвечен (Y|N); </li> <li>
* <b>CORRECT</b> - вопрос правильно отвечен (Y|N); </li> <li> <b>QUESTION_NAME</b> -
* название вопроса; </li> <li> <b>RAND</b> - случайный порядок. </li>
* </ul>Направление сортировки может принимать значения: <ul> <li> <b>asc</b> -
* по возрастанию; </li> <li> <b>desc</b> - по убыванию; </li> </ul>Необязательный.
* По умолчанию фильтруется по убыванию идентификатора вопроса в
* плане тестирования.
*
*
*
* @param array $arrayarFilter = Array() Массив вида <i>array("фильтруемое поле"=>"значение фильтра" [, ...])</i>.
* Фильтруемое поле может принимать значения: <ul> <li> <b>ID</b> -
* идентификатор вопроса в плане тестирования; </li> <li> <b>ATTEMPT_ID</b> -
* идентификатор попытки; </li> <li> <b>QUESTION_ID</b> - идентификатор вопроса;
* </li> <li> <b>POINT</b> - количество баллов; </li> <li> <b>RESPONSE</b> - ответ учащегося
* (можно искать по шаблону [%_]); </li> <li> <b>QUESTION_NAME</b> - название вопроса
* (можно искать по шаблону [%_]); </li> <li> <b>ANSWERED</b> - вопрос отвечен (Y|N);
* </li> <li> <b>CORRECT</b> - вопрос правильно отвечен (Y|N). </li> </ul>Перед
* названием фильтруемого поля может указать тип фильтрации: <ul> <li>"!"
* - не равно </li> <li>"<" - меньше </li> <li>"<=" - меньше либо равно </li> <li>">"
* - больше </li> <li>">=" - больше либо равно </li> </ul> <br>"<i>значения
* фильтра</i>" - одиночное значение или массив.<br><br>Необязательный. По
* умолчанию записи не фильтруются.
*
*
*
* @return CDBResult <p>Возвращается объект <a
* href="http://dev.1c-bitrix.ru/api_help/main/reference/cdbresult/index.php">CDBResult</a>.</p>
*
*
* <h4>Example</h4>
* <pre>
* <?
* if (CModule::IncludeModule("learning"))
* {
* $ATTEMPT_ID = 590;
* $res = CTestResult::GetList(
* Array("ID" => "ASC"),
* Array("ANSWERED" => "N", "ATTEMPT_ID" => $ATTEMPT_ID)
* );
*
* while ($arQuestionPlan = $res->GetNext())
* {
* echo "Question ID: ".$arQuestionPlan["QUESTION_ID"].<br> "; Correct answer: ".$arQuestionPlan["CORRECT"].<br> "; Question name:".$arQuestionPlan["QUESTION_NAME"]."<br>";
* }
* }
* ?>
* </pre>
*
*
*
* <h4>See Also</h4>
* <ul> <li> <a href="http://dev.1c-bitrix.ru/api_help/main/reference/cdbresult/index.php">CDBResult</a> </li> <li> <a
* href="index.php">CTestResult</a>::<a href="getbyid.php">GetByID</a> </li> <li><a
* href="../../fields.php#test_result">Поля плана тестирования</a></li> </ul><a name="examples"></a>
*
*
* @static
* @link http://dev.1c-bitrix.ru/api_help/learning/classes/ctestresult/getlist.php
* @author Bitrix
*/
public static function GetList($arOrder=array(), $arFilter=array())
{
global $DB, $USER, $APPLICATION;
if (!is_array($arFilter))
$arFilter = Array();
$oPermParser = new CLearnParsePermissionsFromFilter ($arFilter);
$arSqlSearch = CTestResult::GetFilter($arFilter);
$strSqlSearch = "";
$arSqlSearchCnt = count($arSqlSearch);
for($i=0; $i<$arSqlSearchCnt; $i++)
if(strlen($arSqlSearch[$i])>0)
$strSqlSearch .= " AND ".$arSqlSearch[$i]." ";
$strSql =
"SELECT TR.*, Q.QUESTION_TYPE, Q.NAME as QUESTION_NAME, Q.POINT as QUESTION_POINT, Q.LESSON_ID
FROM b_learn_test_result TR
INNER JOIN b_learn_question Q ON TR.QUESTION_ID = Q.ID
INNER JOIN b_learn_lesson L ON Q.LESSON_ID = L.ID
WHERE 1=1 ";
if ($oPermParser->IsNeedCheckPerm())
$strSql .= " AND L.ID IN (" . $oPermParser->SQLForAccessibleLessons() . ") ";
$strSql .= $strSqlSearch;
/* was:
$bCheckPerm = ($APPLICATION->GetUserRight("learning") < "W" && !$USER->IsAdmin() && $arFilter["CHECK_PERMISSIONS"] != "N");
$strSql =
"SELECT TR.*, Q.QUESTION_TYPE, Q.NAME as QUESTION_NAME, Q.POINT as QUESTION_POINT, Q.LESSON_ID
FROM b_learn_test_result TR
INNER JOIN b_learn_question Q ON TR.QUESTION_ID = Q.ID
INNER JOIN b_learn_lesson L ON Q.LESSON_ID = L.ID "
"INNER JOIN b_learn_course C ON L.COURSE_ID = C.ID ".
. "WHERE 1=1 "
. ($bCheckPerm ?
"AND EXISTS (SELECT * FROM b_learn_course_permission CP WHERE ".
"CP.USER_GROUP_ID IN (".$USER->GetGroups().") ".
"AND CP.PERMISSION >= '".(strlen($arFilter["MIN_PERMISSION"])==1 ? $arFilter["MIN_PERMISSION"] : "R")."' ".
"AND (CP.PERMISSION='X' OR C.ACTIVE='Y'))"
:"")
. $strSqlSearch;
*/
if (!is_array($arOrder))
$arOrder = Array();
foreach($arOrder as $by=>$order)
{
$by = strtolower($by);
$order = strtolower($order);
if ($order!="asc")
$order = "desc";
if ($by == "id") $arSqlOrder[] = " TR.ID ".$order." ";
elseif ($by == "attempt_id") $arSqlOrder[] = " TR.ATTEMPT_ID ".$order." ";
elseif ($by == "question_id") $arSqlOrder[] = " TR.QUESTION_ID ".$order." ";
elseif ($by == "point") $arSqlOrder[] = " TR.POINT ".$order." ";
elseif ($by == "correct") $arSqlOrder[] = " TR.CORRECT ".$order." ";
elseif ($by == "answered") $arSqlOrder[] = " TR.ANSWERED ".$order." ";
elseif ($by == "question_name") $arSqlOrder[] = " QUESTION_NAME ".$order." ";
elseif ($by == "rand") $arSqlOrder[] = CTest::GetRandFunction();
else
{
$arSqlOrder[] = " TR.ID ".$order." ";
$by = "id";
}
}
$strSqlOrder = "";
DelDuplicateSort($arSqlOrder);
$arSqlOrderCnt = count($arSqlOrder);
for ($i=0; $i<$arSqlOrderCnt; $i++)
{
if($i==0)
$strSqlOrder = " ORDER BY ";
else
$strSqlOrder .= ",";
$strSqlOrder .= $arSqlOrder[$i];
}
$strSql .= $strSqlOrder;
//echo $strSql;
return $DB->Query($strSql, false, "File: ".__FILE__."<br>Line: ".__LINE__);
}
/**
* <p>Возвращает список вопросов плана тестирования по фильтру <b>arFilter</b>, отсортированный в порядке <b>arOrder</b>.</p>
*
*
* @param array $arrayarOrder = Array("ID"=>"DESC") Массив для сортировки результата. Массив вида <i>array("поле
* сортировки"=>"направление сортировки" [, ...])</i>.<br>Поле для
* сортировки может принимать значения: <ul> <li> <b>ID</b> - идентификатор
* вопроса в плане тестирования; </li> <li> <b>ATTEMPT_ID</b> - идентификатор
* попытки; </li> <li> <b>QUESTION_ID</b> - идентификатор вопроса; </li> <li> <b>POINT</b> -
* количество баллов; </li> <li> <b>ANSWERED</b> - вопрос отвечен (Y|N); </li> <li>
* <b>CORRECT</b> - вопрос правильно отвечен (Y|N); </li> <li> <b>QUESTION_NAME</b> -
* название вопроса; </li> <li> <b>RAND</b> - случайный порядок. </li>
* </ul>Направление сортировки может принимать значения: <ul> <li> <b>asc</b> -
* по возрастанию; </li> <li> <b>desc</b> - по убыванию; </li> </ul>Необязательный.
* По умолчанию сортируется по убыванию идентификатора вопроса в
* плане тестирования.
*
* @param array $arrayarFilter = Array() Массив вида <i>array("фильтруемое поле"=>"значение фильтра" [, ...])</i>.
* Фильтруемое поле может принимать значения: <ul> <li> <b>ID</b> -
* идентификатор вопроса в плане тестирования; </li> <li> <b>ATTEMPT_ID</b> -
* идентификатор попытки; </li> <li> <b>QUESTION_ID</b> - идентификатор вопроса;
* </li> <li> <b>POINT</b> - количество баллов; </li> <li> <b>RESPONSE</b> - ответ учащегося
* (можно искать по шаблону [%_]); </li> <li> <b>QUESTION_NAME</b> - название вопроса
* (можно искать по шаблону [%_]); </li> <li> <b>ANSWERED</b> - вопрос отвечен (Y|N);
* </li> <li> <b>CORRECT</b> - вопрос правильно отвечен (Y|N). </li> </ul>Перед
* названием фильтруемого поля может указать тип фильтрации: <ul> <li>"!"
* - не равно </li> <li>"<" - меньше </li> <li>"<=" - меньше либо равно </li> <li>">"
* - больше </li> <li>">=" - больше либо равно </li> </ul> <br>"<i>значения
* фильтра</i>" - одиночное значение или массив.<br><br>Необязательный. По
* умолчанию записи не фильтруются.
*
* @return CDBResult <p>Возвращается объект <a
* href="http://dev.1c-bitrix.ru/api_help/main/reference/cdbresult/index.php">CDBResult</a>.</p> </h
*
* <h4>Example</h4>
* <pre>
* <?
* if (CModule::IncludeModule("learning"))
* {
* $ATTEMPT_ID = 590;
* $res = CTestResult::GetList(
* Array("ID" => "ASC"),
* Array("ANSWERED" => "N", "ATTEMPT_ID" => $ATTEMPT_ID)
* );
*
* while ($arQuestionPlan = $res->GetNext())
* {
* echo "Question ID: ".$arQuestionPlan["QUESTION_ID"].<br> "; Correct answer: ".$arQuestionPlan["CORRECT"].<br> "; Question name:".$arQuestionPlan["QUESTION_NAME"]."<b
* </pre>
*
*
* <h4>See Also</h4>
* <ul> <li> <a href="http://dev.1c-bitrix.ru/api_help/main/reference/cdbresult/index.php">CDBResult</a> </li> <li> <a
* href="index.php">CTestResult</a>::<a href="getbyid.php">GetByID</a> </li> <li><a
* href="../../fields.php#test_result">Поля плана тестирования</a></li> </ul> <a name="examples"></a>
*
*
* @static
* @link http://dev.1c-bitrix.ru/api_help/learning/classes/ctestresult/getlist.php
* @author Bitrix
*/
public static function GetList($arOrder = array(), $arFilter = array(), $arNavParams = array())
{
global $DB, $USER, $APPLICATION;
if (!is_array($arFilter)) {
$arFilter = array();
}
$oPermParser = new CLearnParsePermissionsFromFilter($arFilter);
$arSqlSearch = CTestResult::GetFilter($arFilter);
// Remove empty strings from array
$arSqlSearch = array_filter($arSqlSearch);
if ($oPermParser->IsNeedCheckPerm()) {
$arSqlSearch[] = " L.ID IN (" . $oPermParser->SQLForAccessibleLessons() . ") ";
}
$strSqlSearch = ' ';
if (!empty($arSqlSearch)) {
$strSqlSearch = ' WHERE ';
$strSqlSearch .= implode(' AND ', $arSqlSearch);
}
$strSqlFrom = "FROM b_learn_test_result TR \n\t\t\tINNER JOIN b_learn_question Q ON TR.QUESTION_ID = Q.ID \n\t\t\tINNER JOIN b_learn_lesson L ON Q.LESSON_ID = L.ID " . $strSqlSearch;
$strSql = "SELECT TR.*, Q.QUESTION_TYPE, Q.NAME as QUESTION_NAME, \n\t\t\tQ.POINT as QUESTION_POINT, Q.LESSON_ID " . $strSqlFrom;
if (!is_array($arOrder)) {
$arOrder = array();
}
foreach ($arOrder as $by => $order) {
$by = strtolower($by);
$order = strtolower($order);
if ($order != "asc") {
$order = "desc";
}
if ($by == "id") {
$arSqlOrder[] = " TR.ID " . $order . " ";
} elseif ($by == "attempt_id") {
$arSqlOrder[] = " TR.ATTEMPT_ID " . $order . " ";
} elseif ($by == "question_id") {
$arSqlOrder[] = " TR.QUESTION_ID " . $order . " ";
} elseif ($by == "point") {
$arSqlOrder[] = " TR.POINT " . $order . " ";
} elseif ($by == "correct") {
$arSqlOrder[] = " TR.CORRECT " . $order . " ";
} elseif ($by == "answered") {
$arSqlOrder[] = " TR.ANSWERED " . $order . " ";
} elseif ($by == "question_name") {
$arSqlOrder[] = " QUESTION_NAME " . $order . " ";
} elseif ($by == "rand") {
$arSqlOrder[] = CTest::GetRandFunction();
} else {
$arSqlOrder[] = " TR.ID " . $order . " ";
$by = "id";
}
}
$strSqlOrder = "";
DelDuplicateSort($arSqlOrder);
$arSqlOrderCnt = count($arSqlOrder);
for ($i = 0; $i < $arSqlOrderCnt; $i++) {
if ($i == 0) {
$strSqlOrder = " ORDER BY ";
} else {
$strSqlOrder .= ",";
}
$strSqlOrder .= $arSqlOrder[$i];
}
$strSql .= $strSqlOrder;
if (is_array($arNavParams) && !empty($arNavParams)) {
if (isset($arNavParams['nTopCount']) && (int) $arNavParams['nTopCount'] > 0) {
$strSql = $DB->TopSql($strSql, (int) $arNavParams['nTopCount']);
$res = $DB->Query($strSql, false, "File: " . __FILE__ . "<br>Line: " . __LINE__);
} else {
$res_cnt = $DB->Query("SELECT COUNT(TR.ID) as C " . $strSqlFrom);
$res_cnt = $res_cnt->fetch();
$res = new CDBResult();
$res->NavQuery($strSql, $res_cnt['C'], $arNavParams);
}
} else {
$res = $DB->Query($strSql, false, "File: " . __FILE__ . "<br>Line: " . __LINE__);
}
return $res;
}
protected static function _CreateAttemptQuestions($arCallbackSqlFormer, $ATTEMPT_ID)
{
global $APPLICATION, $DB, $DBType;
$ATTEMPT_ID = intval($ATTEMPT_ID);
$attempt = CTestAttempt::GetByID($ATTEMPT_ID);
if (!($arAttempt = $attempt->Fetch())) {
$APPLICATION->ThrowException(GetMessage("LEARNING_BAD_ATTEMPT_ID_EX"), "ERROR_NO_ATTEMPT_ID");
return false;
}
$test = CTest::GetByID($arAttempt["TEST_ID"]);
if (!($arTest = $test->Fetch())) {
$APPLICATION->ThrowException(GetMessage("LEARNING_BAD_TEST_ID_EX"), "ERROR_NO_TEST_ID");
return false;
}
$strSql = "DELETE FROM b_learn_test_result WHERE ATTEMPT_ID = " . $ATTEMPT_ID;
if (!$DB->Query($strSql, false, "File: " . __FILE__ . "<br>Line: " . __LINE__)) {
return false;
}
/**
* QUESTIONS_FROM values:
* 'L' - X questions from every lesson in course
* 'C' - X questions from every lesson from every chapter in the course
* In this case questions taken from immediate lessons of all chapters (X per chapter) in the course.
* In new data model it means, get X questions from every lesson in the course, except
* 1) immediate lessons-childs of the course and
* 2) lessons, contains other lessons (because, in old data model chapters doesn't contains questions)
*
* 'H' - all questions from the selected chapter (recursive) in the course
* This case must be ignored, because converter to new data model updates 'H' to 'R', but in case
* when chapter is not exists updates didn't become. So QUESTIONS_FROM stayed in 'H' value. And it means,
* that there is no chapter exists with QUESTIONS_FROM_ID, so we can't do work. And we should just
* ignore, for backward compatibility (so, don't throw an error).
* 'S' - all questions from the selected lesson (unilesson_id in QUESTIONS_FROM_ID)
* 'A' - all questions of the course (nothing interesting in QUESTIONS_FROM_ID)
*
* new values:
* 'R' - all questions from the tree with root at selected lesson (include questions of selected lesson)
* in the course (unilesson_id in QUESTIONS_FROM_ID)
*/
if ($arTest["QUESTIONS_FROM"] == "C" || $arTest["QUESTIONS_FROM"] == "L") {
$courseId = $arTest['COURSE_ID'] + 0;
$courseLessonId = CCourse::CourseGetLinkedLesson($courseId);
if ($courseLessonId === false) {
$APPLICATION->ThrowException(GetMessage("LEARNING_BAD_TEST_IS_EMPTY"), "ERROR_TEST_IS_EMPTY");
return false;
}
$clauseAllChildsLessons = CLearnHelper::SQLClauseForAllSubLessons($courseLessonId);
if ($arTest["QUESTIONS_FROM"] == "C") {
$strSql = "SELECT Q.ID as QUESTION_ID, TLEUP.SOURCE_NODE as FROM_ID\n\t\t\t\tFROM b_learn_lesson L\n\t\t\t\tINNER JOIN b_learn_question Q ON L.ID = Q.LESSON_ID\n\t\t\t\tINNER JOIN b_learn_lesson_edges TLEUP ON L.ID = TLEUP.TARGET_NODE\n\t\t\t\tLEFT OUTER JOIN b_learn_lesson_edges TLEDOWN ON L.ID = TLEDOWN.SOURCE_NODE " . "WHERE L.ID IN (" . $clauseAllChildsLessons . ") \n" . " AND TLEDOWN.SOURCE_NODE IS NULL \n" . " AND TLEUP.SOURCE_NODE IN (" . $clauseAllChildsLessons . ") \n" . " AND Q.ACTIVE = 'Y' " . ($arTest["INCLUDE_SELF_TEST"] != "Y" ? "AND Q.SELF = 'N' " : "") . "ORDER BY " . ($arTest["RANDOM_QUESTIONS"] == "Y" ? CTest::GetRandFunction() : "L.SORT, Q.SORT");
} else {
$strSql = "SELECT Q.ID as QUESTION_ID, L.ID as FROM_ID " . "FROM b_learn_lesson L " . "INNER JOIN b_learn_question Q ON L.ID = Q.LESSON_ID " . "WHERE L.ID IN (" . $clauseAllChildsLessons . ") AND Q.ACTIVE = 'Y' " . ($arTest["INCLUDE_SELF_TEST"] != "Y" ? "AND Q.SELF = 'N' " : "") . "ORDER BY " . ($arTest["RANDOM_QUESTIONS"] == "Y" ? CTest::GetRandFunction() : "L.SORT, Q.SORT");
}
if (!($res = $DB->Query($strSql, false, "File: " . __FILE__ . "<br>Line: " . __LINE__))) {
return false;
}
$Values = array();
$tmp = array();
while ($arRecord = $res->Fetch()) {
if (is_set($tmp, $arRecord["FROM_ID"])) {
if ($tmp[$arRecord["FROM_ID"]] < $arTest["QUESTIONS_AMOUNT"]) {
$tmp[$arRecord["FROM_ID"]]++;
} else {
continue;
}
} else {
$tmp[$arRecord["FROM_ID"]] = 1;
}
$Values[] = $arRecord["QUESTION_ID"];
}
if (empty($Values)) {
$APPLICATION->ThrowException(GetMessage("LEARNING_BAD_TEST_IS_EMPTY"), "ERROR_TEST_IS_EMPTY");
return false;
}
$DB->StartTransaction();
foreach ($Values as $ID) {
$strSql = "INSERT INTO b_learn_test_result (ATTEMPT_ID, QUESTION_ID) VALUES (" . $ATTEMPT_ID . "," . $ID . ")";
if (!$DB->Query($strSql, false, "File: " . __FILE__ . "<br>Line: " . __LINE__)) {
$DB->Rollback();
return false;
}
}
$DB->Commit();
} elseif (($arTest["QUESTIONS_FROM"] == "H" || $arTest["QUESTIONS_FROM"] == "S" || $arTest["QUESTIONS_FROM"] == "R") && $arTest["QUESTIONS_FROM_ID"]) {
$WHERE = '';
if ($arTest["QUESTIONS_FROM"] == "H") {
/**
* 'H' - all questions from the selected chapter (recursive) in the course
* This case must be ignored, because converter to new data model updates 'H' to 'R', but in case
* when chapter is not exists updates didn't become. So QUESTIONS_FROM stayed in 'H' value. And it means,
* that there is no chapter exists with QUESTIONS_FROM_ID, so we can't do work. And we should just
* ignore, for backward compatibility (so, don't throw an error).
*/
$APPLICATION->ThrowException(GetMessage("LEARNING_BAD_TEST_IS_EMPTY"), "ERROR_TEST_IS_EMPTY");
return false;
} elseif ($arTest["QUESTIONS_FROM"] == 'R') {
$clauseAllChildsLessons = CLearnHelper::SQLClauseForAllSubLessons($arTest['QUESTIONS_FROM_ID']);
$WHERE = " (L.ID IN(" . $clauseAllChildsLessons . ") OR (L.ID = " . ($arTest['QUESTIONS_FROM_ID'] + 0) . ")) ";
} elseif ($arTest["QUESTIONS_FROM"] == 'S') {
$clauseAllChildsLessons = $arTest["QUESTIONS_FROM_ID"] + 0;
$WHERE = " (L.ID IN(" . $clauseAllChildsLessons . ") OR (L.ID = " . ($arTest['QUESTIONS_FROM_ID'] + 0) . ")) ";
} else {
return false;
}
$strSql = "INSERT INTO b_learn_test_result (ATTEMPT_ID, QUESTION_ID) " . "SELECT " . $ATTEMPT_ID . " ,Q.ID " . "FROM b_learn_lesson L " . "INNER JOIN b_learn_question Q ON L.ID = Q.LESSON_ID " . "WHERE " . $WHERE . " AND Q.ACTIVE = 'Y' " . ($arTest["INCLUDE_SELF_TEST"] != "Y" ? "AND Q.SELF = 'N' " : "") . "ORDER BY " . ($arTest["RANDOM_QUESTIONS"] == "Y" ? CTest::GetRandFunction() : "Q.SORT ") . ($arTest["QUESTIONS_AMOUNT"] > 0 ? "LIMIT " . $arTest["QUESTIONS_AMOUNT"] : "");
//echo $strSql;exit;
$q = $DB->Query($strSql, false, "File: " . __FILE__ . "<br>Line: " . __LINE__);
if (!$q || intval($q->AffectedRowsCount()) <= 0) {
$APPLICATION->ThrowException(GetMessage("LEARNING_BAD_TEST_IS_EMPTY"), "ERROR_TEST_IS_EMPTY");
return false;
}
} elseif ($arTest["QUESTIONS_FROM"] == 'A') {
$courseId = $arTest['COURSE_ID'] + 0;
$courseLessonId = CCourse::CourseGetLinkedLesson($courseId);
if ($courseLessonId === false) {
$APPLICATION->ThrowException(GetMessage("LEARNING_BAD_TEST_IS_EMPTY"), "ERROR_TEST_IS_EMPTY");
return false;
}
$clauseAllChildsLessons = CLearnHelper::SQLClauseForAllSubLessons($courseLessonId);
$strSql = call_user_func($arCallbackSqlFormer, $ATTEMPT_ID, $arTest, $clauseAllChildsLessons, $courseLessonId);
//echo $strSql; exit;
$q = $DB->Query($strSql, false, "File: " . __FILE__ . "<br>Line: " . __LINE__);
if (!$q || intval($q->AffectedRowsCount()) <= 0) {
$APPLICATION->ThrowException(GetMessage("LEARNING_BAD_TEST_IS_EMPTY"), "ERROR_TEST_IS_EMPTY");
return false;
}
} else {
return false;
}
$strSql = "UPDATE b_learn_attempt SET QUESTIONS = '" . CTestResult::GetCount($ATTEMPT_ID) . "' WHERE ID = " . $ATTEMPT_ID;
$DB->Query($strSql, false, "File: " . __FILE__ . "<br>Line: " . __LINE__);
return true;
}
function GetList($arOrder = array(), $arFilter = array())
{
global $DB, $USER;
$arSqlSearch = CLAnswer::GetFilter($arFilter);
$strSqlSearch = "";
for ($i = 0; $i < count($arSqlSearch); $i++) {
if (strlen($arSqlSearch[$i]) > 0) {
$strSqlSearch .= " AND " . $arSqlSearch[$i] . " ";
}
}
$strSql = "SELECT CA.*, CQ.ID AS QUESTION_ID, CQ.NAME AS QUESTION_NAME " . "FROM b_learn_answer CA " . "INNER JOIN b_learn_question CQ ON CA.QUESTION_ID = CQ.ID " . "WHERE 1=1 " . $strSqlSearch;
if (!is_array($arOrder)) {
$arOrder = array();
}
foreach ($arOrder as $by => $order) {
$by = strtolower($by);
$order = strtolower($order);
if ($order != "asc") {
$order = "desc";
}
if ($by == "id") {
$arSqlOrder[] = " CA.ID " . $order . " ";
} elseif ($by == "sort") {
$arSqlOrder[] = " CA.SORT " . $order . " ";
} elseif ($by == "correct") {
$arSqlOrder[] = " CA.CORRECT " . $order . " ";
} elseif ($by == "answer") {
$arSqlOrder[] = " CA.ANSWER " . $order . " ";
} elseif ($by == "rand") {
$arSqlOrder[] = CTest::GetRandFunction();
} else {
$arSqlOrder[] = " CA.ID " . $order . " ";
$by = "id";
}
}
$strSqlOrder = "";
DelDuplicateSort($arSqlOrder);
for ($i = 0; $i < count($arSqlOrder); $i++) {
if ($i == 0) {
$strSqlOrder = " ORDER BY ";
} else {
$strSqlOrder .= ",";
}
$strSqlOrder .= $arSqlOrder[$i];
}
$strSql .= $strSqlOrder;
//echo $strSql;
return $DB->Query($strSql, false, "File: " . __FILE__ . "<br>Line: " . __LINE__);
}
function GetList($arOrder = array(), $arFilter = array())
{
global $DB, $USER;
$arSqlSearch = CLTestMark::GetFilter($arFilter);
$strSqlSearch = "";
for ($i = 0; $i < count($arSqlSearch); $i++) {
if (strlen($arSqlSearch[$i]) > 0) {
$strSqlSearch .= " AND " . $arSqlSearch[$i] . " ";
}
}
$strSql = "SELECT TM.* " . "FROM b_learn_test_mark TM " . "WHERE 1=1 " . $strSqlSearch;
if (!is_array($arOrder)) {
$arOrder = array();
}
foreach ($arOrder as $by => $order) {
$by = strtolower($by);
$order = strtolower($order);
if ($order != "asc") {
$order = "desc";
}
if ($by == "id") {
$arSqlOrder[] = " TM.ID " . $order . " ";
} elseif ($by == "mark") {
$arSqlOrder[] = " TM.MARK " . $order . " ";
} elseif ($by == "score") {
$arSqlOrder[] = " TM.SCORE " . $order . " ";
} elseif ($by == "rand") {
$arSqlOrder[] = CTest::GetRandFunction();
} else {
$arSqlOrder[] = " TM.ID " . $order . " ";
$by = "id";
}
}
$strSqlOrder = "";
DelDuplicateSort($arSqlOrder);
for ($i = 0; $i < count($arSqlOrder); $i++) {
if ($i == 0) {
$strSqlOrder = " ORDER BY ";
} else {
$strSqlOrder .= ",";
}
$strSqlOrder .= $arSqlOrder[$i];
}
$strSql .= $strSqlOrder;
//echo $strSql;
return $DB->Query($strSql, false, "File: " . __FILE__ . "<br>Line: " . __LINE__);
}
