attempt.php

См. документацию.

<?php

global $USER_FIELD_MANAGER;
 
abstract class CAllTestAttempt
{
    public function CheckFields(&$arFields, $ID = false, $bCheckRights = true)
    {
        global $DB, $APPLICATION;
 
        if ($ID===false && !is_set($arFields, "TEST_ID"))
        {
            $APPLICATION->ThrowException(GetMessage("LEARNING_BAD_TEST_ID"), "EMPTY_TEST_ID");
            return false;
        }
        elseif (is_set($arFields, "TEST_ID"))
        {
            if ($bCheckRights)
                $r = CTest::GetByID($arFields["TEST_ID"]);
            else
            {
                $r = CTest::getList(
                    array(),
                    array(
                        'ID'                => $arFields['TEST_ID'],
                        'CHECK_PERMISSIONS' => 'N'
                    )
                );
            }
 
            if(!$r->Fetch())
            {
                $APPLICATION->ThrowException(GetMessage("LEARNING_BAD_TEST_ID_EX"), "ERROR_NO_TEST_ID");
                return false;
            }
        }
 
        if ($ID===false && !is_set($arFields, "STUDENT_ID"))
        {
            $APPLICATION->ThrowException(GetMessage("LEARNING_BAD_USER_ID"), "EMPTY_STUDENT_ID");
            return false;
        }
        elseif (is_set($arFields, "STUDENT_ID"))
        {
            $dbResult = CUser::GetByID($arFields["STUDENT_ID"]);
            if (!$dbResult->Fetch())
            {
                $APPLICATION->ThrowException(GetMessage("LEARNING_BAD_USER_ID_EX"), "ERROR_NO_STUDENT_ID");
                return false;
            }
        }
 
        if (is_set($arFields, "DATE_START") &&  (!$DB->IsDate($arFields["DATE_START"], false, LANG, "FULL")))
        {
            $APPLICATION->ThrowException(GetMessage("LEARNING_BAD_DATE_START"), "ERROR_DATE_START");
            return false;
        }
 
        if (is_set($arFields, "DATE_END") && $arFields["DATE_END"] <> '' && (!$DB->IsDate($arFields["DATE_END"], false, LANG, "FULL")))
        {
            $APPLICATION->ThrowException(GetMessage("LEARNING_BAD_DATE_END"), "ERROR_DATE_END");
            return false;
        }
 
        //Defaults
        if (is_set($arFields, "STATUS") && !in_array($arFields["STATUS"], Array("B", "D", "F", "N")))
            $arFields["STATUS"] = "B";
 
        if (is_set($arFields, "COMPLETED") && $arFields["COMPLETED"] != "Y")
            $arFields["COMPLETED"] = "N";
 
        return true;
    }
 
 
    public function Add($arFields)
    {
        global $DB, $USER_FIELD_MANAGER;
 
        if(CTestAttempt::CheckFields($arFields) && $USER_FIELD_MANAGER->CheckFields("LEARN_ATTEMPT", 0, $arFields))
        {
            unset($arFields["ID"]);
 
            //$ID = $DB->Add("b_learn_attempt", $arFields, Array(""), "learning");
 
            $arInsert = $DB->PrepareInsert("b_learn_attempt", $arFields, "learning");
 
            $ID = CTestAttempt::DoInsert($arInsert, $arFields);
 
            CGradeBook::RecountAttempts($arFields["STUDENT_ID"], $arFields["TEST_ID"]);
 
            if ($ID)
            {
                $USER_FIELD_MANAGER->Update("LEARN_ATTEMPT", $ID, $arFields);
            }
 
            return $ID;
        }
 
        return false;
    }
 
 
    public function Update($ID, $arFields, $arParams = array())
    {
        global $DB, $USER_FIELD_MANAGER;
 
        $ID = intval($ID);
        if ($ID < 1) return false;
 
        $bCheckRights = true;
        if (isset($arParams['CHECK_PERMISSIONS']) && ($arParams['CHECK_PERMISSIONS'] === 'N'))
            $bCheckRights = false;
 
        if ($this->CheckFields($arFields, $ID, $bCheckRights) && $USER_FIELD_MANAGER->CheckFields("LEARN_ATTEMPT", 0, $arFields))
        {
            unset($arFields["ID"]);
            unset($arFields["TEST_ID"]);
 
            $arBinds=Array(
                //""=>$arFields[""]
            );
 
            $strUpdate = $DB->PrepareUpdate("b_learn_attempt", $arFields, "learning");
            $strSql = "UPDATE b_learn_attempt SET ".$strUpdate." WHERE ID=".$ID;
            $DB->QueryBind($strSql, $arBinds);
 
            $USER_FIELD_MANAGER->Update("LEARN_ATTEMPT", $ID, $arFields);
 
            return true;
        }
 
        return false;
    }
 
 
    public static function Delete($ID)
    {
        global $DB, $USER_FIELD_MANAGER;
 
        $ID = intval($ID);
        if ($ID < 1) return false;
 
        //Results
        $strSql = "DELETE FROM b_learn_test_result WHERE ATTEMPT_ID = ".$ID;
        if (!$DB->Query($strSql))
            return false;
 
        //Attempt
        $strSql = "DELETE FROM b_learn_attempt WHERE ID = ".$ID;
        if (!$DB->Query($strSql))
            return false;
 
        $USER_FIELD_MANAGER->Delete("LEARN_ATTEMPT", $ID);
 
        return true;
    }
 
 
    public static function GetFilter($arFilter)
    {
 
        if (!is_array($arFilter))
            $arFilter = Array();
 
        $arSqlSearch = Array();
 
        foreach ($arFilter as $key => $val)
        {
            $res = CLearnHelper::MkOperationFilter($key);
            $key = $res["FIELD"];
            $cOperationType = $res["OPERATION"];
 
            $key = mb_strtoupper($key);
 
            switch ($key)
            {
                case "ID":
                case "TEST_ID":
                case "STUDENT_ID":
                case "SCORE":
                case "MAX_SCORE":
                case "QUESTIONS":
                    $arSqlSearch[] = CLearnHelper::FilterCreate("A.".$key, $val, "number", $bFullJoin, $cOperationType);
                    break;
 
                case "SPEED":
                    $arSqlSearch[] = CLearnHelper::FilterCreate(self::getSpeedFieldSql(), $val, "number", $bFullJoin, $cOperationType);
                    break;
 
                case "STATUS":
                case "COMPLETED":
                    $arSqlSearch[] = CLearnHelper::FilterCreate("A.".$key, $val, "string_equal", $bFullJoin, $cOperationType);
                    break;
 
                case "DATE_START":
                case "DATE_END":
                    $arSqlSearch[] = CLearnHelper::FilterCreate("A.".$key, $val, "date", $bFullJoin, $cOperationType);
                    break;
 
                case "USER":
                    $arSqlSearch[] = GetFilterQuery("U.ID, U.LOGIN, U.NAME, U.LAST_NAME",$val);
                    break;
 
                case "USER_LOGIN":
                    $arSqlSearch[] = CLearnHelper::FilterCreate("U.LOGIN", $val, "string_equal", $bFullJoin, $cOperationType);
                    break;
 
                case "USER_NAME":
                    $arSqlSearch[] = CLearnHelper::FilterCreate("U.NAME", $val, "string_equal", $bFullJoin, $cOperationType);
                    break;
 
                case "USER_LAST_NAME":
                    $arSqlSearch[] = CLearnHelper::FilterCreate("U.LAST_NAME", $val, "string_equal", $bFullJoin, $cOperationType);
                    break;
            }
        }
 
        return $arSqlSearch;
    }
 
 
    public static function GetByID($ID)
    {
        if ((int) $ID > 0)
            return CTestAttempt::GetList(array(), array("ID" => (int) $ID));
        else
            return (new CDBResult());
    }
 
 
    public static function GetCount($TEST_ID, $STUDENT_ID)
    {
        global $DB;
 
        $strSql =
        "SELECT COUNT(*) as C ".
        "FROM b_learn_attempt A ".
        "WHERE A.TEST_ID = '".intval($TEST_ID)."' AND A.STUDENT_ID = '".intval($STUDENT_ID)."'";
 
        $res = $DB->Query($strSql);
        $res_cnt = $res->Fetch();
 
        return intval($res_cnt["C"]);
    }
 
 
    public static function IsTestCompleted($ATTEMPT_ID, $PERCENT)
    {
        global $DB;
 
        $strSql =
        "SELECT * ".
        "FROM b_learn_test_result TR, b_learn_question Q ".
        "WHERE TR.QUESTION_ID = Q.ID AND TR.CORRECT = 'N' AND Q.CORRECT_REQUIRED = 'Y' AND TR.ATTEMPT_ID = '".intval($ATTEMPT_ID)."'";
 
        if (!$res = $DB->Query($strSql))
            return false;
 
        if ($arStat = $res->Fetch())
            return false;
 
        $strSql =
        "SELECT SUM(Q.POINT) as CNT_ALL, SUM(CASE WHEN TR.CORRECT = 'Y' THEN TR.POINT ELSE 0 END) as CNT_RIGHT ".
        "FROM b_learn_test_result TR, b_learn_question Q ".
        "WHERE TR.ATTEMPT_ID = '".intval($ATTEMPT_ID)."' AND TR.QUESTION_ID = Q.ID";
 
        if (!$res = $DB->Query($strSql))
            return false;
 
        if (!$arStat = $res->Fetch())
            return false;
 
        if($arStat["CNT_RIGHT"]<=0 || $arStat["CNT_ALL"] == 0)
            return false;
 
        // Do some magic due to IEEE 754
        $epsilon = 0.001;
 
        $scoreForSuccess = (float) ((int) $PERCENT);
        $userScore       = round( ($arStat["CNT_RIGHT"] / $arStat["CNT_ALL"]) * 100, 2);
 
        $delta = abs($userScore - $scoreForSuccess);
 
        $isTestComplete = false;
        if ($userScore > $scoreForSuccess)
            $isTestComplete = true;
        elseif ($delta < $epsilon)      // it means, that $userScore == $scoreForSuccess
            $isTestComplete = true;
 
        return ($isTestComplete);
    }
 
 
    public static function OnAttemptChange($ATTEMPT_ID, $bCOMPLETED = false)
    {
        global $DB;
 
        $ATTEMPT_ID = intval($ATTEMPT_ID);
 
        if ($ATTEMPT_ID < 1)
            return false;
 
        $strSql = "SELECT A.*, T.APPROVED, T.COMPLETED_SCORE, T.COURSE_ID ".
        "FROM b_learn_attempt A ".
        "INNER JOIN b_learn_test T ON A.TEST_ID = T.ID ".
        "WHERE A.ID = '".$ATTEMPT_ID."' AND A.STATUS = 'F' ";
        $res = $DB->Query($strSql);
        if (!$arAttempt = $res->Fetch())
            return false;
 
 
        $COMPLETED = "N";
        if (
            $arAttempt["APPROVED"] == "Y" &&
            intval($arAttempt["COMPLETED_SCORE"])>0 &&
            CTestAttempt::IsTestCompleted($ATTEMPT_ID,$arAttempt["COMPLETED_SCORE"])
        )
            $COMPLETED = "Y";
 
        if ($bCOMPLETED)
            $COMPLETED = "Y";
 
        $strSql =
        "UPDATE b_learn_attempt SET COMPLETED = '".$COMPLETED."' ".
        "WHERE ID = '".$ATTEMPT_ID."'";
 
        if (!$res = $DB->Query($strSql))
            return false;
 
        $strSql = "SELECT * FROM b_learn_gradebook WHERE STUDENT_ID='".$arAttempt["STUDENT_ID"]."' AND TEST_ID='".$arAttempt["TEST_ID"]."'";
        $res = $DB->Query($strSql);
        if (!$arGradeBook = $res->Fetch())
        {
            $arFields = Array(
                    "STUDENT_ID" => $arAttempt["STUDENT_ID"],
                    "TEST_ID" => $arAttempt["TEST_ID"],
                    "RESULT" => $arAttempt["SCORE"],
                    "MAX_RESULT" => intval($arAttempt["MAX_SCORE"]),
                    "COMPLETED" => $COMPLETED,
            );
 
            $at = new CGradeBook;
 
            if (!$res = $at->Add($arFields))
                return false;
 
            CCertification::Certificate($arAttempt["STUDENT_ID"], $arAttempt["COURSE_ID"]);
        }
        else
        {
            $strSql =
            "SELECT A.SCORE, A.MAX_SCORE FROM b_learn_attempt A ".
            "WHERE A.STUDENT_ID = '".$arAttempt["STUDENT_ID"]."' AND A.TEST_ID = '".$arAttempt["TEST_ID"]."'  ORDER BY COMPLETED DESC, SCORE DESC";
            //AND A.COMPLETED = 'Y'
            $res = $DB->Query($strSql);
            if (!$arMaxScore = $res->Fetch())
                return false;
 
            if ($arGradeBook["COMPLETED"] == "Y")
                $COMPLETED = "Y";
 
            $strSql =
                "UPDATE b_learn_gradebook SET RESULT = '".intval($arMaxScore["SCORE"])."', MAX_RESULT = '".intval($arMaxScore["MAX_SCORE"])."',COMPLETED = '".$COMPLETED."' ".
                "WHERE ID = '".$arGradeBook["ID"]."'";
 
            if (!$res = $DB->Query($strSql))
                return false;
 
            CCertification::Certificate($arAttempt["STUDENT_ID"], $arAttempt["COURSE_ID"]);
        }
 
        return true;
    }
 
 
    public function AttemptFinished($ATTEMPT_ID)
    {
        global $DB;
 
        $ATTEMPT_ID = intval($ATTEMPT_ID);
 
        if ($ATTEMPT_ID < 1)
            return false;
 
        $strSql =
        "SELECT SUM(TR.POINT) as SCORE, SUM(Q.POINT) MAX_SCORE ".
        "FROM b_learn_test_result TR ".
        "INNER JOIN b_learn_question Q ON TR.QUESTION_ID = Q.ID ".
        "WHERE ATTEMPT_ID = '".$ATTEMPT_ID."' ";
 
        $res = $DB->Query($strSql);
        if (!$ar = $res->Fetch())
            return false;
 
        $res = $this->Update($ATTEMPT_ID,
            array(
                "SCORE" => $ar["SCORE"],
                "MAX_SCORE" => $ar["MAX_SCORE"],
                "STATUS"=>"F",
                "~DATE_END"=>CDatabase::CurrentTimeFunction(),
            )
        );
 
        foreach(GetModuleEvents('learning', 'OnAfterAttemptFinished', true) as $arEvent)
            ExecuteModuleEventEx($arEvent, array($ATTEMPT_ID));
 
        if($res)
            return CTestAttempt::OnAttemptChange($ATTEMPT_ID);
        else
            return false;
    }
 
 
    public static function RecountQuestions($ATTEMPT_ID)
    {
        global $DB;
 
        $ATTEMPT_ID = intval($ATTEMPT_ID);
 
        if ($ATTEMPT_ID < 1)
            return false;
 
        $strSql = "SELECT COUNT(*) CNT, SUM(TR.POINT) CNT_SUM, SUM(Q.POINT) MAX_POINT ".
                    "FROM b_learn_test_result TR ".
                    "INNER JOIN b_learn_question Q ON TR.QUESTION_ID = Q.ID ".
                    "WHERE TR.ATTEMPT_ID = ".$ATTEMPT_ID;
        $res = $DB->Query($strSql);
        if (!$ar = $res->Fetch())
            return false;
 
        $strSql = "UPDATE b_learn_attempt SET QUESTIONS = '".intval($ar["CNT"])."', SCORE = '".intval($ar["CNT_SUM"])."', MAX_SCORE = '".intval($ar["MAX_POINT"])."' WHERE ID = ".$ATTEMPT_ID;
        if (!$DB->Query($strSql))
            return false;
 
        return true;
    }
 
 
    public static function IsTestFailed($ATTEMPT_ID, $PERCENT)
    {
        global $DB;
 
        $strSql =
        "SELECT * ".
        "FROM b_learn_test_result TR, b_learn_question Q ".
        "WHERE TR.QUESTION_ID = Q.ID AND TR.CORRECT = 'N' AND TR.ANSWERED = 'Y' AND Q.CORRECT_REQUIRED = 'Y' AND TR.ATTEMPT_ID = '".intval($ATTEMPT_ID)."'";
 
 
        if (!$res = $DB->Query($strSql))
            return true;
 
        if ($arStat = $res->Fetch())
            return true;
 
        $strSql =
        "SELECT SUM(Q.POINT) as CNT_ALL, SUM(CASE WHEN TR.CORRECT = 'N' AND TR.ANSWERED = 'Y' THEN Q.POINT ELSE 0 END) as CNT_WRONG ".
        "FROM b_learn_test_result TR, b_learn_question Q ".
        "WHERE TR.ATTEMPT_ID = '".intval($ATTEMPT_ID)."' AND TR.QUESTION_ID = Q.ID";
 
        if (!$res = $DB->Query($strSql))
            return true;
 
        if (!$arStat = $res->Fetch())
            return true;
 
        if($arStat["CNT_ALL"] == 0)
        {
            return true;
        }
        elseif ($arStat["CNT_WRONG"]==0)
        {
            return false;
        }
 
 
 
        // Do some work due to IEEE 754
        $epsilon = 0.001;
 
        $cntNotFailed = $arStat["CNT_ALL"] - $arStat["CNT_WRONG"];
 
        $scoreForSuccess = (float) ((int) $PERCENT);
        $userScore       = round( ($cntNotFailed / $arStat["CNT_ALL"]) * 100, 2);
 
        $delta = abs($userScore - $scoreForSuccess);
 
        $isTestFailed = true;
        if ($userScore > $scoreForSuccess)
            $isTestFailed = false;
        elseif ($delta < $epsilon)      // it means, that $userScore == $scoreForSuccess
            $isTestFailed = false;
 
        return ($isTestFailed);
    }
 
 
    public static function GetList($arOrder=array(), $arFilter=array(), $arSelect = array(), $arNavParams = array())
    {
        global $DB, $USER, $USER_FIELD_MANAGER;
 
        $obUserFieldsSql = new CUserTypeSQL;
        $obUserFieldsSql->SetEntity("LEARN_ATTEMPT", "A.ID");
        $obUserFieldsSql->SetSelect($arSelect);
        $obUserFieldsSql->SetFilter($arFilter);
        $obUserFieldsSql->SetOrder($arOrder);
 
        $arFields = array(
            "ID" => "A.ID",
            "TEST_ID" => "A.TEST_ID",
            "OBY_DATE_END" => "A.DATE_END",
            "STUDENT_ID" => "A.STUDENT_ID",
            "DATE_START" => $DB->DateToCharFunction("A.DATE_START", "FULL"),
            "DATE_END" => $DB->DateToCharFunction("A.DATE_END", "FULL"),
            "STATUS" => "A.STATUS",
            "COMPLETED" =>  "A.COMPLETED",
            "SCORE" => "A.SCORE",
            "MAX_SCORE" => "A.MAX_SCORE",
            "QUESTIONS" => "A.QUESTIONS",
            "TEST_NAME" => "T.NAME",
            "USER_NAME" => $DB->Concat("'('",'U.LOGIN',"') '","CASE WHEN U.NAME IS NULL THEN '' ELSE U.NAME END","' '", "CASE WHEN U.LAST_NAME IS NULL THEN '' ELSE U.LAST_NAME END"),
            "USER_ID" => "U.ID",
            "MARK" => "TM.MARK",
            "MESSAGE" => "TM.DESCRIPTION",
            "LINKED_LESSON_ID" => "C.LINKED_LESSON_ID",
            "COURSE_ID" => "C.ID",
            "SPEED" => self::getSpeedFieldSql()
        );
 
        if (count($arSelect) <= 0 || in_array("*", $arSelect))
            $arSelect = array_keys($arFields);
 
        $arSqlSelect = array();
        foreach($arSelect as $field)
        {
            $field = mb_strtoupper($field);
            if(array_key_exists($field, $arFields))
                $arSqlSelect[$field] = $arFields[$field]." AS ".$field;
        }
 
        $sSelect = implode(",\n", $arSqlSelect);
 
        if (!is_array($arFilter))
            $arFilter = Array();
 
        $arSqlSearch = CTestAttempt::GetFilter($arFilter);
 
        $strSqlSearch = "";
        $arSqlSearchCnt = count($arSqlSearch);
        for($i=0; $i<$arSqlSearchCnt; $i++)
            if($arSqlSearch[$i] <> '')
                $strSqlSearch .= " AND ".$arSqlSearch[$i]." ";
 
        $r = $obUserFieldsSql->GetFilter();
        if($r <> '')
            $strSqlSearch .= " AND (".$r.") ";
 
        $bCheckPerm = 'ORPHANED VAR';
 
        $strSqlFrom = '';
        $strSql = static::_GetListSQLFormer($sSelect, $obUserFieldsSql, $bCheckPerm, $USER, $arFilter, $strSqlSearch, $strSqlFrom);
 
        if (!is_array($arOrder))
            $arOrder = Array();
 
        $arSqlOrder = [];
        foreach($arOrder as $by=>$order)
        {
            $by = mb_strtolower($by);
            $order = mb_strtolower($order);
            if ($order!="asc")
                $order = "desc";
 
            if ($by == "id")
                $arSqlOrder[] = " A.ID ".$order." ";
            elseif ($by == "test_id")
                $arSqlOrder[] = " A.TEST_ID ".$order." ";
            elseif ($by == "student_id")
                $arSqlOrder[] = " A.STUDENT_ID ".$order." ";
            elseif ($by == "date_start")
                $arSqlOrder[] = " A.DATE_START ".$order." ";
            elseif ($by == "date_end")
                $arSqlOrder[] = " A.DATE_END ".$order." ";
            elseif ($by == "status")
                $arSqlOrder[] = " A.STATUS ".$order." ";
            elseif ($by == "score")
                $arSqlOrder[] = " A.SCORE ".$order." ";
            elseif ($by == "max_score")
                $arSqlOrder[] = " A.MAX_SCORE ".$order." ";
            elseif ($by == "completed")
                $arSqlOrder[] = " A.COMPLETED ".$order." ";
            elseif ($by == "questions")
                $arSqlOrder[] = " A.QUESTIONS ".$order." ";
            elseif ($by == "user_name")
                $arSqlOrder[] = " USER_NAME ".$order." ";
            elseif ($by == "test_name")
                $arSqlOrder[] = " TEST_NAME ".$order." ";
            elseif ($by == "speed")
                $arSqlOrder[] = " SPEED ".$order." ";
            elseif ($s = $obUserFieldsSql->GetOrder($by))
                $arSqlOrder[$by] = " ".$s." ".$order." ";
            else
                $arSqlOrder[] = " A.ID ".$order." ";
        }
 
        $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 ( ! empty($arNavParams) )
        {
            $nTopCount = null;
            if (isset($arNavParams['NAV_PARAMS']['nPageTop']) && ($arNavParams['NAV_PARAMS']['nPageTop'] > 0))
                $nTopCount = (int) $arNavParams['NAV_PARAMS']['nPageTop'];
            else if (isset($arNavParams['nPageTop']))
                $nTopCount = (int) $arNavParams['nPageTop'];
            else if (isset($arNavParams['nTopCount']))
                $nTopCount = (int) $arNavParams['nTopCount'];
            else
            {
                $res_cnt = $DB->Query("SELECT COUNT(A.ID) as C " . $strSqlFrom);
                $res_cnt = $res_cnt->fetch();
                $res = new CDBResult();
                $res->NavQuery($strSql, $res_cnt['C'], $arNavParams);
                $res->SetUserFields($USER_FIELD_MANAGER->GetUserFields("LEARN_ATTEMPT"));
            }
 
            if ($nTopCount !== null)
            {
                $strSql = $DB->TopSql($strSql, $nTopCount);
                $res = $DB->Query($strSql);
                $res->SetUserFields($USER_FIELD_MANAGER->GetUserFields("LEARN_ATTEMPT"));
            }
        }
        else
        {
            $res = $DB->Query($strSql);
            $res->SetUserFields($USER_FIELD_MANAGER->GetUserFields("LEARN_ATTEMPT"));
        }
 
 
        return $res;
    }
 
