survey/classes/class.ilObjSurveyQuestionPoolGUI.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 "./survey/classes/class.SurveyNominalQuestionGUI.php";
require_once "./survey/classes/class.SurveyTextQuestionGUI.php";
require_once "./survey/classes/class.SurveyMetricQuestionGUI.php";
require_once "./survey/classes/class.SurveyOrdinalQuestionGUI.php";
require_once "./classes/class.ilObjectGUI.php";
require_once "./classes/class.ilMetaDataGUI.php";

class ilObjSurveyQuestionPoolGUI extends ilObjectGUI
{
        var $defaultscript;
        
        function ilObjSurveyQuestionPoolGUI($a_data, $a_id, $a_call_by_reference = true, $a_prepare_output = true)
        {
        global $lng, $ilCtrl;

                $this->type = "spl";
                $lng->loadLanguageModule("survey");
                $this->ilObjectGUI($a_data,$a_id,$a_call_by_reference, false);
                $this->ctrl =& $ilCtrl;
                $this->ctrl->saveParameter($this, array("ref_id", "calling_survey", "new_for_survey"));
                $this->ilObjectGUI($a_data,$a_id,$a_call_by_reference, false);
                if (!defined("ILIAS_MODULE"))
                {
                        $this->setTabTargetScript("adm_object.php");
                        $this->defaultscript = "adm_object.php";
                }
                else
                {
                        $this->setTabTargetScript("questionpool.php");
                        $this->defaultscript = "questionpool.php";
                }
                if ($a_prepare_output) {
                        $this->prepareOutput();
                }
        }

        function saveObject()
        {
                global $rbacadmin;

                // create and insert forum in objecttree
                $newObj = parent::saveObject();

                // setup rolefolder & default local roles
                //$roles = $newObj->initDefaultRoles();

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

                // put here object specific stuff
                        
                // always send a message
                sendInfo($this->lng->txt("object_added"),true);
                
                $returnlocation = "questionpool.php";
                if (!defined("ILIAS_MODULE"))
                {
                        $returnlocation = "adm_object.php";
                }
                ilUtil::redirect($this->getReturnLocation("save","$returnlocation?".$this->link_params));
                exit();
        }
        
        function getCallingScript()
        {
                return "questionpool.php";
        }

  function getAddParameter() 
  {
    return "?ref_id=" . $_GET["ref_id"] . "&cmd=" . $_GET["cmd"];
  }
  
        function cancelAction($question_id = "") 
        {
                $this->ctrl->redirect($this, "questions");
        }

        function copyObject()
        {
    // create an array of all checked checkboxes
    $checked_questions = array();
    foreach ($_POST as $key => $value) {
      if (preg_match("/cb_(\d+)/", $key, $matches)) {
        array_push($checked_questions, $matches[1]);
      }
    }
                
                // copy button was pressed
                if (count($checked_questions) > 0) {
                        $_SESSION["spl_copied_questions"] = join($checked_questions, ",");
                } elseif (count($checked_questions) == 0) {
                        sendInfo($this->lng->txt("qpl_copy_select_none"), true);
                        $_SESSION["spl_copied_questions"] = "";
                }
                $this->ctrl->redirect($this, "questions");
        }       
        
        function duplicateObject()
        {
    // create an array of all checked checkboxes
    $checked_questions = array();
    foreach ($_POST as $key => $value) {
      if (preg_match("/cb_(\d+)/", $key, $matches)) {
        array_push($checked_questions, $matches[1]);
      }
    }
                
                if (count($checked_questions) > 0) {
                        foreach ($checked_questions as $key => $value) {
                                $this->object->duplicateQuestion($value);
                        }
                } elseif (count($checked_questions) == 0) {
                        sendInfo($this->lng->txt("qpl_duplicate_select_none"), true);
                }
                $this->ctrl->redirect($this, "questions");
        }

        function exportQuestionsObject()
        {
                // create an array of all checked checkboxes
                $checked_questions = array();
                foreach ($_POST as $key => $value) {
                        if (preg_match("/cb_(\d+)/", $key, $matches)) {
                                array_push($checked_questions, $matches[1]);
                        }
                }
                
                // export button was pressed
                if (count($checked_questions) > 0)
                {
                        $this->createExportFileObject($checked_questions);
                }
                else
                {
                        sendInfo($this->lng->txt("qpl_export_select_none"), true);
                        $this->ctrl->redirect($this, "questions");
                }
        }
        
        function deleteQuestionsObject()
        {
                global $rbacsystem;
                
                sendInfo();
    // create an array of all checked checkboxes
    $checked_questions = array();
    foreach ($_POST as $key => $value) {
      if (preg_match("/cb_(\d+)/", $key, $matches)) {
        array_push($checked_questions, $matches[1]);
      }
    }
                
                if (count($checked_questions) > 0) {
                        if ($rbacsystem->checkAccess('write', $this->ref_id)) {
                                sendInfo($this->lng->txt("qpl_confirm_delete_questions"));
                        } else {
                                sendInfo($this->lng->txt("qpl_delete_rbac_error"), true);
                                $this->ctrl->redirect($this, "questions");
                                return;
                        }
                } elseif (count($checked_questions) == 0) {
                        sendInfo($this->lng->txt("qpl_delete_select_none"), true);
                        $this->ctrl->redirect($this, "questions");
                        return;
                }
                $this->tpl->addBlockFile("ADM_CONTENT", "adm_content", "tpl.il_svy_qpl_confirm_delete_questions.html", true);
                $whereclause = join($checked_questions, " OR survey_question.question_id = ");
                $whereclause = " AND (survey_question.question_id = " . $whereclause . ")";
                $query = "SELECT survey_question.*, survey_questiontype.type_tag FROM survey_question, survey_questiontype WHERE survey_question.questiontype_fi = survey_questiontype.questiontype_id$whereclause ORDER BY survey_question.title";
                $query_result = $this->ilias->db->query($query);
                $colors = array("tblrow1", "tblrow2");
                $counter = 0;
                if ($query_result->numRows() > 0)
                {
                        while ($data = $query_result->fetchRow(DB_FETCHMODE_OBJECT))
                        {
                                if (in_array($data->question_id, $checked_questions))
                                {
                                        $this->tpl->setCurrentBlock("row");
                                        $this->tpl->setVariable("COLOR_CLASS", $colors[$counter % 2]);
                                        $this->tpl->setVariable("TXT_TITLE", $data->title);
                                        $this->tpl->setVariable("TXT_DESCRIPTION", $data->description);
                                        $this->tpl->setVariable("TXT_TYPE", $this->lng->txt($data->type_tag));
                                        $this->tpl->parseCurrentBlock();
                                        $counter++;
                                }
                        }
                }
                foreach ($checked_questions as $id)
                {
                        $this->tpl->setCurrentBlock("hidden");
                        $this->tpl->setVariable("HIDDEN_NAME", "id_$id");
                        $this->tpl->setVariable("HIDDEN_VALUE", "1");
                        $this->tpl->parseCurrentBlock();
                }

                $this->tpl->setCurrentBlock("adm_content");
                $this->tpl->setVariable("TXT_TITLE", $this->lng->txt("title"));
                $this->tpl->setVariable("TXT_DESCRIPTION", $this->lng->txt("description"));
                $this->tpl->setVariable("TXT_TYPE", $this->lng->txt("question_type"));
                $this->tpl->setVariable("BTN_CONFIRM", $this->lng->txt("confirm"));
                $this->tpl->setVariable("BTN_CANCEL", $this->lng->txt("cancel"));
                $this->tpl->setVariable("FORM_ACTION", $this->ctrl->getFormAction($this));
                $this->tpl->parseCurrentBlock();
        }

        function confirmDeleteQuestionsObject()
        {
                // delete questions after confirmation
                sendInfo($this->lng->txt("qpl_questions_deleted"), true);
                $checked_questions = array();
                foreach ($_POST as $key => $value) {
                        if (preg_match("/id_(\d+)/", $key, $matches)) {
                                array_push($checked_questions, $matches[1]);
                        }
                }

                foreach ($checked_questions as $key => $value) {
                        $this->object->removeQuestion($value);
                }
                $this->ctrl->redirect($this, "questions");
        }
        
        function cancelDeleteQuestionsObject()
        {
                // delete questions after confirmation
                $this->ctrl->redirect($this, "questions");
        }
        
