survey/classes/class.ilObjSurveyQuestionPool.php

Go to the documentation of this file.

<?php
/*
        +-----------------------------------------------------------------------------+
        | ILIAS open source                                                           |
        +-----------------------------------------------------------------------------+
        | Copyright (c) 1998-2001 ILIAS open source, University of Cologne            |
        |                                                                             |
        | This program is free software; you can redistribute it and/or               |
        | modify it under the terms of the GNU General Public License                 |
        | as published by the Free Software Foundation; either version 2              |
        | of the License, or (at your option) any later version.                      |
        |                                                                             |
        | This program is distributed in the hope that it will be useful,             |
        | but WITHOUT ANY WARRANTY; without even the implied warranty of              |
        | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               |
        | GNU General Public License for more details.                                |
        |                                                                             |
        | You should have received a copy of the GNU General Public License           |
        | along with this program; if not, write to the Free Software                 |
        | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA. |
        +-----------------------------------------------------------------------------+
*/

require_once "./classes/class.ilObjectGUI.php";
//require_once "./classes/class.ilMetaData.php";
require_once "./survey/classes/class.SurveyNominalQuestion.php";
require_once "./survey/classes/class.SurveyTextQuestion.php";
require_once "./survey/classes/class.SurveyMetricQuestion.php";
require_once "./survey/classes/class.SurveyOrdinalQuestion.php";
require_once "./survey/classes/class.SurveyQuestion.php";

class ilObjSurveyQuestionPool extends ilObject
{
        function ilObjSurveyQuestionPool($a_id = 0,$a_call_by_reference = true)
        {
                $this->type = "spl";
                $this->ilObject($a_id,$a_call_by_reference);
/*
                if ($a_id == 0)
                {
                        $new_meta =& new ilMetaData();
                        $this->assignMetaData($new_meta);
                }
*/
        }

        function create($a_upload = false)
        {
                parent::create();
                $this->createMetaData();
/*
                if (!$a_upload)
                {
                        $this->meta_data->setId($this->getId());
                        $this->meta_data->setType($this->getType());
                        $this->meta_data->setTitle($this->getTitle());
                        $this->meta_data->setDescription($this->getDescription());
                        $this->meta_data->setObject($this);
                        $this->meta_data->create();
                }
*/
        }

        function update()
        {
                $this->updateMetaData();
                if (!parent::update())
                {
                        return false;
                }

                // put here object specific stuff

                return true;
        }

        function read($a_force_db = false)
        {
                parent::read($a_force_db);
//              $this->meta_data =& new ilMetaData($this->getType(), $this->getId());
        }

        function ilClone($a_parent_ref)
        {               
                global $rbacadmin;

                // always call parent ilClone function first!!
                $new_ref_id = parent::ilClone($a_parent_ref);
                
                // get object instance of ilCloned object
                //$newObj =& $this->ilias->obj_factory->getInstanceByRefId($new_ref_id);

                // create a local role folder & default roles
                //$roles = $newObj->initDefaultRoles();

                // ...finally assign role to creator of object
                //$rbacadmin->assignUser($roles[0], $newObj->getOwner(), "n");          

                // always destroy objects in ilClone method because ilClone() is recursive and creates instances for each object in subtree!
                //unset($newObj);

                // ... and finally always return new reference ID!!
                return $new_ref_id;
        }

        function delete()
        {
                $remove = parent::delete();
                // always call parent delete function first!!
                if (!$remove)
                {
                        return false;
                }

                // delete all related questions
                $this->deleteAllData();

                // delete meta data
                $this->deleteMetaData();
                
                return true;
        }