    private static function getSpeedFieldSql()
    {
        return "round((unix_timestamp(coalesce(A.DATE_END, A.DATE_START))-unix_timestamp(A.DATE_START)) / (case when A.QUESTIONS > 0 then A.QUESTIONS else 1 end))";
    }
 
    public static function CreateAttemptQuestions($ATTEMPT_ID)
    {
        global $APPLICATION, $DB;
 
        $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))
            return false;

 
        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")   // X questions from every lessons from every chapter in the course
            {
                $strSql =
                "SELECT Q.ID as QUESTION_ID, TLEUP.SOURCE_NODE as FROM_ID
                FROM b_learn_lesson L
                INNER JOIN b_learn_question Q ON L.ID = Q.LESSON_ID
                INNER JOIN b_learn_lesson_edges TLEUP ON L.ID = TLEUP.TARGET_NODE
                LEFT OUTER JOIN b_learn_lesson_edges TLEDOWN ON L.ID = TLEDOWN.SOURCE_NODE "
                . "WHERE L.ID IN (" . $clauseAllChildsLessons . ") \n"      // only lessons from COURSE_ID = $arTest['COURSE_ID']
                . " AND TLEDOWN.SOURCE_NODE IS NULL \n"                     // exclude lessons, contains other lessons ("chapters")
 
                    // include lessons in current course tree context only (and exclude immediate childs of course)
                . " AND TLEUP.SOURCE_NODE IN (" . $clauseAllChildsLessons . ") \n"
 
                . " AND Q.ACTIVE = 'Y' "        // active questions only
                . ($arTest["INCLUDE_SELF_TEST"] != "Y" ? "AND Q.SELF = 'N' " : "")
                . "ORDER BY ".($arTest["RANDOM_QUESTIONS"] == "Y" ? CTest::GetRandFunction() : "L.SORT, Q.SORT, L.ID");
            }
            else    // 'L' X questions from every lesson in course
            {
                $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, L.ID");
            }
 
            if (!$res = $DB->Query($strSql))
                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))
                {
                    $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")
            {
                $APPLICATION->ThrowException(GetMessage("LEARNING_BAD_TEST_IS_EMPTY"), "ERROR_TEST_IS_EMPTY");
                return false;
            }
            elseif ($arTest["QUESTIONS_FROM"] == '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)
            {
                $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') // 'S' - all questions from the selected lesson (unilesson_id in QUESTIONS_FROM_ID)
            {
                $clauseAllChildsLessons = $arTest["QUESTIONS_FROM_ID"] + 0;
                $WHERE = " (L.ID IN(" . $clauseAllChildsLessons . ") OR (L.ID = " . ($arTest['QUESTIONS_FROM_ID'] + 0) . ")) ";
            }
            else
            {
                return (false);
            }
 
            $strSql =
            "SELECT Q.ID AS QUESTION_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() : "L.SORT, Q.SORT, L.ID ").
            ($arTest["QUESTIONS_AMOUNT"] > 0 ? "LIMIT ".$arTest["QUESTIONS_AMOUNT"] :"");
 
            $success = false;
            $rsQuestions = $DB->Query($strSql);
 
            $strSql = '';
            if ($rsQuestions)
            {
                $arSqlSubstrings = array();
                while ($arQuestion = $rsQuestions->fetch())
                    $arSqlSubstrings[] = "(" . $ATTEMPT_ID . ", " . $arQuestion['QUESTION_ID'] . ")";
 
                if ( ! empty($arSqlSubstrings) )
                    $strSql = "INSERT INTO b_learn_test_result (ATTEMPT_ID, QUESTION_ID) VALUES " . implode(",\n", $arSqlSubstrings);
 
                if ($strSql !== '')
                {
                    $rc = $DB->Query($strSql);
                    if ($rc && intval($rc->AffectedRowsCount()) > 0)
                        $success = true;
                }
            }
 
            if ( ! $success )
            {
                $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 =
            "SELECT Q.ID AS QUESTION_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() : "L.SORT, Q.SORT, L.ID ").
            ($arTest["QUESTIONS_AMOUNT"] > 0 ? "LIMIT " . ($arTest["QUESTIONS_AMOUNT"] + 0) : "");
 
 
            $success = false;
            $rsQuestions = $DB->Query($strSql);
 
            $strSql = '';
            if ($rsQuestions)
            {
                $arSqlSubstrings = array();
                while ($arQuestion = $rsQuestions->fetch())
                    $arSqlSubstrings[] = "(" . $ATTEMPT_ID . ", " . $arQuestion['QUESTION_ID'] . ")";
 
                if ( ! empty($arSqlSubstrings) )
                    $strSql = "INSERT INTO b_learn_test_result (ATTEMPT_ID, QUESTION_ID) VALUES " . implode(",\n", $arSqlSubstrings);
 
                if ($strSql !== '')
                {
                    $rc = $DB->Query($strSql);
                    if ($rc && intval($rc->AffectedRowsCount()) > 0)
                        $success = true;
                }
            }
 
            if ( ! $success )
            {
                $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);
 
        return true;
    }
}