export.php

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

<?
// 2012-04-18 Checked/modified for compatibility with new data model
class CCoursePackage
{
 
    var $ID;
    var $charset;
    var $LAST_ERROR = "";
    var $arCourse = Array();
    var $arSite = Array();
    var $arItems = Array();
    var $arResources = Array();
    var $RefID = 1;
    var $strItems = "";
    var $strResourses = "";
    var $arDraftFields = Array("detail_text", "preview_text", "description");
    var $arPicture = Array("detail_picture", "preview_picture", "file_id");
    var $arDate = Array("active_from", "active_to", "timestamp_x", "date_create");
    private $replacingResId;
 
    // 2012-04-18 Checked/modified for compatibility with new data model
    public function __construct($COURSE_ID)
    {
        global $DB;
        $this->ID = intval($COURSE_ID);
 
        //Course exists?
        $res = CCourse::GetByID($this->ID);
        if (!$this->arCourse = $res->Fetch())
        {
            $this->LAST_ERROR = GetMessage("LEARNING_BAD_COURSE_ID_EX");
            return false;
        }
 
        $res = CCourse::GetSite($this->ID);
        if ($arSite = $res->GetNext())
        {
            $charset = $arSite["CHARSET"];
        }
        else
        {
            $this->LAST_ERROR = GetMessage("LEARNING_BAD_SITE_ID_EX");
            return false;
        }
 
        //Define charset
        if ($charset == '')
        {
            if (defined("SITE_CHARSET") && SITE_CHARSET <> '')
                $charset = SITE_CHARSET;
            else
                $charset = "windows-1251";
        }
        $this->charset = $charset;
 
        //Get chapters, lessons, questions
        $this->_GetCourseContent($this->arCourse['LESSON_ID']);
 
        //Get tests
        $strSql =
            "SELECT T.*, ".
            $DB->DateToCharFunction("T.TIMESTAMP_X")." as TIMESTAMP_X ".
            "FROM b_learn_test T ".
            "WHERE T.COURSE_ID = ".intval($this->ID)." ".
            "ORDER BY SORT ASC ";
 
        $res = $DB->Query($strSql);
        while ($arRes= $res->Fetch())
        {
            $r = ++$this->RefID;
            $this->arItems[$r] = $this->_CreateContent("TES", $arRes, $r);
            $this->strItems .= '<item identifier="TES'.$r.'" identifierref="RES'.$r.'"><title>'.htmlspecialcharsbx($arRes["NAME"]).'</title>';
 
            $marksRes = $DB->Query(
                "SELECT * FROM b_learn_test_mark WHERE TEST_ID = '" . (string) ((int) $arRes['ID']) . "'"
                );
            while ($arMarksRes= $marksRes->Fetch())
            {
                $r = ++$this->RefID;
                $this->arItems[$r] = $this->CreateTMK($arMarksRes, $r);
                $this->strItems .= '<item identifier="TMK'.$r.'" identifierref="RES'.$r.'">'
                    . '<title>' . htmlspecialcharsbx($arMarksRes['MARK'] . ' (' . $arMarksRes['DESCRIPTION'] . ')') . '</title>'
                    . '</item>';
            }
 
            $this->strItems .= '</item>';
            $this->strResourses  .= '<resource identifier="RES'.$r.'" type="webcontent" href="res'.$r.'.xml">'.$this->_GetResourceFiles($r).'</resource>';
        }
    }
 
 
    // 2012-04-18 Checked/modified for compatibility with new data model
    function CreatePackage($PACKAGE_DIR)
    {
        if ($this->LAST_ERROR <> '')
            return false;
 
        //Add last slash
        if (mb_substr($PACKAGE_DIR, -1, 1) != "/")
            $PACKAGE_DIR .= "/";
 
        $path = $_SERVER["DOCUMENT_ROOT"].$PACKAGE_DIR;
 
        CheckDirPath($path);
 
        if (!is_dir($path) || !is_writable($path))
        {
            $this->LAST_ERROR = GetMessage("LEARNING_BAD_PACKAGE");
            return false;
        }
 
        RewriteFile($path."/res1.xml", $this->_CreateCourseToc());
        RewriteFile($path."/imsmanifest.xml", $this->CreateManifest());
 
        //XML Resource Data
        foreach ($this->arItems as $res_id => $content)
        {
            RewriteFile($path."/res".$res_id.".xml", $content);
        }
 
        //Resource
        $dbres_path = $path."/dbresources/";
        CheckDirPath($dbres_path);
 
        foreach ($this->arResources as $res_id => $arFiles)
        {
            $res_path = $path."/resources/res".$res_id."/";
 
            CheckDirPath($res_path);
            foreach ($arFiles as $arFile)
            {
                if (array_key_exists("DB", $arFile))
                {
                    $arTempFile = CFile::MakeFileArray($arFile["DB"]);
                    if($arTempFile && isset($arTempFile["tmp_name"]))
                        @copy($arTempFile["tmp_name"], $dbres_path.$arFile["ID"]);
                }
                else
                {
                    @copy($_SERVER["DOCUMENT_ROOT"].$arFile["SRC"], $res_path.$arFile["ID"]);
                }
            }
        }
 
        return true;
    }
 
 
    // 2012-04-18 Checked/modified for compatibility with new data model
    function CreateManifest()
    {
        global $DB;
 
        if ($this->LAST_ERROR <> '')
            return false;
 
        $this->createQuestionItems($this->arCourse["LESSON_ID"]);
 
        $strManifest = "<"."?xml version=\"1.0\" encoding=\"".$this->charset."\"?".">\n";
        $strManifest .= '<manifest xmlns="http://www.imsproject.org/xsd/imscp_rootv1p1p2" identifier="toc1">';
        //<Organization>
        $strManifest .= '<organizations default="man1"><organization identifier="man1" structure="hierarchical">';
        $strManifest .= '<item identifier="COR1" identifierref="RES1" parameters=""><title>'.htmlspecialcharsbx($this->arCourse["NAME"]).'</title>';
        $strManifest .= $this->strItems;
        $strManifest .= '</item>';
        $strManifest .= '</organization></organizations>';
        //<Resource>
        $strManifest .= '<resources><resource identifier="RES1" type="webcontent" href="res1.xml">'.$this->_GetResourceFiles(1).'</resource>';
        $strManifest .= $this->strResourses;
        $strManifest .= '</resources>';
        $strManifest .= '</manifest>';
 
        return $strManifest;
    }
 
