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. |
        +-----------------------------------------------------------------------------+
*/

include_once "./classes/class.ilObject.php";
include_once "./survey/classes/inc.SurveyConstants.php";

class ilObjSurveyQuestionPool extends ilObject
{
        var $online;
        
        function ilObjSurveyQuestionPool($a_id = 0,$a_call_by_reference = true)
        {
                $this->type = "spl";
                $this->ilObject($a_id,$a_call_by_reference);
        }

        function create($a_upload = false)
        {
                parent::create();
                if(!$a_upload)
                {
                        $this->createMetaData();
                }
        }

        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->loadFromDb();
        }

        function loadFromDb()
        {
                global $ilDB;
                
                $query = sprintf("SELECT * FROM survey_questionpool WHERE obj_fi = %s",
                        $ilDB->quote($this->getId() . "")
                );
                $result = $ilDB->query($query);
                if ($result->numRows() == 1)
                {
                        $row = $result->fetchRow(DB_FETCHMODE_ASSOC);
                        $this->setOnline($row["online"]);
                }
        }
        
  function saveToDb()
  {
                global $ilDB;
                
                $query = sprintf("SELECT * FROM survey_questionpool WHERE obj_fi = %s",
                        $ilDB->quote($this->getId() . "")
                );
                $result = $ilDB->query($query);
                if ($result->numRows() == 1)
                {
                        $query = sprintf("UPDATE survey_questionpool SET online = %s WHERE obj_fi = %s",
                                $ilDB->quote($this->getOnline() . ""),
                                $ilDB->quote($this->getId() . "")
                        );
      $result = $ilDB->query($query);
      if ($result != DB_OK) 
                        {
      }
                }
                else
                {
                        $query = sprintf("INSERT INTO survey_questionpool (online, obj_fi) VALUES (%s, %s)",
                                $ilDB->quote($this->getOnline() . ""),
                                $ilDB->quote($this->getId() . "")
                        );
      $result = $ilDB->query($query);
      if ($result != DB_OK) 
                        {
      }
                }
        }
        
        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 AND original_id IS NULL",
                        $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
                include_once "./classes/class.ilUtil.php";
                $spl_data_dir = ilUtil::getDataDir()."/spl_data";
                $directory = $spl_data_dir."/spl_".$this->getId();
                if (is_dir($directory))
                {
                        include_once "./classes/class.ilUtil.php";
                        ilUtil::delDir($directory);
                }
        }

        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();
        }

        function setTitle($a_title)
        {
                parent::setTitle($a_title);
        }

  function removeQuestion($question_id)
  {
    if ($question_id < 1)
      return;
                
                include_once "./survey/classes/class.SurveyQuestion.php";
                $question =& SurveyQuestion::_instanciateQuestion($question_id);
                $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);
                include_once "./survey/classes/class.$questiontype.php";
                $question = new $questiontype();
                $question->loadFromDb($question_id);
                $suffix = "";
    $counter = 1;
    while ($question->questionTitleExists($question->getTitle().$suffix, $obj_id)) 
                {
      $counter++;
                        if ($counter > 1) $suffix = " ($counter)";
    }
                if ($obj_id)
                {
                        $question->setObjId($obj_id);
                }
                $question->duplicate(false, $question->getTitle() . $suffix, $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();
                include_once "./classes/class.ilUtil.php";
    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()
        {
                include_once "./classes/class.ilUtil.php";
                $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()
        {
                include_once "./classes/class.ilUtil.php";
                $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()
        {
                include_once "./classes/class.ilUtil.php";
                $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()
        {
                include_once "./classes/class.ilUtil.php";
                $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);
                        include_once "./survey/classes/class.$questiontype.php";
                        $question = new $questiontype();
                        $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);
                
                include_once("./classes/class.ilXmlWriter.php");
                $a_xml_writer = new ilXmlWriter;
                // set xml header
                $a_xml_writer->xmlHeader();
                $a_xml_writer->xmlStartTag("questestinterop");
                $attrs = array(
                        "ident" => "qpl_" . $this->getId(),
                        "title" => $this->getTitle()
                );
                $a_xml_writer->xmlStartTag("section", $attrs);
                // add ILIAS specific metadata
                $a_xml_writer->xmlStartTag("qtimetadata");
                $a_xml_writer->xmlStartTag("qtimetadatafield");
                $a_xml_writer->xmlElement("fieldlabel", NULL, "SCORM");

                include_once "./Services/MetaData/classes/class.ilMD.php";
                $md = new ilMD($this->getId(),0, $this->getType());
                $writer = new ilXmlWriter();
                $md->toXml($writer);
                $metadata = $writer->xmlDumpMem();

                $a_xml_writer->xmlElement("fieldentry", NULL, $metadata);
                $a_xml_writer->xmlEndTag("qtimetadatafield");
                $a_xml_writer->xmlEndTag("qtimetadata");
                $a_xml_writer->xmlEndTag("section");
                $a_xml_writer->xmlEndTag("questestinterop");

                $qtixml = $a_xml_writer->xmlDumpMem(FALSE);
                $qtixml = str_replace("</section>", $xml . "\n</section>", $qtixml);
                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))
                                        {
                                                include_once "./survey/classes/class.SurveyNominalQuestion.php";
                                                include_once "./survey/classes/class.SurveyOrdinalQuestion.php";
                                                include_once "./survey/classes/class.SurveyMetricQuestion.php";
                                                include_once "./survey/classes/class.SurveyTextQuestion.php";
                                                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)
                        {
                                include_once "./Services/MetaData/classes/class.ilMDSaxParser.php";
                                include_once "./Services/MetaData/classes/class.ilMD.php";
                                $md_sax_parser = new ilMDSaxParser();
                                $md_sax_parser->setXMLContent($metadata);
                                $md_sax_parser->setMDObject($tmp = new ilMD($this->getId(),0,'spl'));
                                $md_sax_parser->enableMDParsing(true);
                                $md_sax_parser->startParsing();

                                // Finally update title description
                                // Update title description
                                $this->MDUpdateListener('General');
                        }

                }
        }

        function setOnline($a_online_status)
        {
                switch ($a_online_status)
                {
                        case 0:
                        case 1:
                                $this->online = $a_online_status;
                                break;
                        default:
                                $this->online = 0;
                                break;
                }
        }
        
        function getOnline()
        {
                if (strcmp($this->online, "") == 0) $this->online = "0";
                return $this->online;
        }
        
        function _lookupOnline($a_obj_id)
        {
                global $ilDB;
                
                $query = sprintf("SELECT online FROM survey_questionpool WHERE obj_fi = %s",
                        $ilDB->quote($a_obj_id . "")
                );
                $result = $ilDB->query($query);
                if ($result->numRows() == 1)
                {
                        $row = $result->fetchRow(DB_FETCHMODE_ASSOC);
                        return $row["online"];
                }
                return 0;
        }

        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
?>