CCoursePackage::CreateQTI

function CreateQTI($arParams, $res_id = 1)
{
	global $DB;

	if ($this->LAST_ERROR <> '')
		return false;

	$str = "<"."?xml version="1.0" encoding="".$this->charset.""?".">n";
	$str .= "";

	$str .= '';
	$str .= '
'.htmlspecialcharsbx($arParams["NAME"]).'';

	if (intval($arParams["FILE_ID"]) > 0)
	{
		$arFile = CFile::GetFileArray($arParams["FILE_ID"]);
		if ($arFile)
		{
			$name = $arFile["ID"].'.'.GetFileExtension($arFile["FILE_NAME"]);
			$this->arResources[$res_id][] = Array("DB" => $arFile["ID"], "SRC"=>$arFile["SRC"],  "ID"=>$name);

			$str .= '';
			$str .= '' . htmlspecialcharsbx($arFile['DESCRIPTION']) . '';
		}
	}

	$str .= "";
	switch ($arParams["QUESTION_TYPE"])
	{
		case "M":
			$qType = 'Multiple';
			break;
		case "T":
			$qType = 'Text';
			break;
		case "R":
			$qType = 'Sort';
			break;
		default:
			$qType = 'Single';
			break;
	}
	$str .= '';

	$strSql =
	"SELECT * FROM b_learn_answer WHERE QUESTION_ID = '".intval($arParams["ID"])."' ORDER BY SORT ASC ";
	$res = $DB->Query($strSql, false, "File: ".__FILE__."
Line: ".__LINE__);


	$cond = "";
	while ($arAnwer = $res->Fetch())
	{
		if ($arAnwer["CORRECT"] == "Y")
			$cond .= 'ANS'.$arAnwer["ID"].'';
		$str .= ''.htmlspecialcharsbx($arAnwer["ANSWER"]).'';
	}


	$str .= "";

	$str .= "";
	$str .= "".$cond."".$arParams["POINT"]."";
	$str .= "";

	$str .= "";
	$str .= "";
	if ($arParams["DESCRIPTION"] <> '')
	{
		$str .= "_ReplaceImages($arParams["DESCRIPTION"], $res_id)."]]>";
	}
	$str .= "";

	$str .= "".$arParams["DESCRIPTION_TYPE"]."";
	$str .= "" . htmlspecialcharsbx($arParams["INCORRECT_MESSAGE"]) . "";
	$str .= "".$arParams["SELF"]."";
	$str .= "".$arParams["SORT"]."";
	$str .= "".$arParams["ACTIVE"]."";
	$str .= "";

	$str .= "";

	return $str;
}