        function deleteAllData()
        {
                $query = sprintf("SELECT question_id FROM survey_question WHERE obj_fi = %s",
                        $this->ilias->db->quote($this->getId())
                );
                $result = $this->ilias->db->query($query);
                $found_questions = array();
                while ($row = $result->fetchRow(DB_FETCHMODE_ASSOC))
                {
                        $this->removeQuestion($row["question_id"]);
                }

                // delete export files
                $spl_data_dir = ilUtil::getDataDir()."/spl_data";
                $directory = $spl_data_dir."/spl_".$this->getId();
                if (is_dir($directory))
                {
                        $directory = escapeshellarg($directory);
                        exec("rm -rf $directory");
                }
        }

        function initDefaultRoles()
        {
                global $rbacadmin;
                
                // create a local role folder
                //$rfoldObj = $this->createRoleFolder("Local roles","Role Folder of forum obj_no.".$this->getId());

                // create moderator role and assign role to rolefolder...
                //$roleObj = $rfoldObj->createRole("Moderator","Moderator of forum obj_no.".$this->getId());
                //$roles[] = $roleObj->getId();

                //unset($rfoldObj);
                //unset($roleObj);

                return $roles ? $roles : array();
        }

        function notify($a_event,$a_ref_id,$a_parent_non_rbac_id,$a_node_id,$a_params = 0)
        {
                global $tree;
                
                switch ($a_event)
                {
                        case "link":
                                
                                //var_dump("<pre>",$a_params,"</pre>");
                                //echo "Module name ".$this->getRefId()." triggered by link event. Objects linked into target object ref_id: ".$a_ref_id;
                                //exit;
                                break;
                        
                        case "cut":
                                
                                //echo "Module name ".$this->getRefId()." triggered by cut event. Objects are removed from target object ref_id: ".$a_ref_id;
                                //exit;
                                break;
                                
                        case "copy":
                        
                                //var_dump("<pre>",$a_params,"</pre>");
                                //echo "Module name ".$this->getRefId()." triggered by copy event. Objects are copied into target object ref_id: ".$a_ref_id;
                                //exit;
                                break;

                        case "paste":
                                
                                //echo "Module name ".$this->getRefId()." triggered by paste (cut) event. Objects are pasted into target object ref_id: ".$a_ref_id;
                                //exit;
                                break;
                        
                        case "new":
                                
                                //echo "Module name ".$this->getRefId()." triggered by paste (new) event. Objects are applied to target object ref_id: ".$a_ref_id;
                                //exit;
                                break;
                }
                
                // At the beginning of the recursive process it avoids second call of the notify function with the same parameter
                if ($a_node_id==$_GET["ref_id"])
                {       
                        $parent_obj =& $this->ilias->obj_factory->getInstanceByRefId($a_node_id);
                        $parent_type = $parent_obj->getType();
                        if($parent_type == $this->getType())
                        {
                                $a_node_id = (int) $tree->getParentId($a_node_id);
                        }
                }
                
                parent::notify($a_event,$a_ref_id,$a_parent_non_rbac_id,$a_node_id,$a_params);
        }

        function getTitle()
        {
                //return $this->title;
                return parent::getTitle();
                //return $this->meta_data->getTitle();
        }

        function setTitle($a_title)
        {
                parent::setTitle($a_title);
//              $this->meta_data->setTitle($a_title);
        }

/*
        function assignMetaData(&$a_meta_data)
        {
                $this->meta_data =& $a_meta_data;
        }
*/

/*
        function &getMetaData()
        {
                return $this->meta_data;
        }
*/

/*
        function initMeta()
        {
                if (!is_object($this->meta_data))
                {
                        if ($this->getId())
                        {
                                $new_meta =& new ilMetaData($this->getType(), $this->getId());
                        }
                        else
                        {
                                $new_meta =& new ilMetaData();
                        }
                        $this->assignMetaData($new_meta);
                }
        }
*/

/*
        function updateMetaData()
        {
                $this->initMeta();
                $this->meta_data->update();
                if ($this->meta_data->section != "General")
                {
                        $meta = $this->meta_data->getElement("Title", "General");
                        $this->meta_data->setTitle($meta[0]["value"]);
                        $meta = $this->meta_data->getElement("Description", "General");
                        $this->meta_data->setDescription($meta[0]["value"]);
                }
                else
                {
                        $this->setTitle($this->meta_data->getTitle());
                        $this->setDescription($this->meta_data->getDescription());
                }
                parent::update();
        }
*/