    // 2012-04-18 Checked/modified for compatibility with new data model
    function _GetCourseContent($parentLessonId, $DEPTH_LEVEL = 1)
    {
        global $DB;
 
        $res = CLearnLesson::GetListOfImmediateChilds (
            $parentLessonId, 
            array(     // order
                'EDGE_SORT' => 'asc'
                )
            );
 
        while ($arRes= $res->Fetch())
        {
            $arRes['ID'] = $arRes['LESSON_ID'];     // for compatibility
 
            if ($arRes['IS_CHILDS'] == '1')
                $itemType = 'CHA';
            else
                $itemType = 'LES';
 
            if (CLearnLesson::IsPublishProhibited($arRes['LESSON_ID'], $parentLessonId))
                $arRes['META_PUBLISH_PROHIBITED'] = 'Y';
            else
                $arRes['META_PUBLISH_PROHIBITED'] = 'N';
 
            $r = ++$this->RefID;
            $this->arItems[$r] = $this->_CreateContent($itemType, $arRes, $r);
            $this->strItems .= '<item identifier="' . $itemType . $r . '" identifierref="RES'.$r.'"><title>'.htmlspecialcharsbx($arRes["NAME"]).'</title>';
            $this->strResourses  .= '<resource identifier="RES'.$r.'" type="webcontent" href="res'.$r.'.xml">'.$this->_GetResourceFiles($r).'</resource>';
 
            $this->createQuestionItems($arRes["ID"]);
 
            // Load content recursively for chapters
            if ($arRes['IS_CHILDS'] == '1')
                $this->_GetCourseContent($arRes["ID"], $DEPTH_LEVEL+1);
 
            $this->strItems .= "</item>";
        }
    }
 
 
    // 2012-04-18 Checked/modified for compatibility with new data model
    function _CreateCourseToc()
    {
        $str = "<"."?xml version=\"1.0\" encoding=\"".$this->charset."\"?".">\n";
        $str .= "<coursetoc>";
 
        foreach ($this->arCourse as $key => $val)
        {
            $strDelayed = '';
            $key = mb_strtolower($key);
 
            if ($key === 'site_id')
                continue;
 
            $str .= "<".$key.">";
            if (in_array($key, $this->arDraftFields) && $val <> '')
            {
                $str .= "<![CDATA[".$this->_ReplaceImages($val, 1)."]]>";
            }
            elseif (in_array($key, $this->arDate) && $val <> '')
            {
                $str .= MakeTimeStamp($val);
            }
            elseif (in_array($key, $this->arPicture) && $val <> '')
            {
                $src = CFile::GetPath($val);
                $ext = GetFileExtension($src);
                $this->arResources[1][] = Array("DB" => $val, "SRC"=>$src, "ID"=>$val.".".$ext);
                $str .= $val.".".$ext;
 
                $rs = CFile::GetByID($val);
                if ($arFileData = $rs->Fetch())
                {
                    $strDelayed = '<' . $key . '_description' . '>'
                        . htmlspecialcharsbx($arFileData['DESCRIPTION'])
                        . '</' . $key . '_description' . '>';
                }
            }
            else
            {
                $str .= htmlspecialcharsbx($val);
            }
            $str .= "</".$key.">\n";
            $str .= $strDelayed;
        }
 
        $str .= "</coursetoc>";
 
        return $str;
    }
 
