/**
* Paste item (tree) from clipboard or other learning module to target scorm learning module
*
* @param object $a_target_slm target scorm 2004 learning module object
* @param int $a_item_id id of item that should be pasted
* @param int $a_parent_id parent id in target tree,
* @param int $a_target predecessor target node, no ID means: last child
* @param string $a_insert_time cliboard insert time (not needed, if $a_from_cliboard is false)
* @param array $a_copied_nodes array of IDs od copied nodes, key is ID of source node, value is ID of copied node
* @param bool $a_as_copy if true, items are copied otherwise they are moved
* @param bool $a_from_clipboard if true, child node information is read from clipboard, otherwise from source tree
*/
static function pasteTree($a_target_slm, $a_item_id, $a_parent_id, $a_target, $a_insert_time, &$a_copied_nodes, $a_as_copy = false, $a_from_clipboard = true)
{
global $ilUser, $ilias, $ilLog;
// source lm id, item type and lm object
$item_slm_id = ilSCORM2004Node::_lookupSLMID($a_item_id);
$item_type = ilSCORM2004Node::_lookupType($a_item_id);
//$slm_obj = $ilias->obj_factory->getInstanceByObjId($item_slm_id);
include_once "./Modules/Scorm2004/classes/class.ilObjSCORM2004LearningModule.php";
$slm_obj = new ilObjSCORM2004LearningModule($item_slm_id, false);
if ($item_type == "chap") {
include_once "./Modules/Scorm2004/classes/class.ilSCORM2004Chapter.php";
$item = new ilSCORM2004Chapter($slm_obj, $a_item_id);
} else {
if ($item_type == "page") {
include_once "./Modules/Scorm2004/classes/class.ilSCORM2004PageNode.php";
$item = new ilSCORM2004PageNode($slm_obj, $a_item_id);
} else {
if ($item_type == "sco") {
include_once "./Modules/Scorm2004/classes/class.ilSCORM2004Sco.php";
$item = new ilSCORM2004Sco($slm_obj, $a_item_id);
} else {
if ($item_type == "ass") {
include_once "./Modules/Scorm2004/classes/class.ilSCORM2004Asset.php";
$item = new ilSCORM2004Asset($slm_obj, $a_item_id);
}
}
}
}
$ilLog->write("Getting from clipboard type " . $item_type . ", " . "Item ID: " . $a_item_id . ", of original SLM: " . $item_slm_id);
if ($item_slm_id != $a_target_slm->getId() && !$a_as_copy) {
// @todo: check whether st is NOT in tree
// "move" metadata to new lm
include_once "Services/MetaData/classes/class.ilMD.php";
$md = new ilMD($item_slm_id, $item->getId(), $item->getType());
$new_md = $md->cloneMD($a_target_slm->getId(), $item->getId(), $item->getType());
// update lm object
$item->setSLMId($a_target_slm->getId());
$item->setSLMObject($a_target_slm);
$item->update();
// delete old meta data set
$md->deleteAll();
if ($item_type == "page") {
$page = $item->getPageObject();
$page->buildDom($a_from_clipboard);
$page->setParentId($a_target_slm->getId());
$page->update();
}
}
if ($a_as_copy) {
$target_item = $item->copy($a_target_slm);
$a_copied_nodes[$item->getId()] = $target_item->getId();
} else {
$target_item = $item;
}
$ilLog->write("Putting into tree type " . $target_item->getType() . "Item ID: " . $target_item->getId() . ", Parent: " . $a_parent_id . ", " . "Target: " . $a_target . ", Item LM:" . $target_item->getContentObject()->getId());
ilSCORM2004Node::putInTree($target_item, $a_parent_id, $a_target);
if ($a_from_clipboard) {
$childs = $ilUser->getClipboardChilds($item->getId(), $a_insert_time);
} else {
// get childs of source tree
$source_tree = $slm_obj->getTree();
$childs = $source_tree->getChilds($a_item_id);
}
foreach ($childs as $child) {
$child_id = $a_from_clipboard ? $child["id"] : $child["child"];
ilSCORM2004Node::pasteTree($a_target_slm, $child_id, $target_item->getId(), IL_LAST_NODE, $a_insert_time, $a_copied_nodes, $a_as_copy);
}
return $target_item->getId();
}
/**
* Get's the repository object ID of a parent object, if possible
*
* see ilWebAccessChecker
*/
function getParentObjectIdForUsage($a_usage, $a_include_all_access_obj_ids = false)
{
if (is_int(strpos($a_usage["type"], ":"))) {
$us_arr = explode(":", $a_usage["type"]);
$type = $us_arr[1];
$cont_type = $us_arr[0];
} else {
$type = $a_usage["type"];
}
$id = $a_usage["id"];
$obj_id = false;
switch ($type) {
// RTE / tiny mce
case "html":
switch ($cont_type) {
case "qpl":
// Question Pool *Question* Text (Test)
include_once "./Modules/TestQuestionPool/classes/class.assQuestion.php";
$qinfo = assQuestion::_getQuestionInfo($id);
if ($qinfo["original_id"] > 0) {
include_once "./Modules/Test/classes/class.ilObjTest.php";
$obj_id = ilObjTest::_lookupTestObjIdForQuestionId($id);
// usage in test
} else {
$obj_id = $qinfo["obj_fi"];
// usage in pool
}
break;
case "spl":
// Question Pool *Question* Text (Survey)
include_once "./Modules/SurveyQuestionPool/classes/class.SurveyQuestion.php";
$quest = SurveyQuestion::_instanciateQuestion($id);
if ($quest) {
$parent_id = $quest->getObjId();
// pool question copy - find survey, do not use pool itself
if ($quest->getOriginalId() && ilObject::_lookupType($parent_id) == "spl") {
$obj_id = SurveyQuestion::_lookupSurveyObjId($id);
} else {
$obj_id = $parent_id;
}
unset($quest);
}
break;
case "exca":
// Exercise assignment
$returned_pk = $a_usage['id'];
// we are just checking against exercise object
include_once 'Modules/Exercise/classes/class.ilObjExercise.php';
$obj_id = ilObjExercise::lookupExerciseIdForReturnedId($returned_pk);
break;
case "frm":
// Forum
$post_pk = $a_usage['id'];
include_once 'Modules/Forum/classes/class.ilForumPost.php';
include_once 'Modules/Forum/classes/class.ilForum.php';
$oPost = new ilForumPost($post_pk);
$frm_pk = $oPost->getForumId();
$obj_id = ilForum::_lookupObjIdForForumId($frm_pk);
break;
// temporary items (per user)
// temporary items (per user)
case "frm~":
case "exca~":
$obj_id = $a_usage['id'];
break;
// "old" category pages
// "old" category pages
case "cat":
// InfoScreen Text
// InfoScreen Text
case "tst":
case "svy":
// data collection
// data collection
case "dcl":
$obj_id = $id;
break;
}
break;
// page editor
// page editor
case "pg":
switch ($cont_type) {
// question feedback // parent obj id is q id
case "qfbg":
include_once './Services/COPage/classes/class.ilPageObject.php';
$id = ilPageObject::lookupParentId($id, 'qfbg');
// note: no break here, we only altered the $id to the question id
// note: no break here, we only altered the $id to the question id
case "qpl":
// Question Pool Question Pages
include_once "./Modules/TestQuestionPool/classes/class.assQuestion.php";
$qinfo = assQuestion::_getQuestionInfo($id);
if ($qinfo["original_id"] > 0) {
include_once "./Modules/Test/classes/class.ilObjTest.php";
$obj_id = ilObjTest::_lookupTestObjIdForQuestionId($id);
// usage in test
} else {
$obj_id = $qinfo["obj_fi"];
// usage in pool
}
if ($obj_id == 0) {
include_once "./Services/COPage/classes/class.ilPCQuestion.php";
$pinfo = ilPCQuestion::_getPageForQuestionId($id, "lm");
if ($pinfo && $pinfo["parent_type"] == "lm") {
include_once "./Modules/LearningModule/classes/class.ilLMObject.php";
$obj_id = ilLMObject::_lookupContObjID($pinfo["page_id"]);
}
$pinfo = ilPCQuestion::_getPageForQuestionId($id, "sahs");
if ($pinfo && $pinfo["parent_type"] == "sahs") {
include_once "./Modules/SCORM2004/classes/class.ilSCORM2004Node.php";
$obj_id = ilSCORM2004Node::_lookupSLMID($pinfo["page_id"]);
}
}
break;
case "lm":
case "dbk":
// learning modules
include_once "./Modules/LearningModule/classes/class.ilLMObject.php";
$obj_id = ilLMObject::_lookupContObjID($id);
break;
case "gdf":
// glossary definition
include_once "./Modules/Glossary/classes/class.ilGlossaryDefinition.php";
include_once "./Modules/Glossary/classes/class.ilGlossaryTerm.php";
$term_id = ilGlossaryDefinition::_lookupTermId($id);
$obj_id = ilGlossaryTerm::_lookGlossaryID($term_id);
break;
case "wpg":
// wiki page
include_once 'Modules/Wiki/classes/class.ilWikiPage.php';
$obj_id = ilWikiPage::lookupObjIdByPage($id);
break;
case "sahs":
// sahs page
// can this implementation be used for other content types, too?
include_once './Services/COPage/classes/class.ilPageObject.php';
$obj_id = ilPageObject::lookupParentId($id, 'sahs');
break;
case "prtf":
// portfolio
include_once "Modules/Portfolio/classes/class.ilPortfolioPage.php";
$obj_id = ilPortfolioPage::findPortfolioForPage($id);
break;
case "prtt":
// portfolio template
include_once "Modules/Portfolio/classes/class.ilPortfolioTemplatePage.php";
$obj_id = ilPortfolioTemplatePage::findPortfolioForPage($id);
break;
case "blp":
// blog
include_once './Services/COPage/classes/class.ilPageObject.php';
$obj_id = ilPageObject::lookupParentId($id, 'blp');
break;
case "impr":
// imprint page - always id 1
// fallthrough
// imprint page - always id 1
// fallthrough
case "crs":
case "grp":
case "cat":
case "fold":
case "root":
case "cont":
case "cstr":
// repository pages
$obj_id = $id;
break;
}
break;
// Media Pool
// Media Pool
case "mep":
$obj_id = $id;
break;
// News Context Object (e.g. MediaCast)
// News Context Object (e.g. MediaCast)
case "news":
include_once "./Services/News/classes/class.ilNewsItem.php";
$obj_id = ilNewsItem::_lookupContextObjId($id);
break;
}
return $obj_id;
}