  function removeQuestion($question_id)
  {
    if ($question_id < 1)
      return;

                $question = new SurveyQuestion();
                $question->delete($question_id);
        }

  function getQuestiontype($question_id) 
  {
    if ($question_id < 1)
      return;
      
    $query = sprintf("SELECT survey_questiontype.type_tag FROM survey_question, survey_questiontype WHERE survey_question.questiontype_fi = survey_questiontype.questiontype_id AND survey_question.question_id = %s",
      $this->ilias->db->quote($question_id)
    );
    $result = $this->ilias->db->query($query);
    if ($result->numRows() == 1) {
      $data = $result->fetchRow(DB_FETCHMODE_OBJECT);
                        return $data->type_tag;
    } else {
      return;
    }
  }
        
        function isInUse($question_id)
        {
                // check out the already answered questions
                $query = sprintf("SELECT answer_id FROM survey_answer WHERE question_fi = %s",
                        $this->ilias->db->quote($question_id)
                );
    $result = $this->ilias->db->query($query);
                $answered = $result->numRows();
                
                // check out the questions inserted in surveys
                $query = sprintf("SELECT survey_survey.* FROM survey_survey, survey_survey_question WHERE survey_survey_question.survey_fi = survey_survey.survey_id AND survey_survey_question.question_fi = %s",
                        $this->ilias->db->quote($question_id)
                );
    $result = $this->ilias->db->query($query);
                $inserted = $result->numRows();
                if (($inserted + $answered) == 0)
                {
                        return false;
                }
                $result_array = array();
                while ($row = $result->fetchRow(DB_FETCHMODE_OBJECT))
                {
                        array_push($result_array, $row);
                }
                return $result_array;
        }
        
        function paste($question_id)
        {
                $this->duplicateQuestion($question_id, $this->getId());
        }
        
        function &getQuestionsInfo($question_array)
        {
                $result_array = array();
                $query = sprintf("SELECT survey_question.*, survey_questiontype.type_tag FROM survey_question, survey_questiontype WHERE survey_question.questiontype_fi = survey_questiontype.questiontype_id AND survey_question.question_id IN (%s)",
                        join($question_array, ",")
                );
    $result = $this->ilias->db->query($query);
                while ($row = $result->fetchRow(DB_FETCHMODE_OBJECT))
                {
                        array_push($result_array, $row);
                }
                return $result_array;
        }
        
  function duplicateQuestion($question_id, $obj_id = "") {
                global $ilUser;
                
                $questiontype = $this->getQuestiontype($question_id);
                switch ($questiontype)
                {
                        case "qt_nominal":
                                $question = new SurveyNominalQuestion();
                                break;
                        case "qt_ordinal":
                                $question = new SurveyOrdinalQuestion();
                                break;
                        case "qt_metric":
                                $question = new SurveyMetricQuestion();
                                break;
                        case "qt_text":
                                $question = new SurveyTextQuestion();
                                break;
                }
                $question->loadFromDb($question_id);
    $counter = 2;
    while ($question->questionTitleExists($question->getTitle() . " ($counter)")) {
      $counter++;
    }
                if ($obj_id)
                {
                        $question->setObjId($obj_id);
                }
                $question->duplicate(false, $question->getTitle() . " ($counter)", $ilUser->fullname, $ilUser->id);
  }
        
        function deletePhrases($phrase_array)
        {
                $query = "DELETE FROM survey_phrase WHERE phrase_id IN (" . join($phrase_array, ",") . ")";
                $result = $this->ilias->db->query($query);
                $query = "DELETE FROM survey_phrase_category WHERE phrase_fi IN (" . join($phrase_array, ",") . ")";
                $result = $this->ilias->db->query($query);
        }