    // 2012-04-18 Checked/modified for compatibility with new data model
    function _GetResourceFiles($res_id)
    {
        $str = "";
 
        if (is_set($this->arResources,$res_id))
            foreach ($this->arResources[$res_id] as $arFile)
            if (is_set($arFile,"DB"))
                $str .= '<file href="dbresources/'.$arFile["ID"].'" />';
            else
                $str .= '<file href="resources/res'.$res_id.'/'.$arFile["ID"].'" />';
        return $str;
    }
 
    // 2012-04-18 Checked/modified for compatibility with new data model
    function _CreateContent($TYPE, $arParams, $res_id)
    {
        $str = "<"."?xml version=\"1.0\" encoding=\"".$this->charset."\"?".">\n";
        $str .= '<content type="'.$TYPE.'">';
 
        foreach ($arParams as $key => $val)
        {
            $strDelayed = '';
 
            $key = mb_strtolower($key);
 
            if ($key === 'site_id')
                continue;
 
            $str .= "<".$key.">";
            if (in_array($key, $this->arDraftFields) && $val <> '')
            {
                $str .= "<![CDATA[".$this->_ReplaceImages($val, $res_id)."]]>";
            }
            elseif (in_array($key, $this->arPicture) && $val <> '')
            {
                $src = CFile::GetPath($val);
                $ext = GetFileExtension($src);
                $this->arResources[$res_id][] = Array("DB" => $val, "SRC"=>$src,  "ID"=>$val.".".$ext);
                $str .= $val.".".$ext;
 
                $rs = CFile::GetByID($val);
                if ($arFileData = $rs->Fetch())
                {
                    $strDelayed = '<' . $key . '_description' . '>'
                        . htmlspecialcharsbx($arFileData['DESCRIPTION'])
                        . '</' . $key . '_description' . '>';
                }
            }
            elseif (in_array($key, $this->arDate) && $val <> '')
            {
                $str .= MakeTimeStamp($val);
            }
            else
            {
                $str .= htmlspecialcharsbx($val);
            }
            $str .= "</".$key.">\n";
 
            $str .= $strDelayed;
        }
 
        $str .= "</content>";
        return $str;
    }
 
    // 2012-04-18 Checked/modified for compatibility with new data model
    function _replace_img($matches)
    {
        $src = $matches[3];
        if($src <> "" && is_file($_SERVER["DOCUMENT_ROOT"].$src))
        {
            $dest = basename($src);
            $uid = RandString(5);
 
            $res_id = 1;
            $this->arResources[$this->replacingResId][] = array("SRC"=>$src, "ID"=> $uid.".".$dest);
            return stripslashes($matches[1].$matches[2]."cid:resources/res".$this->replacingResId."/".$uid.".".$dest.$matches[4].$matches[5]);
        }
        return stripslashes($matches[0]);
    }
 
    // 2012-04-18 Checked/modified for compatibility with new data model
    function _ReplaceImages($text, $res_id)
    {
        $this->replacingResId = $res_id;
        return preg_replace_callback("/(<.+?src\\s*=\\s*)([\"']?)(.*?)(\\2)(.*?>)/is", array($this, "_replace_img"), $text);
    }
 