        function pasteObject()
        {
                sendInfo();

    // create an array of all checked checkboxes
    $checked_questions = array();
    foreach ($_POST as $key => $value) {
      if (preg_match("/cb_(\d+)/", $key, $matches)) {
        array_push($checked_questions, $matches[1]);
      }
    }
                
                // paste button was pressed
                if (strcmp($_SESSION["spl_copied_questions"], "") != 0)
                {
                        $copied_questions = split("/,/", $_SESSION["spl_copied_questions"]);
                        sendInfo($this->lng->txt("qpl_past_questions_confirmation"));
                }
                $this->tpl->addBlockFile("ADM_CONTENT", "adm_content", "tpl.il_svy_qpl_confirm_paste_questions.html", true);
                $questions_info =& $this->object->getQuestionsInfo($copied_questions);
                $colors = array("tblrow1", "tblrow2");
                $counter = 0;
                foreach ($questions_info as $data)
                {
                        $this->tpl->setCurrentBlock("row");
                        $this->tpl->setVariable("COLOR_CLASS", $colors[$counter % 2]);
                        $this->tpl->setVariable("TXT_TITLE", $data->title);
                        $this->tpl->setVariable("TXT_DESCRIPTION", $data->description);
                        $this->tpl->setVariable("TXT_TYPE", $this->lng->txt($data->type_tag));
                        $this->tpl->parseCurrentBlock();
                        $counter++;
                }
                foreach ($questions_info as $data)
                {
                        $this->tpl->setCurrentBlock("hidden");
                        $this->tpl->setVariable("HIDDEN_NAME", "id_$data->question_id");
                        $this->tpl->setVariable("HIDDEN_VALUE", $data->question_id);
                        $this->tpl->parseCurrentBlock();
                }

                $this->tpl->setCurrentBlock("adm_content");
                $this->tpl->setVariable("TXT_TITLE", $this->lng->txt("title"));
                $this->tpl->setVariable("TXT_DESCRIPTION", $this->lng->txt("description"));
                $this->tpl->setVariable("TXT_TYPE", $this->lng->txt("question_type"));
                $this->tpl->setVariable("BTN_CONFIRM", $this->lng->txt("confirm"));
                $this->tpl->setVariable("BTN_CANCEL", $this->lng->txt("cancel"));
                $this->tpl->setVariable("FORM_ACTION", $this->ctrl->getFormAction($this));
                $this->tpl->parseCurrentBlock();
        }

        function confirmPasteQuestionsObject()
        {
                // paste questions after confirmation
                sendInfo($this->lng->txt("qpl_questions_pasted"), true);
                $checked_questions = array();
                foreach ($_POST as $key => $value) {
                        if (preg_match("/id_(\d+)/", $key, $matches)) {
                                array_push($checked_questions, $matches[1]);
                        }
                }
                foreach ($checked_questions as $key => $value) {
                        $this->object->paste($value);
                }
                
                $this->ctrl->redirect($this, "questions");
        }
        
        function cancelPasteQuestionsObject()
        {
                // delete questions after confirmation
                $this->ctrl->redirect($this, "questions");
        }
        
        function cancelDeletePhraseObject()
        {
                $this->ctrl->redirect($this, "phrases");
        }
        
        function confirmDeletePhraseObject()
        {
                $phrases = array();
                foreach ($_POST as $key => $value)
                {
                        if (preg_match("/phrase_(\d+)/", $key, $matches))
                        {
                                array_push($phrases, $matches[1]);
                        }
                }
                $this->object->deletePhrases($phrases);
                sendInfo($this->lng->txt("qpl_phrases_deleted"), true);
                $this->ctrl->redirect($this, "phrases");
        }
        
        function deletePhrasesForm($checked_phrases)
        {
                sendInfo();
                $ordinal = new SurveyOrdinalQuestion();
                $phrases =& $ordinal->getAvailablePhrases(1);
                $this->tpl->addBlockFile("ADM_CONTENT", "adm_content", "tpl.il_svy_qpl_confirm_delete_phrases.html", true);
                $colors = array("tblrow1", "tblrow2");
                $counter = 0;
                foreach ($checked_phrases as $id)
                {
                        $this->tpl->setCurrentBlock("row");
                        $this->tpl->setVariable("COLOR_CLASS", $colors[$counter++ % 2]);
                        $this->tpl->setVariable("PHRASE_TITLE", $phrases[$id]["title"]);
                        $categories =& $ordinal->getCategoriesForPhrase($id);
                        $this->tpl->setVariable("PHRASE_CONTENT", join($categories, ", "));
                        $this->tpl->parseCurrentBlock();
                        $this->tpl->setCurrentBlock("hidden");
                        $this->tpl->setVariable("HIDDEN_NAME", "phrase_$id");
                        $this->tpl->setVariable("HIDDEN_VALUE", "1");
                        $this->tpl->parseCurrentBlock();
                }

                $this->tpl->setCurrentBlock("adm_content");
                $this->tpl->setVariable("TEXT_PHRASE_TITLE", $this->lng->txt("phrase"));
                $this->tpl->setVariable("TEXT_PHRASE_CONTENT", $this->lng->txt("categories"));
                $this->tpl->setVariable("BTN_CONFIRM", $this->lng->txt("confirm"));
                $this->tpl->setVariable("BTN_CANCEL", $this->lng->txt("cancel"));
                $this->tpl->setVariable("FORM_ACTION", $this->ctrl->getFormAction($this));
                $this->tpl->parseCurrentBlock();
        }
        
        function deletePhraseObject()
        {
                sendInfo();

                $checked_phrases = array();
                foreach ($_POST as $key => $value)
                {
                        if (preg_match("/phrase_(\d+)/", $key, $matches))
                        {
                                array_push($checked_phrases, $matches[1]);
                        }
                }
                if (count($checked_phrases))
                {
                        sendInfo($this->lng->txt("qpl_confirm_delete_phrases"));
                        $this->deletePhrasesForm($checked_phrases);
                        return;
                }
                else
                {
                        sendInfo($this->lng->txt("qpl_delete_phrase_select_none"));
                        $this->phrasesObject();
                        return;
                }
                
                $this->tpl->setCurrentBlock("obligatory");
                $this->tpl->setVariable("TEXT_OBLIGATORY", $this->lng->txt("obligatory"));
                $this->tpl->setVariable("CHECKED_OBLIGATORY", " checked=\"checked\"");
                $this->tpl->parseCurrentBlock();
                $this->tpl->setCurrentBlock("adm_content");
                $this->tpl->setVariable("DEFINE_QUESTIONBLOCK_HEADING", $this->lng->txt("define_questionblock"));
                $this->tpl->setVariable("TEXT_TITLE", $this->lng->txt("title"));
                $this->tpl->setVariable("TXT_REQUIRED_FLD", $this->lng->txt("required_field"));
                $this->tpl->setVariable("SAVE", $this->lng->txt("save"));
                $this->tpl->setVariable("CANCEL", $this->lng->txt("cancel"));
                $this->tpl->setVariable("FORM_ACTION", $this->ctrl->getFormAction($this));
                $this->tpl->parseCurrentBlock();
        }

  function phrasesObject()
        {
                global $rbacsystem;
                
                if ($rbacsystem->checkAccess("write", $this->object->getRefId()))
                {
                        $this->tpl->addBlockFile("ADM_CONTENT", "adm_content", "tpl.il_svy_qpl_phrases.html", true);
                        $ordinal = new SurveyOrdinalQuestion();
                        $phrases =& $ordinal->getAvailablePhrases(1);
                        if (count($phrases))
                        {
                                $colors = array("tblrow1", "tblrow2");
                                $counter = 0;
                                foreach ($phrases as $phrase_id => $phrase_array)
                                {
                                        $this->tpl->setCurrentBlock("phraserow");
                                        $this->tpl->setVariable("PHRASE_ID", $phrase_id);
                                        $this->tpl->setVariable("COLOR_CLASS", $colors[$counter++ % 2]);
                                        $this->tpl->setVariable("PHRASE_TITLE", $phrase_array["title"]);
                                        $categories =& $ordinal->getCategoriesForPhrase($phrase_id);
                                        $this->tpl->setVariable("PHRASE_CONTENT", join($categories, ", "));
                                        $this->tpl->parseCurrentBlock();
                                }
                                $this->tpl->setCurrentBlock("Footer");
                                $this->tpl->setVariable("ARROW", "<img src=\"" . ilUtil::getImagePath("arrow_downright.gif") . "\" alt=\"\">");
                                $this->tpl->setVariable("TEXT_DELETE", $this->lng->txt("delete"));
                                $this->tpl->parseCurrentBlock();
                        }
                        else
                        {
                                $this->tpl->setCurrentBlock("Emptytable");
                                $this->tpl->setVariable("TEXT_EMPTYTABLE", $this->lng->txt("no_user_phrases_defined"));
                                $this->tpl->parseCurrentBlock();
                        }
                        $this->tpl->setCurrentBlock("adm_content");
                        $this->tpl->setVariable("INTRODUCTION_MANAGE_PHRASES", $this->lng->txt("introduction_manage_phrases"));
                        $this->tpl->setVariable("TEXT_PHRASE_TITLE", $this->lng->txt("phrase"));
                        $this->tpl->setVariable("TEXT_PHRASE_CONTENT", $this->lng->txt("categories"));
                        $this->tpl->setVariable("FORM_ACTION", $this->ctrl->getFormAction($this));
                        $this->tpl->parseCurrentBlock();
                }
                else
                {
                        sendInfo($this->lng->txt("cannot_manage_phrases"));
                }
        }
        