        function getQuestionsTable($sortoptions, $filter_text, $sel_filter_type, $startrow = 0)
        {
                global $ilUser;
                $where = "";
                if (strlen($filter_text) > 0) {
                        switch($sel_filter_type) {
                                case "title":
                                        $where = " AND survey_question.title LIKE " . $this->ilias->db->quote("%" . $filter_text . "%");
                                        break;
                                case "description":
                                        $where = " AND survey_question.description LIKE " . $this->ilias->db->quote("%" . $filter_text . "%");
                                        break;
                                case "author":
                                        $where = " AND survey_question.author LIKE " . $this->ilias->db->quote("%" . $filter_text . "%");
                                        break;
                        }
                }
  
    // build sort order for sql query
                $order = "";
                $images = array();
    if (count($sortoptions)) {
      foreach ($sortoptions as $key => $value) {
        switch($key) {
          case "title":
            $order = " ORDER BY title $value";
            $images["title"] = " <img src=\"" . ilUtil::getImagePath(strtolower($value) . "_order.png", true) . "\" alt=\"" . strtolower($value) . "ending order\" />";
            break;
          case "description":
            $order = " ORDER BY description $value";
            $images["description"] = " <img src=\"" . ilUtil::getImagePath(strtolower($value) . "_order.png", true) . "\" alt=\"" . strtolower($value) . "ending order\" />";
            break;
          case "type":
            $order = " ORDER BY questiontype_id $value";
            $images["type"] = " <img src=\"" . ilUtil::getImagePath(strtolower($value) . "_order.png", true) . "\" alt=\"" . strtolower($value) . "ending order\" />";
            break;
          case "author":
            $order = " ORDER BY author $value";
            $images["author"] = " <img src=\"" . ilUtil::getImagePath(strtolower($value) . "_order.png", true) . "\" alt=\"" . strtolower($value) . "ending order\" />";
            break;
          case "created":
            $order = " ORDER BY created $value";
            $images["created"] = " <img src=\"" . ilUtil::getImagePath(strtolower($value) . "_order.png", true) . "\" alt=\"" . strtolower($value) . "ending order\" />";
            break;
          case "updated":
            $order = " ORDER BY TIMESTAMP14 $value";
            $images["updated"] = " <img src=\"" . ilUtil::getImagePath(strtolower($value) . "_order.png", true) . "\" alt=\"" . strtolower($value) . "ending order\" />";
            break;
        }
      }
    }
                $maxentries = $ilUser->prefs["hits_per_page"];
                if ($maxentries < 1)
                {
                        $maxentries = 9999;
                }
    $query = "SELECT survey_question.question_id, survey_question.TIMESTAMP + 0 AS TIMESTAMP14 FROM survey_question, survey_questiontype WHERE survey_question.questiontype_fi = survey_questiontype.questiontype_id AND survey_question.obj_fi = " . $this->getId() . " AND ISNULL(survey_question.original_id) $where$order$limit";
    $query_result = $this->ilias->db->query($query);
                $max = $query_result->numRows();
                if ($startrow > $max -1)
                {
                        $startrow = $max - ($max % $maxentries);
                }
                else if ($startrow < 0)
                {
                        $startrow = 0;
                }
                $limit = " LIMIT $startrow, $maxentries";
    $query = "SELECT survey_question.*, survey_question.TIMESTAMP + 0 AS TIMESTAMP14, survey_questiontype.type_tag FROM survey_question, survey_questiontype WHERE survey_question.questiontype_fi = survey_questiontype.questiontype_id AND survey_question.obj_fi = " . $this->getId() . " AND ISNULL(survey_question.original_id) $where$order$limit";
    $query_result = $this->ilias->db->query($query);
                $rows = array();
                if ($query_result->numRows())
                {
                        while ($row = $query_result->fetchRow(DB_FETCHMODE_ASSOC))
                        {
                                array_push($rows, $row);
                        }
                }
                $nextrow = $startrow + $maxentries;
                if ($nextrow > $max - 1)
                {
                        $nextrow = $startrow;
                }
                $prevrow = $startrow - $maxentries;
                if ($prevrow < 0)
                {
                        $prevrow = 0;
                }
                return array(
                        "rows" => $rows,
                        "images" => $images,
                        "startrow" => $startrow,
                        "nextrow" => $nextrow,
                        "prevrow" => $prevrow,
                        "step" => $maxentries,
                        "rowcount" => $max
                );
        }
        