    private function createQuestionItems($lessonId)
    {
        global $DB;
 
        $strSql = "SELECT * FROM b_learn_question WHERE LESSON_ID=".$lessonId." ORDER BY SORT ASC ";
        $q = $DB->Query($strSql);
        while ($arQRes = $q->Fetch())
        {
            $r = ++$this->RefID;
            $this->arItems[$r] = $this->CreateQTI($arQRes, $r);
            $this->strItems .= '<item identifier="QUE'.$r.'" identifierref="RES'.$r.'"><title>'.htmlspecialcharsbx($arQRes["NAME"]).'</title></item>';
            $this->strResourses  .= '<resource identifier="RES'.$r.'" type="imsqti_xmlv1p1" href="res'.$r.'.xml">'.$this->_GetResourceFiles($r).'</resource>';
        }
    }
 
    // 2012-04-18 Checked/modified for compatibility with new data model
    function CreateQTI($arParams, $res_id = 1)
    {
        global $DB;
 
        if ($this->LAST_ERROR <> '')
            return false;
 
        $str = "<"."?xml version=\"1.0\" encoding=\"".$this->charset."\"?".">\n";
        $str .= "<questestinterop>";
 
        $str .= '<item ident="QUE'.$res_id.'">';
        $str .= '<presentation><material><mattext>'.htmlspecialcharsbx($arParams["NAME"]).'</mattext>';
 
        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 .= '<matimage imagtype="'.$arFile["CONTENT_TYPE"].'" width="'.$arFile["WIDTH"].'" height="'.$arFile["HEIGHT"].'" uri="dbresources/'.$name.'"></matimage>';
                $str .= '<image_description>' . htmlspecialcharsbx($arFile['DESCRIPTION']) . '</image_description>';
            }
        }
 
        $str .= "</material>";
        switch ($arParams["QUESTION_TYPE"])
        {
            case "M":
                $qType = 'Multiple';
                break;
            case "T":
                $qType = 'Text';
                break;
            case "R":
                $qType = 'Sort';
                break;
            default:
                $qType = 'Single';
                break;
        }
        $str .= '<response_lid ident="LID'.$res_id.'" rcardinality="'.$qType.'"><render_choice>';
 
        $strSql =
        "SELECT * FROM b_learn_answer WHERE QUESTION_ID = '".intval($arParams["ID"])."' ORDER BY SORT ASC ";
        $res = $DB->Query($strSql);
 
 
        $cond = "";
        while ($arAnwer = $res->Fetch())
        {
            if ($arAnwer["CORRECT"] == "Y")
                $cond .= '<varequal respident="LID'.$res_id.'">ANS'.$arAnwer["ID"].'</varequal>';
            $str .= '<response_label ident="ANS'.$arAnwer["ID"].'"><material><mattext>'.htmlspecialcharsbx($arAnwer["ANSWER"]).'</mattext></material></response_label>';
        }
 
 
        $str .= "</render_choice></response_lid></presentation>";
 
        $str .= "<resprocessing>";
        $str .= "<respcondition><conditionvar>".$cond."</conditionvar><setvar>".$arParams["POINT"]."</setvar></respcondition>";
        $str .= "</resprocessing>";
 
        $str .= "<bitrix>";
        $str .= "<description>";
        if ($arParams["DESCRIPTION"] <> '')
        {
            $str .= "<![CDATA[".$this->_ReplaceImages($arParams["DESCRIPTION"], $res_id)."]]>";
        }
        $str .= "</description>";
 
        $str .= "<description_type>".$arParams["DESCRIPTION_TYPE"]."</description_type>";
        $str .= "<incorrect_message>" . htmlspecialcharsbx($arParams["INCORRECT_MESSAGE"]) . "</incorrect_message>";
        $str .= "<self>".$arParams["SELF"]."</self>";
        $str .= "<sort>".$arParams["SORT"]."</sort>";
        $str .= "<active>".$arParams["ACTIVE"]."</active>";
        $str .= "</bitrix>";
 
        $str .= "</item></questestinterop>";
 
        return $str;
    }
 
    function CreateTMK($arParams, $res_id = 1)
    {
        $str = "<"."?xml version=\"1.0\" encoding=\"".$this->charset."\"?".">\n"
            . '<content type="TMK">'
            . '<score>' . (int) $arParams['SCORE'] . '</score>'
            . '<mark>' . htmlspecialcharsbx($arParams['MARK']) . '</mark>'
            . '<description>' . htmlspecialcharsbx($arParams['DESCRIPTION']) . '</description>'
            . '</content>';
        return $str;
    }
}