        function importQuestionsObject()
        {
                $this->tpl->addBlockFile("ADM_CONTENT", "adm_content", "tpl.il_svy_import_question.html", true);
                $this->tpl->setCurrentBlock("adm_content");
                $this->tpl->setVariable("TEXT_IMPORT_QUESTION", $this->lng->txt("import_question"));
                $this->tpl->setVariable("TEXT_SELECT_FILE", $this->lng->txt("select_file"));
                $this->tpl->setVariable("TEXT_UPLOAD", $this->lng->txt("upload"));
                $this->tpl->setVariable("FORM_ACTION", $this->ctrl->getFormAction($this));
                $this->tpl->parseCurrentBlock();
        }

        function uploadQuestionsObject()
        {
                // check if file was uploaded
                $source = $_FILES["qtidoc"]["tmp_name"];
                $error = 0;
                if (($source == 'none') || (!$source) || $_FILES["qtidoc"]["error"] > UPLOAD_ERR_OK)
                {
//                      $this->ilias->raiseError("No file selected!",$this->ilias->error_obj->MESSAGE);
                        $error = 1;
                }
                // check correct file type
                if (strcmp($_FILES["qtidoc"]["type"], "text/xml") != 0)
                {
//                      $this->ilias->raiseError("Wrong file type!",$this->ilias->error_obj->MESSAGE);
                        $error = 1;
                }
                if (!$error)
                {
                        // import file into questionpool
                        // create import directory
                        $this->object->createImportDirectory();

                        // copy uploaded file to import directory
                        $full_path = $this->object->getImportDirectory()."/".$_FILES["qtidoc"]["name"];

                        ilUtil::moveUploadedFile($_FILES["qtidoc"]["tmp_name"], 
                                $_FILES["qtidoc"]["name"], $full_path);
                        //move_uploaded_file($_FILES["qtidoc"]["tmp_name"], $full_path);
                        $source = $full_path;

                        $fh = fopen($source, "r") or die("");
                        $xml = fread($fh, filesize($source));
                        fclose($fh) or die("");
                        unlink($source);
                        if (preg_match_all("/(<item[^>]*>.*?<\/item>)/si", $xml, $matches))
                        {
                                foreach ($matches[1] as $index => $item)
                                {
                                        $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->object->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);
                                                        }
                                                }
                                        }
                                }
                        }
                }
                $this->ctrl->redirect($this, "questions");
        }
        
        function filterObject()
        {
                $this->questionsObject();
        }
        
        function resetObject()
        {
                $this->questionsObject();
        }
        
  function questionsObject()
  {
    global $rbacsystem;

    $add_parameter = $this->getAddParameter();

                $this->tpl->addBlockFile("ADM_CONTENT", "adm_content", "tpl.il_svy_qpl_questions.html", true);
          if ($rbacsystem->checkAccess('write', $this->ref_id)) {
          $this->tpl->addBlockFile("CREATE_QUESTION", "create_question", "tpl.il_svy_qpl_create_new_question.html", true);
            $this->tpl->addBlockFile("A_BUTTONS", "a_buttons", "tpl.il_svy_qpl_action_buttons.html", true);
                }
    $this->tpl->addBlockFile("FILTER_QUESTION_MANAGER", "filter_questions", "tpl.il_svy_qpl_filter_questions.html", true);

    // create filter form
    $filter_fields = array(
      "title" => $this->lng->txt("title"),
      "description" => $this->lng->txt("description"),
      "author" => $this->lng->txt("author"),
    );
    $this->tpl->setCurrentBlock("filterrow");
    foreach ($filter_fields as $key => $value) {
      $this->tpl->setVariable("VALUE_FILTER_TYPE", "$key");
      $this->tpl->setVariable("NAME_FILTER_TYPE", "$value");
      if (!$_POST["cmd"]["reset"]) {
        if (strcmp($_POST["sel_filter_type"], $key) == 0) {
          $this->tpl->setVariable("VALUE_FILTER_SELECTED", " selected=\"selected\"");
        }
      }
      $this->tpl->parseCurrentBlock();
    }
    
    $this->tpl->setCurrentBlock("filter_questions");
    $this->tpl->setVariable("FILTER_TEXT", $this->lng->txt("filter"));
    $this->tpl->setVariable("TEXT_FILTER_BY", $this->lng->txt("by"));
    if (!$_POST["cmd"]["reset"]) {
      $this->tpl->setVariable("VALUE_FILTER_TEXT", $_POST["filter_text"]);
    }
    $this->tpl->setVariable("VALUE_SUBMIT_FILTER", $this->lng->txt("set_filter"));
    $this->tpl->setVariable("VALUE_RESET_FILTER", $this->lng->txt("reset_filter"));
    $this->tpl->parseCurrentBlock();
    
  // create edit buttons & table footer
  if ($rbacsystem->checkAccess('write', $this->ref_id)) {
      $this->tpl->setCurrentBlock("standard");
      $this->tpl->setVariable("DELETE", $this->lng->txt("delete"));
      $this->tpl->setVariable("DUPLICATE", $this->lng->txt("duplicate"));
      $this->tpl->setVariable("COPY", $this->lng->txt("copy"));
      $this->tpl->setVariable("EXPORT", $this->lng->txt("export"));
      $this->tpl->setVariable("PASTE", $this->lng->txt("paste"));
                        if (strcmp($_SESSION["spl_copied_questions"], "") == 0)
                        {
              $this->tpl->setVariable("PASTE_DISABLED", " disabled=\"disabled\"");
                        }
      $this->tpl->setVariable("QUESTIONBLOCK", $this->lng->txt("define_questionblock"));
      $this->tpl->setVariable("UNFOLD", $this->lng->txt("unfold"));
      $this->tpl->parseCurrentBlock();
                        $this->tpl->setCurrentBlock("Footer");
                        $this->tpl->setVariable("ARROW", "<img src=\"" . ilUtil::getImagePath("arrow_downright.gif") . "\" alt=\"\">");
                        $this->tpl->parseCurrentBlock();
        }    
    
                if ($_POST["cmd"]["reset"])
                {
                        $_POST["filter_text"] = "";
                }
                $startrow = 0;
                if ($_GET["prevrow"])
                {
                        $startrow = $_GET["prevrow"];
                }               
                if ($_GET["nextrow"])
                {
                        $startrow = $_GET["nextrow"];
                }
                if ($_GET["startrow"])
                {
                        $startrow = $_GET["startrow"];
                }
                if (!$_GET["sort"])
                {
                        // default sort order
                        $_GET["sort"] = array("title" => "ASC");
                }
                $table = $this->object->getQuestionsTable($_GET["sort"], $_POST["filter_text"], $_POST["sel_filter_type"], $startrow);
    $colors = array("tblrow1", "tblrow2");
    $counter = 0;
                $last_questionblock_id = 0;
                $editable = $rbacsystem->checkAccess('write', $this->ref_id);
                foreach ($table["rows"] as $data)
                {
                        $this->tpl->setCurrentBlock("checkable");
                        $this->tpl->setVariable("QUESTION_ID", $data["question_id"]);
                        $this->tpl->parseCurrentBlock();
                        if ($data["complete"] == 0)
                        {
                                $this->tpl->setCurrentBlock("qpl_warning");
                                $this->tpl->setVariable("IMAGE_WARNING", ilUtil::getImagePath("warning.png"));
                                $this->tpl->setVariable("ALT_WARNING", $this->lng->txt("warning_question_not_complete"));
                                $this->tpl->setVariable("TITLE_WARNING", $this->lng->txt("warning_question_not_complete"));
                                $this->tpl->parseCurrentBlock();
                        }
                        $this->tpl->setCurrentBlock("QTab");

                        $class = strtolower(SurveyQuestionGUI::_getGUIClassNameForId($data["question_id"]));
                        $this->ctrl->setParameterByClass($class, "q_id", $data["question_id"]);
                        $sel_question_types = "";
                        switch ($class)
                        {
                                case "surveynominalquestiongui":
                                        $sel_question_types = "qt_nominal";
                                        break;
                                case "surveyordinalquestiongui":
                                        $sel_question_types = "qt_ordinal";
                                        break;
                                case "surveymetricquestiongui":
                                        $sel_question_types = "qt_metric";
                                        break;
                                case "surveytextquestiongui":
                                        $sel_question_types = "qt_text";
                                        break;
                        }
                        $this->ctrl->setParameterByClass($class, "sel_question_types", $sel_question_types);
                        if ($editable)
                        {
                                $this->tpl->setVariable("EDIT", "[<a href=\"" . $this->ctrl->getLinkTargetByClass($class, "editQuestion") . "\">" . $this->lng->txt("edit") . "</a>]");
                        }
                        $this->tpl->setVariable("QUESTION_TITLE", "<strong>" . $data["title"] . "</strong>");
                        //$this->lng->txt("preview")
                        $this->tpl->setVariable("PREVIEW", "[<a href=\"" . $this->ctrl->getLinkTargetByClass($class, "preview") . "\">" . $this->lng->txt("preview") . "</a>]");
                        $this->tpl->setVariable("QUESTION_DESCRIPTION", $data["description"]);
                        $this->tpl->setVariable("QUESTION_PREVIEW", $this->lng->txt("preview"));
                        $this->tpl->setVariable("QUESTION_TYPE", $this->lng->txt($data["type_tag"]));
                        $this->tpl->setVariable("QUESTION_AUTHOR", $data["author"]);
                        $this->tpl->setVariable("QUESTION_CREATED", ilFormat::formatDate(ilFormat::ftimestamp2dateDB($data["created"]), "date"));
                        $this->tpl->setVariable("QUESTION_UPDATED", ilFormat::formatDate(ilFormat::ftimestamp2dateDB($data["TIMESTAMP"]), "date"));
                        $this->tpl->setVariable("COLOR_CLASS", $colors[$counter % 2]);
                        $this->tpl->parseCurrentBlock();
                        $counter++;
    }
    
                if ($table["rowcount"] > count($table["rows"]))
                {
                        $nextstep = $table["nextrow"] + $table["step"];
                        if ($nextstep > $table["rowcount"])
                        {
                                $nextstep = $table["rowcount"];
                        }
                        $sort = "";
                        if (is_array($_GET["sort"]))
                        {
                                $key = key($_GET["sort"]);
                                $sort = "&sort[$key]=" . $_GET["sort"]["$key"];
                        }
                        $counter = 1;
                        for ($i = 0; $i < $table["rowcount"]; $i += $table["step"])
                        {
                                $this->tpl->setCurrentBlock("pages");
                                if ($table["startrow"] == $i)
                                {
                                        $this->tpl->setVariable("PAGE_NUMBER", "<span class=\"inactivepage\">$counter</span>");
                                }
                                else
                                {
                                        $this->tpl->setVariable("PAGE_NUMBER", "<a href=\"" . $this->ctrl->getFormAction($this) . "$sort&nextrow=$i" . "\">$counter</a>");
                                }
                                $this->tpl->parseCurrentBlock();
                                $counter++;
                        }
                        $this->tpl->setCurrentBlock("navigation_bottom");
                        $this->tpl->setVariable("TEXT_ITEM", $this->lng->txt("item"));
                        $this->tpl->setVariable("TEXT_ITEM_START", $table["startrow"] + 1);
                        $end = $table["startrow"] + $table["step"];
                        if ($end > $table["rowcount"])
                        {
                                $end = $table["rowcount"];
                        }
                        $this->tpl->setVariable("TEXT_ITEM_END", $end);
                        $this->tpl->setVariable("TEXT_OF", strtolower($this->lng->txt("of")));
                        $this->tpl->setVariable("TEXT_ITEM_COUNT", $table["rowcount"]);
                        $this->tpl->setVariable("TEXT_PREVIOUS", $this->lng->txt("previous"));
                        $this->tpl->setVariable("TEXT_NEXT", $this->lng->txt("next"));
                        $this->tpl->setVariable("HREF_PREV_ROWS", $this->ctrl->getFormAction($this) . "$sort&prevrow=" . $table["prevrow"]);
                        $this->tpl->setVariable("HREF_NEXT_ROWS", $this->ctrl->getFormAction($this) . "$sort&nextrow=" . $table["nextrow"]);
                        $this->tpl->parseCurrentBlock();
                }

    // if there are no questions, display a message
    if ($counter == 0) {
      $this->tpl->setCurrentBlock("Emptytable");
      $this->tpl->setVariable("TEXT_EMPTYTABLE", $this->lng->txt("no_questions_available"));
      $this->tpl->parseCurrentBlock();
    }
    
          if ($rbacsystem->checkAccess('write', $this->ref_id)) {
                        // "create question" form
                        $this->tpl->setCurrentBlock("QTypes");
                        $query = "SELECT * FROM survey_questiontype ORDER BY questiontype_id";
                        $query_result = $this->ilias->db->query($query);
                        while ($data = $query_result->fetchRow(DB_FETCHMODE_OBJECT))
                        {
                                $this->tpl->setVariable("QUESTION_TYPE_ID", $data->type_tag);
                                $this->tpl->setVariable("QUESTION_TYPE", $this->lng->txt($data->type_tag));
                                $this->tpl->parseCurrentBlock();
                        }
                        $this->tpl->setCurrentBlock("CreateQuestion");
                        $this->tpl->setVariable("QUESTION_ADD", $this->lng->txt("create"));
                        $this->tpl->setVariable("QUESTION_IMPORT", $this->lng->txt("import"));
                        $this->tpl->setVariable("ACTION_QUESTION_ADD", $this->ctrl->getFormAction($this));
                        $this->tpl->parseCurrentBlock();
                }
    // define the sort column parameters
    $sortcolumns = array(
      "title" => $_GET["sort"]["title"],
      "description" => $_GET["sort"]["description"],
      "type" => $_GET["sort"]["type"],
      "author" => $_GET["sort"]["author"],
      "created" => $_GET["sort"]["created"],
      "updated" => $_GET["sort"]["updated"]
    );
    foreach ($sortcolumns as $key => $value) {
      if (strcmp($value, "ASC") == 0) {
        $sortcolumns[$key] = "DESC";
      } else {
        $sortcolumns[$key] = "ASC";
      }
    }
    
    $this->tpl->setCurrentBlock("adm_content");
    // create table header
                $this->ctrl->setParameterByClass(get_class($this), "startrow", $table["startrow"]);
    $this->tpl->setVariable("QUESTION_TITLE", "<a href=\"" . $this->ctrl->getFormAction($this) . "&sort[title]=" . $sortcolumns["title"] . "\">" . $this->lng->txt("title") . "</a>" . $table["images"]["title"]);
    $this->tpl->setVariable("QUESTION_DESCRIPTION", "<a href=\"" . $this->ctrl->getFormAction($this) . "&sort[description]=" . $sortcolumns["description"] . "\">" . $this->lng->txt("description") . "</a>". $table["images"]["description"]);
    $this->tpl->setVariable("QUESTION_TYPE", "<a href=\"" . $this->ctrl->getFormAction($this) . "&sort[type]=" . $sortcolumns["type"] . "\">" . $this->lng->txt("question_type") . "</a>" . $table["images"]["type"]);
    $this->tpl->setVariable("QUESTION_AUTHOR", "<a href=\"" . $this->ctrl->getFormAction($this) . "&sort[author]=" . $sortcolumns["author"] . "\">" . $this->lng->txt("author") . "</a>" . $table["images"]["author"]);
    $this->tpl->setVariable("QUESTION_CREATED", "<a href=\"" . $this->ctrl->getFormAction($this) . "&sort[created]=" . $sortcolumns["created"] . "\">" . $this->lng->txt("create_date") . "</a>" . $table["images"]["created"]);
    $this->tpl->setVariable("QUESTION_UPDATED", "<a href=\"" . $this->ctrl->getFormAction($this) . "&sort[updated]=" . $sortcolumns["updated"] . "\">" . $this->lng->txt("last_update") . "</a>" . $table["images"]["updated"]);
    $this->tpl->setVariable("BUTTON_CANCEL", $this->lng->txt("cancel"));
    $this->tpl->setVariable("ACTION_QUESTION_FORM", $this->ctrl->getFormAction($this));
    $this->tpl->parseCurrentBlock();
                unset($_SESSION["calling_survey"]);
  }

        function editMetaObject()
        {
                $meta_gui =& new ilMetaDataGUI();
                $meta_gui->setObject($this->object);
                $meta_gui->edit("ADM_CONTENT", "adm_content",
                        "$this->defaultscript?ref_id=".$_GET["ref_id"]."&cmd=saveMeta");
        }
        
        function saveMetaObject()
        {
                global $rbacsystem;
                
                if (!$rbacsystem->checkAccess("write", $this->object->getRefId()))
                {
                        sendInfo($this->lng->txt("cannot_save_metaobject"));
                        $this->editMetaObject();
                        return;
                }
                else
                {
                        $meta_gui =& new ilMetaDataGUI();
                        $meta_gui->setObject($this->object);
                        $meta_gui->save($_POST["meta_section"]);
                }
                $this->ctrl->redirect($this, "editMeta");
        }

        // called by administration
        function chooseMetaSectionObject($a_script = "",
                $a_templ_var = "ADM_CONTENT", $a_templ_block = "adm_content")
        {
                if ($a_script == "")
                {
                        $a_script = "$this->defaultscript?ref_id=".$_GET["ref_id"];
                }
                $meta_gui =& new ilMetaDataGUI();
                $meta_gui->setObject($this->object);
                $meta_gui->edit($a_templ_var, $a_templ_block, $a_script, $_REQUEST["meta_section"]);
        }

        // called by editor
        function chooseMetaSection()
        {
                $this->chooseMetaSectionObject("$this->defaultscript?ref_id=".
                        $this->object->getRefId());
        }

        function addMetaObject($a_script = "",
                $a_templ_var = "ADM_CONTENT", $a_templ_block = "adm_content")
        {
                if ($a_script == "")
                {
                        $a_script = "$this->defaultscript?ref_id=".$_GET["ref_id"];
                }
                $meta_gui =& new ilMetaDataGUI();
                $meta_gui->setObject($this->object);
                $meta_name = $_POST["meta_name"] ? $_POST["meta_name"] : $_GET["meta_name"];
                $meta_index = $_POST["meta_index"] ? $_POST["meta_index"] : $_GET["meta_index"];
                if ($meta_index == "")
                        $meta_index = 0;
                $meta_path = $_POST["meta_path"] ? $_POST["meta_path"] : $_GET["meta_path"];
                $meta_section = $_POST["meta_section"] ? $_POST["meta_section"] : $_GET["meta_section"];
                if ($meta_name != "")
                {
                        $meta_gui->meta_obj->add($meta_name, $meta_path, $meta_index);
                }
                else
                {
                        sendInfo($this->lng->txt("meta_choose_element"), true);
                }
                $meta_gui->edit($a_templ_var, $a_templ_block, $a_script, $meta_section);
        }

        function addMeta()
        {
                $this->addMetaObject("$this->defaultscript?ref_id=".
                        $this->object->getRefId());
        }

        function deleteMetaObject($a_script = "",
                $a_templ_var = "ADM_CONTENT", $a_templ_block = "adm_content")
        {
                if ($a_script == "")
                {
                        $a_script = "$this->defaultscript?ref_id=".$_GET["ref_id"];
                }
                $meta_gui =& new ilMetaDataGUI();
                $meta_gui->setObject($this->object);
                $meta_index = $_POST["meta_index"] ? $_POST["meta_index"] : $_GET["meta_index"];
                $meta_gui->meta_obj->delete($_GET["meta_name"], $_GET["meta_path"], $meta_index);
                $meta_gui->edit($a_templ_var, $a_templ_block, $a_script, $_GET["meta_section"]);
        }

        function deleteMeta()
        {
                $this->deleteMetaObject("$this->defaultscript?ref_id=".
                        $this->object->getRefId());
        }
        
        function updateObject() {
                $this->update = $this->object->updateMetaData();
                sendInfo($this->lng->txt("msg_obj_modified"), true);
        }

        function setLocator($a_tree = "", $a_id = "", $scriptname="repository.php", $question_title = "")
        {
                $ilias_locator = new ilLocatorGUI(false);
                if (!is_object($a_tree))
                {
                        $a_tree =& $this->tree;
                }
                if (!($a_id))
                {
                        $a_id = $_GET["ref_id"];
                }
                if (!($scriptname))
                {
                        $scriptname = "repository.php";
                }
                $path = $a_tree->getPathFull($a_id);
                //check if object isn't in tree, this is the case if parent_parent is set
                // TODO: parent_parent no longer exist. need another marker
                if ($a_parent_parent)
                {
                        //$subObj = getObject($a_ref_id);
                        $subObj =& $this->ilias->obj_factory->getInstanceByRefId($a_ref_id);

                        $path[] = array(
                                "id"     => $a_ref_id,
                                "title"  => $this->lng->txt($subObj->getTitle())
                                );
                }

                // this is a stupid workaround for a bug in PEAR:IT
                $modifier = 1;

                if (isset($_GET["obj_id"]))
                {
                        $modifier = 0;
                }

                // ### AA 03.11.10 added new locator GUI class ###
                $i = 1;

                if (!defined("ILIAS_MODULE")) {
                        foreach ($path as $key => $row)
                        {
                                $ilias_locator->navigate($i++, $row["title"], ilUtil::removeTrailingPathSeparators(ILIAS_HTTP_PATH) . "/adm_object.php?ref_id=".$row["child"], "");
                        }
                } else {
                        foreach ($path as $key => $row)
                        {
                                if (strcmp($row["title"], "ILIAS") == 0) {
                                        $row["title"] = $this->lng->txt("repository");
                                }
                                if ($this->ref_id == $row["child"]) {
                                        $param = "&cmd=questions";
                                        $ilias_locator->navigate($i++, $row["title"], ilUtil::removeTrailingPathSeparators(ILIAS_HTTP_PATH) . "/survey/questionpool.php" . "?ref_id=".$row["child"] . $param,"target=\"bottom\"");
                                        switch ($_GET["cmd"]) {
                                                case "questions":
                                                        $id = $_GET["edit"];
                                                        if (!$id) {
                                                                $id = $_POST["id"];
                                                        }
                                                        if ($question_title) {
                                                                if ($id > 0)
                                                                {
                                                                        $ilias_locator->navigate($i++, $question_title, ilUtil::removeTrailingPathSeparators(ILIAS_HTTP_PATH) . "/survey/questionpool.php" . "?ref_id=".$row["child"] . "&cmd=questions&edit=$id","target=\"bottom\"");
                                                                }
                                                        }
                                                        break;
                                        }
                                } else {
                                        $ilias_locator->navigate($i++, $row["title"], ilUtil::removeTrailingPathSeparators(ILIAS_HTTP_PATH) . "/" . $scriptname."?ref_id=".$row["child"],"target=\"bottom\"");
                                }
                        }
        
                        if (isset($_GET["obj_id"]))
                        {
                                $obj_data =& $this->ilias->obj_factory->getInstanceByObjId($_GET["obj_id"]);
                                $ilias_locator->navigate($i++,$obj_data->getTitle(),$scriptname."?ref_id=".$_GET["ref_id"]."&obj_id=".$_GET["obj_id"],"target=\"bottom\"");
                        }
                }
                $ilias_locator->output(true);
        }
        
        function permObject()
        {
                global $rbacsystem, $rbacreview;

                static $num = 0;

                if (!$rbacsystem->checkAccess("edit_permission", $this->object->getRefId()))
                {
                        $this->ilias->raiseError($this->lng->txt("msg_no_perm_perm"),$this->ilias->error_obj->MESSAGE);
                        exit();
                }

                // only display superordinate roles; local roles with other scope are not displayed
                $parentRoles = $rbacreview->getParentRoleIds($this->object->getRefId());

                $data = array();

                // GET ALL LOCAL ROLE IDS
                $role_folder = $rbacreview->getRoleFolderOfObject($this->object->getRefId());

                $local_roles = array();

                if ($role_folder)
                {
                        $local_roles = $rbacreview->getRolesOfRoleFolder($role_folder["ref_id"]);
                }

                foreach ($parentRoles as $key => $r)
                {
                        if ($r["obj_id"] == SYSTEM_ROLE_ID)
                        {
                                unset($parentRoles[$key]);
                                continue;
                        }

                        if (!in_array($r["obj_id"],$local_roles))
                        {
                                $data["check_inherit"][] = ilUtil::formCheckBox(0,"stop_inherit[]",$r["obj_id"]);
                        }
                        else
                        {
                                $r["link"] = true;

                                // don't display a checkbox for local roles AND system role
                                if ($rbacreview->isAssignable($r["obj_id"],$role_folder["ref_id"]))
                                {
                                        $data["check_inherit"][] = "&nbsp;";
                                }
                                else
                                {
                                        // linked local roles with stopped inheritance
                                        $data["check_inherit"][] = ilUtil::formCheckBox(1,"stop_inherit[]",$r["obj_id"]);
                                }
                        }

                        $data["roles"][] = $r;
                }

                $ope_list = getOperationList($this->object->getType());

                // BEGIN TABLE_DATA_OUTER
                foreach ($ope_list as $key => $operation)
                {
                        $opdata = array();

                        $opdata["name"] = $operation["operation"];

                        $colspan = count($parentRoles) + 1;

                        foreach ($parentRoles as $role)
                        {
                                $checked = $rbacsystem->checkPermission($this->object->getRefId(), $role["obj_id"],$operation["operation"],$_GET["parent"]);
                                $disabled = false;

                                // Es wird eine 2-dim Post Variable bergeben: perm[rol_id][ops_id]
                                $box = ilUtil::formCheckBox($checked,"perm[".$role["obj_id"]."][]",$operation["ops_id"],$disabled);
                                $opdata["values"][] = $box;
                        }

                        $data["permission"][] = $opdata;
                }

                // START DATA OUTPUT

                $this->getTemplateFile("perm");
                $this->tpl->setCurrentBlock("tableheader");
                $this->tpl->setVariable("TXT_TITLE", $this->lng->txt("permission_settings"));
                $this->tpl->setVariable("COLSPAN", $colspan);
                $this->tpl->setVariable("TXT_OPERATION", $this->lng->txt("operation"));
                $this->tpl->setVariable("TXT_ROLES", $this->lng->txt("roles"));
                $this->tpl->parseCurrentBlock();

                $num = 0;

                foreach($data["roles"] as $role)
                {
                        // BLOCK ROLENAMES
                        if ($role["link"])
                        {
                                $this->tpl->setCurrentBlock("ROLELINK_OPEN");
                                $this->tpl->setVariable("LINK_ROLE_RULESET","$this->defaultscript?ref_id=".$role_folder["ref_id"]."&obj_id=".$role["obj_id"]."&cmd=perm");
                                $this->tpl->setVariable("TXT_ROLE_RULESET",$this->lng->txt("edit_perm_ruleset"));
                                $this->tpl->parseCurrentBlock();

                                $this->tpl->touchBlock("ROLELINK_CLOSE");
                        }

                        $this->tpl->setCurrentBlock("ROLENAMES");
                        $this->tpl->setVariable("ROLE_NAME",$role["title"]);
                        $this->tpl->parseCurrentBlock();

                        // BLOCK CHECK INHERIT
                        if ($this->objDefinition->stopInheritance($this->type))
                        {
                                $this->tpl->setCurrentBLock("CHECK_INHERIT");
                                $this->tpl->setVariable("CHECK_INHERITANCE",$data["check_inherit"][$num]);
                                $this->tpl->parseCurrentBlock();
                        }

                        $num++;
                }

                // save num for required column span and the end of parsing
                $colspan = $num + 1;
                $num = 0;

                // offer option 'stop inheritance' only to those objects where this option is permitted
                if ($this->objDefinition->stopInheritance($this->type))
                {
                        $this->tpl->setCurrentBLock("STOP_INHERIT");
                        $this->tpl->setVariable("TXT_STOP_INHERITANCE", $this->lng->txt("stop_inheritance"));
                        $this->tpl->parseCurrentBlock();
                }

                foreach ($data["permission"] as $ar_perm)
                {
                        foreach ($ar_perm["values"] as $box)
                        {
                                // BEGIN TABLE CHECK PERM
                                $this->tpl->setCurrentBlock("CHECK_PERM");
                                $this->tpl->setVariable("CHECK_PERMISSION",$box);
                                $this->tpl->parseCurrentBlock();
                                // END CHECK PERM
                        }

                        // BEGIN TABLE DATA OUTER
                        $this->tpl->setCurrentBlock("TABLE_DATA_OUTER");
                        $css_row = ilUtil::switchColor($num++, "tblrow1", "tblrow2");
                        $this->tpl->setVariable("CSS_ROW",$css_row);
                        $this->tpl->setVariable("PERMISSION", $this->lng->txt($this->object->getType()."_".$ar_perm["name"]));
                        $this->tpl->parseCurrentBlock();
                        // END TABLE DATA OUTER
                }

                // ADD LOCAL ROLE - Skip that until I know how it works with the module folder
                if (false)
                // if ($this->object->getRefId() != ROLE_FOLDER_ID and $rbacsystem->checkAccess('create_role',$this->object->getRefId()))
                {
                        $this->tpl->setCurrentBlock("LOCAL_ROLE");

                        // fill in saved values in case of error
                        $data = array();
                        $data["fields"] = array();
                        $data["fields"]["title"] = $_SESSION["error_post_vars"]["Fobject"]["title"];
                        $data["fields"]["desc"] = $_SESSION["error_post_vars"]["Fobject"]["desc"];

                        foreach ($data["fields"] as $key => $val)
                        {
                                $this->tpl->setVariable("TXT_".strtoupper($key), $this->lng->txt($key));
                                $this->tpl->setVariable(strtoupper($key), $val);
                        }

                        $this->tpl->setVariable("FORMACTION_LR",$this->getFormAction("addRole", "$this->defaultscript?ref_id=".$_GET["ref_id"]."&cmd=addRole"));
                        $this->tpl->setVariable("TXT_HEADER", $this->lng->txt("you_may_add_local_roles"));
                        $this->tpl->setVariable("TXT_ADD", $this->lng->txt("role_add_local"));
                        $this->tpl->setVariable("TARGET", $this->getTargetFrame("addRole"));
                        $this->tpl->setVariable("TXT_REQUIRED_FLD", $this->lng->txt("required_field"));
                        $this->tpl->parseCurrentBlock();
                }

                // PARSE BLOCKFILE
                $this->tpl->setCurrentBlock("adm_content");
                $this->tpl->setVariable("FORMACTION", $this->getFormAction("permSave","$this->defaultscript?".$this->link_params."&cmd=permSave"));
                $this->tpl->setVariable("TXT_SAVE", $this->lng->txt("save"));
                $this->tpl->setVariable("COL_ANZ",$colspan);
                $this->tpl->parseCurrentBlock();
        }

        function permSaveObject()
        {
                global $rbacsystem, $rbacreview, $rbacadmin;

                // first save the new permission settings for all roles
                $rbacadmin->revokePermission($this->ref_id);

                if (is_array($_POST["perm"]))
                {
                        foreach ($_POST["perm"] as $key => $new_role_perms)
                        {
                                // $key enthaelt die aktuelle Role_Id
                                $rbacadmin->grantPermission($key,$new_role_perms,$this->ref_id);
                        }
                }

                // update object data entry (to update last modification date)
                $this->object->update();

                // get rolefolder data if a rolefolder already exists
                $rolf_data = $rbacreview->getRoleFolderOfObject($this->ref_id);
                $rolf_id = $rolf_data["child"];

                if ($_POST["stop_inherit"])
                {
                        // rolefolder does not exist, so create one
                        if (empty($rolf_id))
                        {
                                // create a local role folder
                                $rfoldObj = $this->object->createRoleFolder();

                                // set rolf_id again from new rolefolder object
                                $rolf_id = $rfoldObj->getRefId();
                        }

                        // CHECK ACCESS write of role folder
                        if (!$rbacsystem->checkAccess("write",$rolf_id))
                        {
                                $this->ilias->raiseError($this->lng->txt("msg_no_perm_write"),$this->ilias->error_obj->WARNING);
                        }

                        foreach ($_POST["stop_inherit"] as $stop_inherit)
                        {
                                $roles_of_folder = $rbacreview->getRolesOfRoleFolder($rolf_id);

                                // create role entries for roles with stopped inheritance
                                if (!in_array($stop_inherit,$roles_of_folder))
                                {
                                        $parentRoles = $rbacreview->getParentRoleIds($rolf_id);
                                        $rbacadmin->copyRolePermission($stop_inherit,$parentRoles[$stop_inherit]["parent"],
                                                                                                   $rolf_id,$stop_inherit);
                                        $rbacadmin->assignRoleToFolder($stop_inherit,$rolf_id,'n');
                                }
                        }// END FOREACH
                }// END STOP INHERIT
                elseif  (!empty($rolf_id))
                {
                        // TODO: this feature doesn't work at the moment
                        // ok. if the rolefolder is not empty, delete the local roles
                        //if (!empty($roles_of_folder = $rbacreview->getRolesOfRoleFolder($rolf_data["ref_id"])));
                        //{
                                //foreach ($roles_of_folder as $obj_id)
                                //{
                                        //$rolfObj =& $this->ilias->obj_factory->getInstanceByRefId($rolf_data["child"]);
                                        //$rolfObj->delete();
                                        //unset($rolfObj);
                                //}
                        //}
                }

                sendinfo($this->lng->txt("saved_successfully"),true);
                ilUtil::redirect($this->getReturnLocation("permSave","$this->defaultscript?ref_id=".$_GET["ref_id"]."&cmd=perm"));
        }
        
        /*
        * list all export files
        */
        function exportObject()
        {
                global $tree;

                //$this->setTabs();

                //add template for view button
                $this->tpl->addBlockfile("BUTTONS", "buttons", "tpl.buttons.html");

                // create export file button
                $this->tpl->setCurrentBlock("btn_cell");
                $this->tpl->setVariable("BTN_LINK", $this->ctrl->getLinkTarget($this, "createExportFile"));
                $this->tpl->setVariable("BTN_TXT", $this->lng->txt("svy_create_export_file"));
                $this->tpl->parseCurrentBlock();

                $export_dir = $this->object->getExportDirectory();
                $export_files = $this->object->getExportFiles($export_dir);

                // create table
                require_once("classes/class.ilTableGUI.php");
                $tbl = new ilTableGUI();

                // load files templates
                $this->tpl->addBlockfile("ADM_CONTENT", "adm_content", "tpl.table.html");

                // load template for table content data
                $this->tpl->addBlockfile("TBL_CONTENT", "tbl_content", "tpl.export_file_row.html", true);

                $num = 0;

                $this->tpl->setVariable("FORMACTION", $this->ctrl->getFormAction($this));

                $tbl->setTitle($this->lng->txt("svy_export_files"));

                $tbl->setHeaderNames(array("<input type=\"checkbox\" name=\"chb_check_all\" value=\"1\" onclick=\"setCheckboxes('ObjectItems', 'file', document.ObjectItems.chb_check_all.checked);\" />", $this->lng->txt("svy_file"),
                        $this->lng->txt("svy_size"), $this->lng->txt("date") ));

                $tbl->enabled["sort"] = false;
                $tbl->setColumnWidth(array("1%", "49%", "25%", "25%"));

                // control
                $tbl->setOrderColumn($_GET["sort_by"]);
                $tbl->setOrderDirection($_GET["sort_order"]);
                $tbl->setLimit($_GET["limit"]);
                $tbl->setOffset($_GET["offset"]);
                $tbl->setMaxCount($this->maxcount);             // ???

                $this->tpl->setVariable("COLUMN_COUNTS", 4);

                // delete button
                $this->tpl->setVariable("IMG_ARROW", ilUtil::getImagePath("arrow_downright.gif"));
                $this->tpl->setCurrentBlock("tbl_action_btn");
                $this->tpl->setVariable("BTN_NAME", "confirmDeleteExportFile");
                $this->tpl->setVariable("BTN_VALUE", $this->lng->txt("delete"));
                $this->tpl->parseCurrentBlock();

                $this->tpl->setCurrentBlock("tbl_action_btn");
                $this->tpl->setVariable("BTN_NAME", "downloadExportFile");
                $this->tpl->setVariable("BTN_VALUE", $this->lng->txt("download"));
                $this->tpl->parseCurrentBlock();

                // footer
                $tbl->setFooter("tblfooter",$this->lng->txt("previous"),$this->lng->txt("next"));
                //$tbl->disable("footer");

                $tbl->setMaxCount(count($export_files));
                $export_files = array_slice($export_files, $_GET["offset"], $_GET["limit"]);

                $tbl->render();
                if(count($export_files) > 0)
                {
                        $i=0;
                        foreach($export_files as $exp_file)
                        {
                                $this->tpl->setCurrentBlock("tbl_content");
                                $this->tpl->setVariable("TXT_FILENAME", $exp_file);

                                $css_row = ilUtil::switchColor($i++, "tblrow1", "tblrow2");
                                $this->tpl->setVariable("CSS_ROW", $css_row);

                                $this->tpl->setVariable("TXT_SIZE", filesize($export_dir."/".$exp_file));
                                $this->tpl->setVariable("CHECKBOX_ID", $exp_file);

                                $file_arr = explode("__", $exp_file);
                                $this->tpl->setVariable("TXT_DATE", date("Y-m-d H:i:s",$file_arr[0]));

                                $this->tpl->parseCurrentBlock();
                        }
                } //if is_array
                else
                {
                        $this->tpl->setCurrentBlock("notfound");
                        $this->tpl->setVariable("TXT_OBJECT_NOT_FOUND", $this->lng->txt("obj_not_found"));
                        $this->tpl->setVariable("NUM_COLS", 3);
                        $this->tpl->parseCurrentBlock();
                }

                $this->tpl->parseCurrentBlock();
        }

        function createExportFileObject($questions)
        {
                global $rbacsystem;
                
                if ($rbacsystem->checkAccess("write", $this->ref_id))
                {
                        require_once("./survey/classes/class.ilSurveyQuestionpoolExport.php");
                        $survey_exp = new ilSurveyQuestionpoolExport($this->object);
                        $survey_exp->buildExportFile($questions);
                        ilUtil::redirect("questionpool.php?cmd=export&ref_id=".$_GET["ref_id"]);
                        //$this->exportObject();
                }
                else
                {
                        sendInfo("cannot_export_questionpool");
                }
        }
        
        function downloadExportFileObject()
        {
                if(!isset($_POST["file"]))
                {
                        $this->ilias->raiseError($this->lng->txt("no_checkbox"),$this->ilias->error_obj->MESSAGE);
                }

                if (count($_POST["file"]) > 1)
                {
                        $this->ilias->raiseError($this->lng->txt("select_max_one_item"),$this->ilias->error_obj->MESSAGE);
                }


                $export_dir = $this->object->getExportDirectory();
                ilUtil::deliverFile($export_dir."/".$_POST["file"][0],
                        $_POST["file"][0]);
        }

        function confirmDeleteExportFileObject()
        {
                if(!isset($_POST["file"]))
                {
                        $this->ilias->raiseError($this->lng->txt("no_checkbox"),$this->ilias->error_obj->MESSAGE);
                }

                //$this->setTabs();

                // SAVE POST VALUES
                $_SESSION["ilExportFiles"] = $_POST["file"];

                $this->tpl->addBlockFile("ADM_CONTENT", "adm_content", "tpl.confirm_deletion.html", true);

                sendInfo($this->lng->txt("info_delete_sure"));

                $this->tpl->setVariable("FORMACTION", $this->ctrl->getFormAction($this));

                // BEGIN TABLE HEADER
                $this->tpl->setCurrentBlock("table_header");
                $this->tpl->setVariable("TEXT",$this->lng->txt("objects"));
                $this->tpl->parseCurrentBlock();

                // BEGIN TABLE DATA
                $counter = 0;
                foreach($_POST["file"] as $file)
                {
                                $this->tpl->setCurrentBlock("table_row");
                                $this->tpl->setVariable("CSS_ROW",ilUtil::switchColor(++$counter,"tblrow1","tblrow2"));
                                $this->tpl->setVariable("TEXT_CONTENT", $file);
                                $this->tpl->parseCurrentBlock();
                }

                // cancel/confirm button
                $this->tpl->setVariable("IMG_ARROW",ilUtil::getImagePath("arrow_downright.gif"));
                $buttons = array( "cancelDeleteExportFile"  => $this->lng->txt("cancel"),
                        "deleteExportFile"  => $this->lng->txt("confirm"));
                foreach ($buttons as $name => $value)
                {
                        $this->tpl->setCurrentBlock("operation_btn");
                        $this->tpl->setVariable("BTN_NAME",$name);
                        $this->tpl->setVariable("BTN_VALUE",$value);
                        $this->tpl->parseCurrentBlock();
                }
        }


        function cancelDeleteExportFileObject()
        {
                session_unregister("ilExportFiles");
                $this->ctrl->redirect($this, "export");
        }


        function deleteExportFileObject()
        {
                $export_dir = $this->object->getExportDirectory();
                foreach($_SESSION["ilExportFiles"] as $file)
                {
                        $exp_file = $export_dir."/".$file;
                        $exp_dir = $export_dir."/".substr($file, 0, strlen($file) - 4);
                        if (@is_file($exp_file))
                        {
                                unlink($exp_file);
                        }
                        if (@is_dir($exp_dir))
                        {
                                ilUtil::delDir($exp_dir);
                        }
                }
                $this->ctrl->redirect($this, "export");
        }

        function importObject()
        {
                $this->getTemplateFile("import", "spl");
                $this->tpl->setVariable("FORMACTION", "adm_object.php?&ref_id=".$_GET["ref_id"]."&cmd=gateway&new_type=".$this->type);
                $this->tpl->setVariable("BTN_NAME", "uploadSpl");
                $this->tpl->setVariable("TXT_UPLOAD", $this->lng->txt("upload"));
                $this->tpl->setVariable("TXT_IMPORT_SPL", $this->lng->txt("import_spl"));
                $this->tpl->setVariable("TXT_SELECT_MODE", $this->lng->txt("select_mode"));
                $this->tpl->setVariable("TXT_SELECT_FILE", $this->lng->txt("select_file"));
        }

        function uploadSplObject($redirect = true)
        {
                if ($_FILES["xmldoc"]["error"] > UPLOAD_ERR_OK)
                {
                        sendInfo($this->lng->txt("spl_select_file_for_import"));
                        $this->importObject();
                        return;
                }
                require_once "./survey/classes/class.ilObjSurveyQuestionpool.php";
                // create new questionpool object
                $newObj = new ilObjSurveyQuestionpool();
                // set type of questionpool object
                $newObj->setType($_GET["new_type"]);
                // set title of questionpool object to "dummy"
                $newObj->setTitle("dummy");
                // set description of questionpool object to "dummy"
                //$newObj->setDescription("dummy");
                // create the questionpool class in the ILIAS database (object_data table)
                $newObj->create(true);
                // create a reference for the questionpool object in the ILIAS database (object_reference table)
                $newObj->createReference();
                // put the questionpool object in the administration tree
                $newObj->putInTree($_GET["ref_id"]);
                // get default permissions and set the permissions for the questionpool object
                $newObj->setPermissions($_GET["ref_id"]);
                // notify the questionpool object and all its parent objects that a "new" object was created
                $newObj->notify("new",$_GET["ref_id"],$_GET["parent_non_rbac_id"],$_GET["ref_id"],$newObj->getRefId());

                // create import directory
                $newObj->createImportDirectory();

                // copy uploaded file to import directory
                $file = pathinfo($_FILES["xmldoc"]["name"]);
                $full_path = $newObj->getImportDirectory()."/".$_FILES["xmldoc"]["name"];
                ilUtil::moveUploadedFile($_FILES["xmldoc"]["tmp_name"], 
                        $_FILES["xmldoc"]["name"], $full_path);
                //move_uploaded_file($_FILES["xmldoc"]["tmp_name"], $full_path);

                // import qti data
                $qtiresult = $newObj->importObject($full_path);
                /* update title and description in object data */
                if (is_object($newObj->meta_data))
                {
                        // read the object metadata from the nested set tables
                        $meta_data =& new ilMetaData($newObj->getType(), $newObj->getId());
                        $newObj->meta_data = $meta_data;
                        $newObj->setTitle($newObj->meta_data->getTitle());
                        $newObj->setDescription($newObj->meta_data->getDescription());
                        ilObject::_writeTitle($newObj->getID(), $newObj->getTitle());
                        ilObject::_writeDescription($newObj->getID(), $newObj->getDescription());
                }

                if ($redirect)
                {
                        ilUtil::redirect("adm_object.php?".$this->link_params);
                }
        }
                
        function createObject()
        {
                global $rbacsystem;
                $new_type = $_POST["new_type"] ? $_POST["new_type"] : $_GET["new_type"];
                if (!$rbacsystem->checkAccess("create", $_GET["ref_id"], $new_type))
                {
                        $this->ilias->raiseError($this->lng->txt("permission_denied"),$this->ilias->error_obj->MESSAGE);
                }
                else
                {
                        $this->getTemplateFile("create", $new_type);

                        require_once("./survey/classes/class.ilObjSurvey.php");
                        
                        // fill in saved values in case of error
                        $data = array();
                        $data["fields"] = array();
                        $data["fields"]["title"] = ilUtil::prepareFormOutput($_SESSION["error_post_vars"]["Fobject"]["title"],true);
                        $data["fields"]["desc"] = ilUtil::prepareFormOutput($_SESSION["error_post_vars"]["Fobject"]["desc"]);

                        foreach ($data["fields"] as $key => $val)
                        {
                                $this->tpl->setVariable("TXT_".strtoupper($key), $this->lng->txt($key));
                                $this->tpl->setVariable(strtoupper($key), $val);

                                if ($this->prepare_output)
                                {
                                        $this->tpl->parseCurrentBlock();
                                }
                        }

                        $this->tpl->setVariable("FORMACTION", $this->getFormAction("save","adm_object.php?cmd=gateway&ref_id=".
                                                                                                                                           $_GET["ref_id"]."&new_type=".$new_type));
                        $this->tpl->setVariable("TXT_HEADER", $this->lng->txt($new_type."_new"));
                        $this->tpl->setVariable("TXT_CANCEL", $this->lng->txt("cancel"));
                        $this->tpl->setVariable("TXT_SUBMIT", $this->lng->txt($new_type."_add"));
                        $this->tpl->setVariable("CMD_SUBMIT", "save");
                        $this->tpl->setVariable("TARGET", $this->getTargetFrame("save"));
                        $this->tpl->setVariable("TXT_REQUIRED_FLD", $this->lng->txt("required_field"));

                        $this->tpl->setVariable("TXT_IMPORT_SPL", $this->lng->txt("import_spl"));
                        $this->tpl->setVariable("TXT_SPL_FILE", $this->lng->txt("spl_upload_file"));
                        $this->tpl->setVariable("TXT_IMPORT", $this->lng->txt("import"));
                }
        }

        function importFileObject()
        {
                if (strcmp($_FILES["xmldoc"]["tmp_name"], "") == 0)
                {
                        sendInfo($this->lng->txt("spl_select_file_for_import"));
                        $this->createObject();
                        return;
                }
                $this->uploadSplObject(false);
                ilUtil::redirect($this->getReturnLocation("importFile",$this->ctrl->getTargetScript()."?".$this->link_params));
//              $this->ctrl->redirect($this, "questions");
        }

        function &executeCommand()
        {
                $cmd = $this->ctrl->getCmd("questions");
                $next_class = $this->ctrl->getNextClass($this);
                $this->ctrl->setReturn($this, "questions");
                $q_type = ($_POST["sel_question_types"] != "")
                        ? $_POST["sel_question_types"]
                        : $_GET["sel_question_types"];

//echo "<br>nextclass:$next_class:cmd:$cmd:qtype=$q_type";
                switch($next_class)
                {
                        case "surveynominalquestiongui":
                                $this->ctrl->setParameterByClass("surveynominalquestiongui", "sel_question_types", $q_type);
                                $q_gui =& SurveyQuestionGUI::_getQuestionGUI($q_type, $_GET["q_id"]);
                                $q_gui->object->setObjId($this->object->getId());
                                $q_gui->setQuestionTabs();
                                $ret =& $this->ctrl->forwardCommand($q_gui);
                                break;

                        case "surveyordinalquestiongui":
                                $this->ctrl->setParameterByClass("surveyordinalquestiongui", "sel_question_types", $q_type);
                                $q_gui =& SurveyQuestionGUI::_getQuestionGUI($q_type, $_GET["q_id"]);
                                $q_gui->object->setObjId($this->object->getId());
                                $q_gui->setQuestionTabs();
                                $ret =& $this->ctrl->forwardCommand($q_gui);
                                break;

                        case "surveymetricquestiongui":
                                $this->ctrl->setParameterByClass("surveymetricquestiongui", "sel_question_types", $q_type);
                                $q_gui =& SurveyQuestionGUI::_getQuestionGUI($q_type, $_GET["q_id"]);
                                $q_gui->object->setObjId($this->object->getId());
                                $q_gui->setQuestionTabs();
                                $ret =& $this->ctrl->forwardCommand($q_gui);
                                break;

                        case "surveytextquestiongui":
                                $this->ctrl->setParameterByClass("surveytextquestiongui", "sel_question_types", $q_type);
                                $q_gui =& SurveyQuestionGUI::_getQuestionGUI($q_type, $_GET["q_id"]);
                                $q_gui->object->setObjId($this->object->getId());
                                $q_gui->setQuestionTabs();
                                $ret =& $this->ctrl->forwardCommand($q_gui);
                                break;

                        default:
                                if (($cmd != "createQuestion") and (!$_GET["calling_survey"]) and (!$_GET["new_for_survey"]))
                                {
                                        $this->setAdminTabs();
                                }
                                $cmd.= "Object";
                                $ret =& $this->$cmd();
                                break;
                }
        }

        function &createQuestionObject()
        {
                $q_gui =& SurveyQuestionGUI::_getQuestionGUI($_POST["sel_question_types"]);
                $q_gui->object->setObjId($this->object->getId());
                $this->ctrl->setCmdClass(get_class($q_gui));
                $this->ctrl->setCmd("editQuestion");

                $ret =& $this->executeCommand();
                return $ret;
        }

        function prepareOutput()
        {
                $this->tpl->addBlockFile("CONTENT", "content", "tpl.adm_content.html");
                $this->tpl->addBlockFile("STATUSLINE", "statusline", "tpl.statusline.html");
                $title = $this->object->getTitle();

                // catch feedback message
                sendInfo();

                if (!empty($title))
                {
                        $this->tpl->setVariable("HEADER", $title);
                }
                if (!defined("ILIAS_MODULE"))
                {
                        $this->setAdminTabs($_POST["new_type"]);
                }
                $this->setLocator();

        }
        
        function &editQuestionForSurveyObject()
        {
//echo "<br>create--".$_GET["new_type"];
                $q_gui =& SurveyQuestionGUI::_getQuestionGUI("", $_GET["q_id"]);
                $this->ctrl->setParameterByClass(get_class($q_gui), "sel_question_types", $q_gui->getQuestionType());
                $this->ctrl->setParameterByClass(get_class($q_gui), "q_id", $_GET["q_id"]);
                $this->ctrl->setCmdClass(get_class($q_gui));
                $this->ctrl->setCmd("editQuestion");
                $ret =& $this->executeCommand();
                return $ret;
        }

        function &createQuestionForSurveyObject()
        {
//echo "<br>create--".$_GET["new_type"];
                $q_gui =& SurveyQuestionGUI::_getQuestionGUI($_GET["sel_question_types"]);
                $this->ctrl->setParameterByClass(get_class($q_gui), "sel_question_types", $q_gui->getQuestionType());
                $this->ctrl->setCmdClass(get_class($q_gui));
                $this->ctrl->setCmd("editQuestion");
                $ret =& $this->executeCommand();
                return $ret;
        }

        function &previewObject()
        {
                $q_gui =& SurveyQuestionGUI::_getQuestionGUI("", $_GET["preview"]);
                $_GET["q_id"] = $_GET["preview"];
                $this->ctrl->setParameterByClass(get_class($q_gui), "sel_question_types", $q_gui->getQuestionType());
                $this->ctrl->setParameterByClass(get_class($q_gui), "q_id", $_GET["preview"]);
                $this->ctrl->setCmdClass(get_class($q_gui));
                $this->ctrl->setCmd("preview");
                $ret =& $this->executeCommand();
                return $ret;
        }

} // END class.ilObjSurveyQuestionPoolGUI
?>