        function createExportDirectory()
        {
                $spl_data_dir = ilUtil::getDataDir()."/spl_data";
                ilUtil::makeDir($spl_data_dir);
                if(!is_writable($spl_data_dir))
                {
                        $this->ilias->raiseError("Survey Questionpool Data Directory (".$spl_data_dir
                                .") not writeable.",$this->ilias->error_obj->FATAL);
                }
                
                // create learning module directory (data_dir/lm_data/lm_<id>)
                $spl_dir = $spl_data_dir."/spl_".$this->getId();
                ilUtil::makeDir($spl_dir);
                if(!@is_dir($spl_dir))
                {
                        $this->ilias->raiseError("Creation of Survey Questionpool Directory failed.",$this->ilias->error_obj->FATAL);
                }
                // create Export subdirectory (data_dir/lm_data/lm_<id>/Export)
                $export_dir = $spl_dir."/export";
                ilUtil::makeDir($export_dir);
                if(!@is_dir($export_dir))
                {
                        $this->ilias->raiseError("Creation of Export Directory failed.",$this->ilias->error_obj->FATAL);
                }
        }

        function getExportDirectory()
        {
                $export_dir = ilUtil::getDataDir()."/spl_data"."/spl_".$this->getId()."/export";

                return $export_dir;
        }
        
        function getExportFiles($dir)
        {
                // quit if import dir not available
                if (!@is_dir($dir) or
                        !is_writeable($dir))
                {
                        return array();
                }

                        // open directory
                $dir = dir($dir);

                // initialize array
                $file = array();

                // get files and save the in the array
                while ($entry = $dir->read())
                {
                        if ($entry != "." and
                                $entry != ".." and
                                substr($entry, -4) == ".xml" and
                                ereg("^[0-9]{10}_{2}[0-9]+_{2}(spl__)*[0-9]+\.xml\$", $entry))
                        {
                                $file[] = $entry;
                        }
                }

                // close import directory
                $dir->close();
                // sort files
                sort ($file);
                reset ($file);

                return $file;
        }

        function createImportDirectory()
        {
                $spl_data_dir = ilUtil::getDataDir()."/spl_data";
                ilUtil::makeDir($spl_data_dir);
                
                if(!is_writable($spl_data_dir))
                {
                        $this->ilias->raiseError("Survey Questionpool Data Directory (".$spl_data_dir
                                .") not writeable.",$this->ilias->error_obj->FATAL);
                }

                // create test directory (data_dir/spl_data/spl_<id>)
                $spl_dir = $spl_data_dir."/spl_".$this->getId();
                ilUtil::makeDir($spl_dir);
                if(!@is_dir($spl_dir))
                {
                        $this->ilias->raiseError("Creation of Survey Questionpool Directory failed.",$this->ilias->error_obj->FATAL);
                }

                // create import subdirectory (data_dir/spl_data/spl_<id>/import)
                $import_dir = $spl_dir."/import";
                ilUtil::makeDir($import_dir);
                if(!@is_dir($import_dir))
                {
                        $this->ilias->raiseError("Creation of Import Directory failed.",$this->ilias->error_obj->FATAL);
                }
        }

        function getImportDirectory()
        {
                $import_dir = ilUtil::getDataDir()."/spl_data".
                        "/spl_".$this->getId()."/import";
                if(@is_dir($import_dir))
                {
                        return $import_dir;
                }
                else
                {
                        return false;
                }
        }

        function to_xml($questions)
        {
                if (!is_array($questions))
                {
                        $questions =& $this->getQuestions();
                }
                if (count($questions) == 0)
                {
                        $questions =& $this->getQuestions();
                }
                $xml = "";

                foreach ($questions as $key => $value)
                {
                        $questiontype = $this->getQuestiontype($value);
                        switch ($questiontype)
                        {
                                case "qt_nominal":
                                        $question = new SurveyNominalQuestion();
                                        break;
                                case "qt_ordinal":
                                        $question = new SurveyOrdinalQuestion();
                                        break;
                                case "qt_metric":
                                        $question = new SurveyMetricQuestion();
                                        break;
                                case "qt_text":
                                        $question = new SurveyTextQuestion();
                                        break;
                        }
                        $question->loadFromDb($value);
                        $xml .= $question->to_xml(false);
                }
                if (count($questions) > 1)
                {
                        $xml = preg_replace("/<\/questestinterop>\s*<questestinterop>/", "", $xml);
                }
                $xml = str_replace("<questestinterop>", "", $xml);
                $xml = str_replace("</questestinterop>", "", $xml);
                
                // export questionpool metadata
                $xml_header = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
                $xml_header .= "<questestinterop></questestinterop>\n";
                $domxml = domxml_open_mem($xml_header);
                $root = $domxml->document_element();

                // qti section
                $qtiSection = $domxml->create_element("section");
                $qtiSection->set_attribute("ident", "qpl_" . $this->getId());
                $qtiSection->set_attribute("title", $this->getTitle());

                // qti metadata
                $qtiMetadata = $domxml->create_element("qtimetadata");
                $qtiMetadatafield = $domxml->create_element("qtimetadatafield");
                $qtiFieldlabel = $domxml->create_element("fieldlabel");
                $qtiFieldlabelText = $domxml->create_text_node("SCORM");
                $qtiFieldlabel->append_child($qtiFieldlabelText);
                $qtiFieldentry = $domxml->create_element("fieldentry");

// to do: export meta data
/*
                $this->initMeta();
                $metadata = $this->meta_data->nested_obj->dom->dump_mem(0);
*/
                $qtiFieldentryText = $domxml->create_CDATA_Section($metadata);
                $qtiFieldentry->append_child($qtiFieldentryText);
                $qtiMetadatafield->append_child($qtiFieldlabel);
                $qtiMetadatafield->append_child($qtiFieldentry);
                $qtiMetadata->append_child($qtiMetadatafield);
                $qtiSection->append_child($qtiMetadata);
                $root->append_child($qtiSection);
                $qtixml = $domxml->dump_mem(true);
                $qtixml = str_replace("</section>", $xml . "\n</section>", $qtixml);
                $domxml->free();
                return $qtixml;
        }

        function &getQuestions()
        {
                $questions = array();
                $query = sprintf("SELECT question_id FROM survey_question WHERE obj_fi = %s AND ISNULL(original_id)",
                        $this->ilias->db->quote($this->getId() . "")
                );
                $result = $this->ilias->db->query($query);
                if ($result->numRows())
                {
                        while ($row = $result->fetchRow(DB_FETCHMODE_ASSOC))
                        {
                                array_push($questions, $row["question_id"]);
                        }
                }
                return $questions;
        }

        function importObject($source)
        {
                $metadata = "";
                if (is_file($source))
                {
                        $fh = fopen($source, "r") or die("");
                        $xml = fread($fh, filesize($source));
                        fclose($fh) or die("");

                        // read questionpool metadata from xml file
                        $xml = preg_replace("/>\s*?</", "><", $xml);
                        $domxml = domxml_open_mem($xml);
                        if (!empty($domxml))
                        {
                                $nodeList = $domxml->get_elements_by_tagname("fieldlabel");
                                foreach ($nodeList as $node)
                                {
                                        switch ($node->get_content())
                                        {
                                                case "SCORM":
                                                        $metanode = $node->next_sibling();
                                                        if (strcmp($metanode->node_name(), "fieldentry") == 0)
                                                        {
                                                                $metadata = $metanode->get_content();
                                                        }
                                        }
                                }
                                $domxml->free();
                        }

                        // import file into questionpool
                        if (preg_match_all("/(<item[^>]*>.*?<\/item>)/si", $xml, $matches))
                        {
                                foreach ($matches[1] as $index => $item)
                                {
                                        // get identifier
                                        if (preg_match("/(<item[^>]*>)/is", $item, $start_tag))
                                        {
                                                if (preg_match("/(ident=\"([^\"]*)\")/is", $start_tag[1], $ident))
                                                {
                                                        $ident = $ident[2];
                                                }
                                        }
                                        $question = "";
                                        if (preg_match("/<qticomment>Questiontype\=(.*?)<\/qticomment>/is", $item, $questiontype))
                                        {
                                                switch ($questiontype[1])
                                                {
                                                        case NOMINAL_QUESTION_IDENTIFIER:
                                                                $question = new SurveyNominalQuestion();
                                                                break;
                                                        case ORDINAL_QUESTION_IDENTIFIER:
                                                                $question = new SurveyOrdinalQuestion();
                                                                break;
                                                        case METRIC_QUESTION_IDENTIFIER:
                                                                $question = new SurveyMetricQuestion();
                                                                break;
                                                        case TEXT_QUESTION_IDENTIFIER:
                                                                $question = new SurveyTextQuestion();
                                                                break;
                                                }
                                                if ($question)
                                                {
                                                        $question->setObjId($this->getId());
                                                        if ($question->from_xml("<questestinterop>$item</questestinterop>"))
                                                        {
                                                                $question->saveToDb();
                                                        }
                                                        else
                                                        {
                                                                $this->ilias->raiseError($this->lng->txt("error_importing_question"), $this->ilias->error_obj->MESSAGE);
                                                        }
                                                }
                                        }
                                }
                        }
                        
                        if ($metadata)
                        {
// to do: import meta data
/*
                                include_once("./classes/class.ilNestedSetXML.php");
                                $nested = new ilNestedSetXML();
                                $nested->dom = domxml_open_mem($metadata);
                                $nodes = $nested->getDomContent("//MetaData/General", "Identifier");
                                if (is_array($nodes))
                                {
                                        $nodes[0]["Entry"] = "il__" . $this->getType() . "_" . $this->getId();
                                        $nested->updateDomContent("//MetaData/General", "Identifier", 0, $nodes[0]);
                                }
                                $nodes = $nested->getDomContent("//MetaData/General", "Title");
                                if (is_array($nodes))
                                {
                                        $this->setTitle($nodes[0]["value"]);
                                }
                                $nodes = $nested->getDomContent("//MetaData/General", "Description");
                                if (is_array($nodes))
                                {
                                        $this->setDescription($nodes[0]["value"]);
                                }
                                $xml = $nested->dom->dump_mem(0);
                                $nested->import($xml, $this->getId(), $this->getType());
*/
                        }

                }
        }

        function _isWriteable($object_id, $user_id)
        {
                global $rbacsystem;
                global $ilDB;
                
                $result_array = array();
                $query = sprintf("SELECT object_data.*, object_data.obj_id, object_reference.ref_id FROM object_data, object_reference WHERE object_data.obj_id = object_reference.obj_id AND object_data.obj_id = %s",
                        $ilDB->quote($object_id . "")
                );
                $result = $ilDB->query($query);
                while ($row = $result->fetchRow(DB_FETCHMODE_ASSOC))
                {               
                        include_once "./classes/class.ilObject.php";
                        if ($rbacsystem->checkAccess("write", $row["ref_id"]) && (ilObject::_hasUntrashedReference($row["obj_id"])))
                        {
                                return true;
                        }
                }
                return false;
        }
        
} // END class.ilSurveyObjQuestionPool
?>