class.ilObjSurveyGUI.php

Go to the documentation of this file.

<?php

use ILIAS\Survey\Participants;

class ilObjSurveyGUI extends ilObjectGUI implements ilCtrlBaseClassInterface
{
    protected \ILIAS\Survey\Execution\ExecutionGUIRequest $execution_request;
    protected ?\ILIAS\Survey\Editing\EditingGUIRequest $edit_request;
    protected ilNavigationHistory $nav_history;
    protected ilTabsGUI $tabs;
    protected ilHelpGUI $help;
    protected ilLogger $log;
    protected Participants\InvitationsManager $invitation_manager;
    protected \ILIAS\Survey\InternalService $survey_service;
    protected ?\ILIAS\Survey\Mode\FeatureConfig $feature_config = null;
    protected ?\ILIAS\Survey\Access\AccessManager $access_manager = null;
    protected \ILIAS\Survey\Execution\RunManager $run_manager;
    protected \ILIAS\Survey\Participants\StatusManager $status_manager;
    protected ?ilObjSurvey $survey = null;
    protected ilRbacSystem $rbacsystem;
    protected ilMailMimeSenderFactory $senderFactory;

    public function __construct()
    {
        global $DIC;

        $this->user = $DIC->user();
        $this->survey_service = $DIC->survey()->internal();

        $this->lng = $DIC->language();
        $this->nav_history = $DIC["ilNavigationHistory"];
        $this->tabs = $DIC->tabs();
        $this->help = $DIC["ilHelp"];
        $this->rbacsystem = $DIC->rbac()->system();
        $this->tree = $DIC->repositoryTree();
        $this->tpl = $DIC["tpl"];
        $this->toolbar = $DIC->toolbar();
        $this->access = $DIC->access();
        $this->locator = $DIC["ilLocator"];
        $this->senderFactory = $DIC->mail()->mime()->senderFactory();
        $lng = $DIC->language();
        $ilCtrl = $DIC->ctrl();

        $this->type = "svy";
        $lng->loadLanguageModule("survey");
        $lng->loadLanguageModule("svy");
        $this->ctrl = $ilCtrl;
        $this->ctrl->saveParameter($this, "ref_id");

        $this->log = ilLoggerFactory::getLogger("svy");

        $this->invitation_manager = $this->survey_service->domain()->participants()->invitations();

        $this->execution_request = $this->survey_service
            ->gui()
            ->execution()
            ->request();

        parent::__construct("", $this->execution_request->getRefId(), true, false);

        if ($this->object->getType() !== "svy") {
            $this->setCreationMode(true);
        }
        if ($this->object && $this->object->getType() === "svy") {
            $survey = $this->object;
            $this->survey = $survey;

            $this->status_manager = $this->survey_service
                ->domain()
                ->participants()
                ->status($survey, $this->user->getId());
            $this->feature_config = $this->survey_service->domain()
                ->modeFeatureConfig($this->object->getMode());
            $this->run_manager = $this->survey_service->domain()
                ->execution()->run($survey, $this->user->getId());
            $this->access_manager = $this->survey_service
                ->domain()
                ->access($this->requested_ref_id, $this->user->getId());
        }
        $this->edit_request = $this->survey_service
            ->gui()
            ->editing()
            ->request();

        // this class will be treated as a baseclass in most cases, therefore
        // we need to claim the repository context manually. see #37010
        if (!$DIC->globalScreen()->tool()->context()->stack()->hasMatch(
            $DIC->globalScreen()->tool()->context()->collection()->repository()
        )) {
            $DIC->globalScreen()->tool()->context()->claim()->repository();
        }
    }

    public function executeCommand(): void
    {
        $ilTabs = $this->tabs;
        $access_manager = $this->access_manager;
        $survey = $this->survey;
        if ($survey) {
            if (!$access_manager->canAccessInfoScreen()) {
                $this->noPermission();
            }
            $this->addToNavigationHistory();
        }

        $cmd = $this->ctrl->getCmd("properties");

        // workaround for bug #6288, needs better solution
        if ($cmd === "saveTags") {
            $this->ctrl->setCmdClass("ilinfoscreengui");
        }

        // deep link from repository - "redirect" to page view
        if (!$this->ctrl->getCmdClass() && $cmd === "questionsrepo") {
            $this->ctrl->setParameterByClass("ilsurveyeditorgui", "pgov", "1");
            $this->ctrl->redirectByClass("ilsurveyeditorgui", "questions");
        }

        $next_class = $this->ctrl->getNextClass($this);
        if ($next_class !== "") {
            $this->ctrl->setReturn($this, "properties");
        }
        // deprecated, moved for less file
        //$this->tpl->addCss(ilUtil::getStyleSheetLocation("output", "survey.css", "Modules/Survey"), "screen");
        $this->prepareOutput();

        $this->log->debug("next_class= $next_class");
        switch ($next_class) {
            case 'illtiproviderobjectsettinggui':
                $this->addSubTabs('settings');
                $ilTabs->activateTab("settings");
                $ilTabs->activateSubTab('lti_provider');
                $lti_gui = new ilLTIProviderObjectSettingGUI($this->object->getRefId());
                $lti_gui->setCustomRolesForSelection($GLOBALS['DIC']->rbac()->review()->getLocalRoles($this->object->getRefId()));
                $lti_gui->offerLTIRolesForSelection(false);
                $this->ctrl->forwardCommand($lti_gui);
                break;


            case "ilinfoscreengui":
                if (!in_array(
                    $this->ctrl->getCmdClass(),
                    array('ilpublicuserprofilegui', 'ilobjportfoliogui')
                )) {
                    $this->addHeaderAction();
                    $this->infoScreen(); // forwards command
                } else {
                    // #16891
                    $ilTabs->clearTargets();
                    $info = new ilInfoScreenGUI($this);
                    $this->ctrl->forwardCommand($info);
                }
                break;

            case 'ilobjectmetadatagui':
                $this->checkPermission("write");
                $ilTabs->activateTab("meta_data");
                $this->addHeaderAction();
                $md_gui = new ilObjectMetaDataGUI($this->object);
                $this->ctrl->forwardCommand($md_gui);
                break;

            case "ilsurveyevaluationgui":

                if ($this->checkRbacOrPositionPermission('read_results', 'access_results') ||
                ilObjSurveyAccess::_hasEvaluationAccess($this->object->getId(), $this->user->getId())) {
                    $ilTabs->activateTab("svy_results");
                    $this->addHeaderAction();
                    $eval_gui = new ilSurveyEvaluationGUI($survey);
                    $this->ctrl->forwardCommand($eval_gui);
                }
                break;

            case "ilsurveyexecutiongui":
                $ilTabs->clearTargets();
                $exec_gui = new ilSurveyExecutionGUI($survey);
                $this->ctrl->forwardCommand($exec_gui);
                break;

            case 'ilpermissiongui':
                $ilTabs->activateTab("perm_settings");
                $this->addHeaderAction();
                $perm_gui = new ilPermissionGUI($this);
                $this->ctrl->forwardCommand($perm_gui);
                break;

            case 'ilobjectcopygui':
                $cp = new ilObjectCopyGUI($this);
                $cp->setType('svy');
                $this->ctrl->forwardCommand($cp);
                break;

            case "ilcommonactiondispatchergui":
                $gui = ilCommonActionDispatcherGUI::getInstanceFromAjaxCall();
                $this->ctrl->forwardCommand($gui);
                break;

                // 360, skill service
            case 'ilsurveyskillgui':
                $ilTabs->activateTab("survey_competences");
                $gui = new ilSurveySkillGUI($survey);
                $this->ctrl->forwardCommand($gui);
                break;

            case 'ilsurveyskilldeterminationgui':
                $ilTabs->activateTab("maintenance");
                $gui = new ilSurveySkillDeterminationGUI($survey);
                $this->ctrl->forwardCommand($gui);
                break;

            case 'ilsurveyeditorgui':
                $this->checkPermission("write");
                $ilTabs->activateTab("survey_questions");
                $gui = new ilSurveyEditorGUI($this);
                $this->ctrl->forwardCommand($gui);
                break;

            case 'ilsurveyconstraintsgui':
                $this->checkPermission("write");
                $ilTabs->activateTab("constraints");
                $gui = new ilSurveyConstraintsGUI($this);
                $this->ctrl->forwardCommand($gui);
                break;

            case 'ilsurveyparticipantsgui':
                if (!$this->feature_config->usesAppraisees()) {
                    $ilTabs->activateTab("maintenance");
                } else {
                    $ilTabs->activateTab("survey_360_appraisees");
                }
                $gui = new ilSurveyParticipantsGUI($this, $this->checkRbacOrPositionPermission('read_results', 'access_results'));
                $this->ctrl->forwardCommand($gui);
                break;

            case "illearningprogressgui":
                $ilTabs->activateTab("learning_progress");
                $new_gui = new ilLearningProgressGUI(
                    ilLearningProgressBaseGUI::LP_CONTEXT_REPOSITORY,
                    $this->object->getRefId()
                );
                $this->ctrl->forwardCommand($new_gui);
                break;

            case 'ilexportgui':
                $ilTabs->activateTab("export");
                $exp_gui = new ilExportGUI($this);
                $exp_gui->addFormat("xml");
                $this->ctrl->forwardCommand($exp_gui);
                break;

            default:
                $this->addHeaderAction();
                $cmd .= "Object";

                $this->log->debug("Default cmd= $cmd");

                $this->$cmd();
                break;
        }

        if (strtolower($this->edit_request->getBaseClass()) !== "iladministrationgui" &&
            $this->getCreationMode() !== true) {
            $this->tpl->printToStdout();

            //cherry pick conflict with d97cf1c77b
            //$this->tpl->show();
            //$this->log->debug("after tpl show");
        }
    }

    protected function noPermission(): void
    {
        throw new ilObjectException($this->lng->txt("permission_denied"));
    }

    protected function addToNavigationHistory(): void
    {
        $external_rater = $this->status_manager->isExternalRater();
        // add entry to navigation history
        if (!$external_rater && !$this->getCreationMode() &&
            $this->checkPermissionBool("read")) {
            $this->ctrl->setParameterByClass("ilobjsurveygui", "ref_id", $this->ref_id);
            $link = $this->ctrl->getLinkTargetByClass("ilobjsurveygui", "infoScreen");
            $this->nav_history->addItem($this->ref_id, $link, "svy");
        }
    }

    public function evaluationObject(): void
    {
        $eval_gui = new ilSurveyEvaluationGUI($this->survey);
        $this->ctrl->setCmdClass(get_class($eval_gui));
        $this->ctrl->redirect($eval_gui, "openEvaluation");
    }

    protected function addDidacticTemplateOptions(array &$a_options): void
    {
        // JF, 2013-06-10
        $a_options["svy360_1"] = array($this->lng->txt("survey_360_mode"),
            $this->lng->txt("survey_360_mode_info"));

        //Self evaluation only
        $a_options["svyselfeval_1"] = array($this->lng->txt("svy_self_ev_mode"),
            $this->lng->txt("svy_self_ev_info"));

        // individual feedback
        $a_options["individfeedb_1"] = array($this->lng->txt("svy_ind_feedb_mode"),
            $this->lng->txt("svy_ind_feedb_info"));
    }

    protected function afterSave(ilObject $new_object): void
    {
        // #16446
        $new_object->loadFromDb();

        //set the mode depending on didactic template
        if ($this->getDidacticTemplateVar("svy360")) {
            $new_object->setMode(ilObjSurvey::MODE_360);
        } elseif ($this->getDidacticTemplateVar("svyselfeval")) {
            $new_object->setMode(ilObjSurvey::MODE_SELF_EVAL);
        } elseif ($this->getDidacticTemplateVar("individfeedb")) {
            $new_object->setMode(ilObjSurvey::MODE_IND_FEEDB);
        }

        $svy_mode = $new_object->getMode();
        if ($svy_mode === ilObjSurvey::MODE_360) {
            // this should rather be ilObjSurvey::ANONYMIZE_ON - see ilObjSurvey::getUserDataFromActiveId()
            $new_object->setAnonymize(ilObjSurvey::ANONYMIZE_CODE_ALL);
            $new_object->setEvaluationAccess(ilObjSurvey::EVALUATION_ACCESS_PARTICIPANTS);
        } elseif ($svy_mode === ilObjSurvey::MODE_SELF_EVAL) {
            $new_object->setEvaluationAccess(ilObjSurvey::EVALUATION_ACCESS_PARTICIPANTS);
        }
        $new_object->saveToDB();

        // always send a message
        $this->tpl->setOnScreenMessage('success', $this->lng->txt("object_added"), true);
        ilUtil::redirect("ilias.php?baseClass=ilObjSurveyGUI&ref_id=" .
            $new_object->getRefId() . "&cmd=properties");
    }

    protected function getTabs(): void
    {
        $ilUser = $this->user;
        $ilHelp = $this->help;
        $feature_config = $this->feature_config;

        if (is_null($this->object)) {
            return;
        }

        // @todo investigate, if this can still be the case
        if ($this->object instanceof ilObjSurveyQuestionPool) {
            return;
        }

        $ilHelp->setScreenIdComponent("svy");

        if ($this->checkPermissionBool("write")) {
            $this->tabs_gui->addTab(
                "survey_questions",
                $this->lng->txt("survey_questions"),
                $this->ctrl->getLinkTargetByClass(array("ilsurveyeditorgui"), "questions")
            );
        }

        if ($this->checkPermissionBool("read")) {
            $this->tabs_gui->addTab(
                "info_short",
                $this->lng->txt("info_short"),
                $this->ctrl->getLinkTarget($this, 'infoScreen')
            );
        }

        // properties
        if ($this->checkPermissionBool("write")) {
            $this->tabs_gui->addTab(
                "settings",
                $this->lng->txt("settings"),
                $this->ctrl->getLinkTarget($this, 'properties')
            );
        } elseif ($this->checkPermissionBool("read")) {
            if ($this->feature_config->usesAppraisees() &&
                $this->object->get360SelfRaters() &&
                $this->object->isAppraisee($ilUser->getId()) &&
                !$this->object->isAppraiseeClosed($ilUser->getId())) {
                $this->tabs_gui->addTab(
                    "survey_360_edit_raters",
                    $this->lng->txt("survey_360_edit_raters"),
                    $this->ctrl->getLinkTargetByClass('ilsurveyparticipantsgui', 'editRaters')
                );

                // :TODO: mail to raters
            }
        }

        // questions
        if ($this->checkPermissionBool("write") &&
            $this->object->getMode() === ilObjSurvey::MODE_STANDARD) {
            // constraints (tab called routing)
            $this->tabs_gui->addTab(
                "constraints",
                $this->lng->txt("constraints"),
                $this->ctrl->getLinkTargetByClass("ilsurveyconstraintsgui", "constraints")
            );
        }

        if ($this->checkPermissionBool("write")) {
            if ($feature_config && $feature_config->supportsCompetences()) {
                $skmg_set = new ilSkillManagementSettings();
                if ($this->object->getSkillService() && $skmg_set->isActivated()) {
                    $this->tabs_gui->addTab(
                        "survey_competences",
                        $this->lng->txt("survey_competences"),
                        $this->ctrl->getLinkTargetByClass("ilsurveyskillgui", "listQuestionAssignment")
                    );
                }
            }

            if ($feature_config && $feature_config->usesAppraisees()) {
                $this->tabs_gui->addTab(
                    "survey_360_appraisees",
                    $this->lng->txt("survey_360_appraisees"),
                    $this->ctrl->getLinkTargetByClass('ilsurveyparticipantsgui', 'listAppraisees')
                );
            } else {
                $this->tabs_gui->addTab(
                    "maintenance",
                    $this->lng->txt("svy_participants"),
                    $this->ctrl->getLinkTargetByClass('ilsurveyparticipantsgui', 'maintenance')
                );
            }
        }

        if ($this->access_manager->canAccessEvaluation()) {
            // evaluation
            $this->tabs_gui->addTab(
                "svy_results",
                $this->lng->txt("svy_results"),
                $this->ctrl->getLinkTargetByClass("ilsurveyevaluationgui", "openEvaluation")
            );
        }

        // learning progress
        if (ilLearningProgressAccess::checkAccess($this->object->getRefId())) {
            $this->tabs_gui->addTarget(
                "learning_progress",
                $this->ctrl->getLinkTargetByClass(array("ilobjsurveygui", "illearningprogressgui"), ""),
                "",
                array("illplistofobjectsgui", "illplistofsettingsgui", "illearningprogressgui", "illplistofprogressgui")
            );
        }

        if ($this->checkPermissionBool("write")) {
            // meta data
            $mdgui = new ilObjectMetaDataGUI($this->object);
            $mdtab = $mdgui->getTab();
            if ($mdtab) {
                $this->tabs_gui->addTab(
                    "meta_data",
                    $this->lng->txt("meta_data"),
                    $mdtab
                );
            }

            // export
            $this->tabs_gui->addTab(
                "export",
                $this->lng->txt("export"),
                $this->ctrl->getLinkTargetByClass("ilexportgui", "")
            );
        }

        if ($this->checkPermissionBool("edit_permission")) {
            // permissions
            $this->tabs_gui->addTab(
                "perm_settings",
                $this->lng->txt("perm_settings"),
                $this->ctrl->getLinkTargetByClass(array(get_class($this),'ilpermissiongui'), "perm")
            );
        }
    }


    //
    // SETTINGS
    //

    public function savePropertiesObject(): void
    {
        $settings_ui = $this->survey_service->gui()->surveySettings($this->survey);

        $form = $settings_ui->form("ilObjSurveyGUI");
        if ($settings_ui->checkForm($form)) {
            $settings_ui->saveForm($form);

            // settings change clear the code
            // this is adopted from ILIAS 7, unsure if or when this is necessary
            $this->run_manager->clearCode();

            $this->tpl->setOnScreenMessage('success', $this->lng->txt("settings_saved"), true);
            $this->ctrl->redirect($this, "properties");
        }

        $this->tpl->setOnScreenMessage('failure', $this->lng->txt("form_input_not_valid"));
        $form->setValuesByPost();
        $this->propertiesObject($form);
    }

    public function initPropertiesForm(): ilPropertyFormGUI
    {
        $form = $this->survey_service
            ->gui()->surveySettings($this->survey)->form("ilObjSurveyGUI");
        return $form;
    }

    public function addSubTabs(
        string $a_section
    ): void {
        if ($a_section === 'settings') {
            $this->tabs_gui->addSubTabTarget(
                "settings",
                $this->ctrl->getLinkTarget($this, 'properties')
            );

            $lti_settings = new ilLTIProviderObjectSettingGUI($this->object->getRefId());
            if ($lti_settings->hasSettingsAccess()) {
                $this->tabs_gui->addSubTabTarget(
                    'lti_provider',
                    $this->ctrl->getLinkTargetByClass(ilLTIProviderObjectSettingGUI::class)
                );
            }
        }
    }


    public function propertiesObject(
        ilPropertyFormGUI $a_form = null
    ): void {
        $ilTabs = $this->tabs;
        $ilHelp = $this->help;

        $this->checkPermission("write");

        $this->addSubTabs('settings');
        $ilTabs->activateTab("settings");
        $ilTabs->activateSubTab('settings');

        if ($this->object->get360Mode()) {
            $ilHelp->setScreenId("settings_360");
        }

        if (!$a_form) {
            $a_form = $this->initPropertiesForm();
        }

        $this->tpl->setContent($a_form->getHTML());
    }

    public function doAutoCompleteObject(): void
    {
        $fields = array('login','firstname','lastname','email');

        $auto = new ilUserAutoComplete();
        $auto->setSearchFields($fields);
        $auto->setResultField('login');
        $auto->enableFieldSearchableCheck(true);
        $auto->setMoreLinkAvailable(true);

        if ($this->edit_request->getFetchAll()) {
            $auto->setLimit(ilUserAutoComplete::MAX_ENTRIES);
        }

        echo $auto->getList(ilUtil::stripSlashes($this->edit_request->getTerm()));
        exit();
    }

    //
    // IMPORT/EXPORT
    //

    protected function initImportForm(string $new_type): ilPropertyFormGUI
    {
        $form = new ilPropertyFormGUI();
        $form->setTarget("_top");
        $form->setFormAction($this->ctrl->getFormAction($this));
        $form->setTitle($this->lng->txt("import_svy"));

        $fi = new ilFileInputGUI($this->lng->txt("import_file"), "importfile");
        $fi->setSuffixes(array("zip"));
        $fi->setRequired(true);
        $form->addItem($fi);

        $svy = new ilObjSurvey();
        $questionspools = $svy->getAvailableQuestionpools(true, true, true);

        $pools = new ilSelectInputGUI($this->lng->txt("select_questionpool_short"), "spl");
        $pools->setOptions(array("" => $this->lng->txt("dont_use_questionpool")) + $questionspools);
        $pools->setRequired(false);
        $form->addItem($pools);

        $form->addCommandButton("importSurvey", $this->lng->txt("import"));
        $form->addCommandButton("cancel", $this->lng->txt("cancel"));

        return $form;
    }

    public function importSurveyObject(): void
    {
        $tpl = $this->tpl;

        $new_type = $this->edit_request->getNewType();

        // create permission is already checked in createObject. This check here is done to prevent hacking attempts
        $this->checkPermission("create", "", $new_type);

        $this->lng->loadLanguageModule($new_type);
        $this->ctrl->setParameter($this, "new_type", $new_type);

        $form = $this->initImportForm($new_type);
        if ($form->checkInput()) {
            $newObj = new ilObjSurvey();
            $newObj->setType($new_type);
            $newObj->setTitle("dummy");
            $newObj->create(true);
            $this->putObjectInTree($newObj);

            // copy uploaded file to import directory

            $this->log->debug("form->getInput(spl) = " . $form->getInput("spl"));

            $error = $newObj->importObject($_FILES["importfile"], (int) $form->getInput("spl"));
            if ($error !== '') {
                $newObj->delete();
                $this->tpl->setOnScreenMessage('failure', $error);
                return;
            }

            $this->tpl->setOnScreenMessage('success', $this->lng->txt("object_imported"), true);
            ilUtil::redirect("ilias.php?ref_id=" . $newObj->getRefId() .
                "&baseClass=ilObjSurveyGUI");
        }

        // display form to correct errors
        $form->setValuesByPost();
        $tpl->setContent($form->getHTML());
    }


    //
    // INFOSCREEN
    //

    public function infoScreenObject(): void
    {
        $this->ctrl->setCmd("showSummary");
        $this->ctrl->setCmdClass("ilinfoscreengui");
        $this->infoScreen();
    }

    public function infoScreen(): void
    {
        $ilTabs = $this->tabs;
        if (!$this->access_manager->canAccessInfoScreen()) {
            $this->noPermission();
        }
        $ilTabs->activateTab("info_short");

        $info = $this->survey_service->gui()->infoScreen($this, $this->toolbar);

        $this->ctrl->forwardCommand($info);
    }

    protected function addLocatorItems(): void
    {
        $ilLocator = $this->locator;
        switch ($this->ctrl->getCmd()) {
            case "next":
            case "previous":
            case "start":
            case "resume":
            case "infoScreen":
            case "redirectQuestion":
                $ilLocator->addItem($this->object->getTitle(), $this->ctrl->getLinkTarget($this, "infoScreen"), "", $this->requested_ref_id);
                break;
            case "evaluation":
            case "checkEvaluationAccess":
            case "evaluationdetails":
            case "evaluationuser":
                $ilLocator->addItem($this->object->getTitle(), $this->ctrl->getLinkTargetByClass("ilsurveyevaluationgui", "evaluation"), "", $this->requested_ref_id);
                break;
            case "create":
            case "save":
            case "cancel":
            case "importSurvey":
            case "cloneAll":
                break;
            default:
                $ilLocator->addItem($this->object->getTitle(), $this->ctrl->getLinkTarget($this, "infoScreen"), "", $this->requested_ref_id);

                // this has to be done here because ilSurveyEditorGUI is called after finalizing the locator
                if ($this->edit_request->getQuestionId() > 0 &&
                    !$this->edit_request->getNewForSurvey()) {
                    // not on create
                    // see ilObjSurveyQuestionPool::addLocatorItems
                    $q_id = $this->edit_request->getQuestionId();
                    $q_type = SurveyQuestion::_getQuestionType($q_id) . "GUI";
                    $this->ctrl->setParameterByClass($q_type, "q_id", $q_id);
                    $ilLocator->addItem(
                        SurveyQuestion::_getTitle($q_id),
                        $this->ctrl->getLinkTargetByClass(array("ilSurveyEditorGUI", $q_type), "editQuestion")
                    );
                }
                break;
        }
    }

    public static function _goto(
        string $a_target
    ): void {
        global $DIC;
        $main_tpl = $DIC->ui()->mainTemplate();

        $request = $DIC->survey()->internal()->gui()->execution()->request();
        $a_access_code = $request->getAccessCode();

        $ilAccess = $DIC->access();
        $lng = $DIC->language();
        $ctrl = $DIC->ctrl();

        $t_arr = explode("_", $a_target);
        $ref_id = (int) $t_arr[0];
        if ($a_access_code === "" && isset($t_arr[1])) {
            $a_access_code = $t_arr[1];
        }
        // see ilObjSurveyAccess::_checkGoto()
        if ($a_access_code !== '') {
            $sess = $DIC->survey()->internal()->repo()
                ->execution()->runSession();
            $sess->setCode(ilObject::_lookupObjId($ref_id), $a_access_code);
            $ctrl->setParameterByClass("ilObjSurveyGUI", "ref_id", $ref_id);
            $ctrl->redirectByClass("ilObjSurveyGUI", "infoScreen");
        }

        // write permission -> info screen
        if ($ilAccess->checkAccess("write", "", $ref_id)) {
            $ctrl->setParameterByClass("ilObjSurveyGUI", "ref_id", $ref_id);
            $ctrl->redirectByClass("ilObjSurveyGUI", "infoScreen");
        }

        // read permission, evaluation access and finished run -> evaluation
        if ($ilAccess->checkAccess("visible", "", $ref_id) ||
            $ilAccess->checkAccess("read", "", $ref_id)) {
            if ($ilAccess->checkAccess("read", "", $ref_id)) {
                $domain_service = $DIC->survey()->internal()->domain();
                $am = $domain_service->access($ref_id, $DIC->user()->getId());
                $survey = new ilObjSurvey($ref_id);
                $run_manager = $domain_service->execution()->run($survey, $DIC->user()->getId());
                if ($am->canAccessEvaluation()) {
                    $ctrl->setParameterByClass("ilObjSurveyGUI", "ref_id", $ref_id);
                    $ctrl->redirectByClass(["ilObjSurveyGUI", "ilSurveyEvaluationGUI"], "openEvaluation");
                }
            }

            $ctrl->setParameterByClass("ilObjSurveyGUI", "ref_id", $ref_id);
            $ctrl->redirectByClass("ilObjSurveyGUI", "infoScreen");
        } elseif ($ilAccess->checkAccess("read", "", ROOT_FOLDER_ID)) {
            $main_tpl->setOnScreenMessage('failure', sprintf(
                $lng->txt("msg_no_perm_read_item"),
                ilObject::_lookupTitle(ilObject::_lookupObjId($ref_id))
            ), true);
            ilObjectGUI::_gotoRepositoryRoot();
        }
    }

    public function getUserResultsTable(
        int $a_active_id
    ): string {
        $rtpl = new ilTemplate("tpl.svy_view_user_results.html", true, true, "Modules/Survey");

        $show_titles = $this->object->getShowQuestionTitles();

        foreach ($this->object->getSurveyPages() as $page) {
            if (count($page) > 0) {
                // question block
                if (count($page) > 1) {
                    if ($page[0]["questionblock_show_blocktitle"]) {
                        $rtpl->setVariable("BLOCK_TITLE", trim($page[0]["questionblock_title"] ?? ""));
                    }
                }

                // questions
                foreach ($page as $question) {
                    $question_gui = $this->object->getQuestionGUI($question["type_tag"], $question["question_id"]);
                    $rtpl->setCurrentBlock("question_bl");

                    // heading
                    if (strlen($question["heading"] ?? "")) {
                        $rtpl->setVariable("HEADING", trim($question["heading"] ?? ""));
                    }

                    $rtpl->setVariable(
                        "QUESTION_DATA",
                        $question_gui->getPrintView(
                            $show_titles,
                            (bool) $question["questionblock_show_questiontext"],
                            $this->object->getId(),
                            $this->object->loadWorkingData($question["question_id"], $a_active_id)
                        )
                    );

                    $rtpl->parseCurrentBlock();
                }

                $rtpl->setCurrentBlock("block_bl");
                $rtpl->parseCurrentBlock();
            }
        }

        return $rtpl->get();
    }

    protected function viewUserResultsObject(): void
    {
        $ilUser = $this->user;
        $tpl = $this->tpl;
        $ilTabs = $this->tabs;

        $anonymous_code = $this->run_manager->getCode();
        $active_id = $this->object->getActiveID($ilUser->getId(), $anonymous_code, 0);

        if (!$this->run_manager->hasFinished() ||
            !$active_id) {
            $this->ctrl->redirect($this, "infoScreen");
        }

        $ilTabs->clearTargets();
        $ilTabs->setBackTarget(
            $this->lng->txt("btn_back"),
            $this->ctrl->getLinkTarget($this, "infoScreen")
        );

        $html = $this->getUserResultsTable($active_id);
        $tpl->setContent($html);
    }

    protected function getUserResultsPlain(
        int $a_active_id
    ): string {
        $res = array();

        $show_titles = (bool) $this->object->getShowQuestionTitles();

        foreach ($this->object->getSurveyPages() as $page) {
            if (count($page) > 0) {
                $res[] = "\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n";

                // question block
                if (count($page) > 1) {
                    if ($page[0]["questionblock_show_blocktitle"]) {
                        $res[$this->lng->txt("questionblock")] = trim($page[0]["questionblock_title"] ?? "") . "\n";
                    }
                }

                // questions

                $page_res = array();

                foreach ($page as $question) {
                    $question_gui = $this->object->getQuestionGUI($question["type_tag"], $question["question_id"]);
                    $question_parts = array();

                    // heading
                    if (strlen($question["heading"] ?? "")) {
                        $question_parts[$this->lng->txt("heading")] = trim($question["heading"] ?? "");
                    }

                    if ($show_titles) {
                        $question_parts[$this->lng->txt("title")] = trim($question["title"] ?? "");
                    }

                    if ($question["questionblock_show_questiontext"]) {
                        $question_parts[$this->lng->txt("question")] = trim(strip_tags($question_gui->object->getQuestionText()));
                    }

                    $answers = $question_gui->getParsedAnswers(
                        $this->object->loadWorkingData($question["question_id"], $a_active_id),
                        true
                    );

                    if (count($answers)) {
                        $multiline = false;
                        if (count($answers) > 1 ||
                            get_class($question_gui) === "SurveyTextQuestionGUI") {
                            $multiline = true;
                        }

                        $parts = array();
                        foreach ($answers as $answer) {
                            $text = null;
                            if ($answer["textanswer"] ?? false) {
                                $text = ' ("' . $answer["textanswer"] . '")';
                            }
                            if (!isset($answer["cols"])) {
                                if (isset($answer["title"])) {
                                    $parts[] = $answer["title"] . $text;
                                } elseif (isset($answer["value"])) {
                                    $parts[] = $answer["value"];
                                } elseif ($text) {
                                    $parts[] = substr($text, 2, -1);
                                }
                            }
                            // matrix
                            else {
                                $tmp = array();
                                foreach ($answer["cols"] as $col) {
                                    $tmp[] = $col["title"];
                                }
                                $parts[] = $answer["title"] . ": " . implode(", ", $tmp) . $text;
                            }
                        }
                        $question_parts[$this->lng->txt("answer")] =
                            ($multiline ? "\n" : "") . implode("\n", $parts);
                    }

                    $tmp = array();
                    foreach ($question_parts as $type => $value) {
                        $tmp[] = $type . ": " . $value;
                    }
                    $page_res[] = implode("\n", $tmp);
                }

                $res[] = implode("\n\n-------------------------------\n\n", $page_res);
            }
        }

        $res[] = "\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n";

        return implode("\n", $res);
    }

    public function sendUserResultsMail(
        int $a_active_id,
        string $a_recipient
    ): void {
        $ilUser = $this->user;

        $finished = $this->object->getSurveyParticipants(array($a_active_id));
        $finished = array_pop($finished);
        $finished = ilDatePresentation::formatDate(new ilDateTime($finished["finished_tstamp"], IL_CAL_UNIX));

        $body = ilMail::getSalutation($ilUser->getId()) . "\n\n";
        $body .= $this->lng->txt("svy_mail_own_results_body") . "\n";
        $body .= "\n" . $this->lng->txt("obj_svy") . ": " . $this->object->getTitle() . "\n";
        $body .= ilLink::_getLink($this->object->getRefId(), "svy") . "\n";
        $body .= "\n" . $this->lng->txt("survey_results_finished") . ": " . $finished . "\n\n";

        if ($this->object->hasMailOwnResults()) {
            $subject = "svy_mail_own_results_subject";
            $body .= $this->getUserResultsPlain($a_active_id);
        } else {
            $subject = "svy_mail_confirmation_subject";
        }

        // $body .= ilMail::_getAutoGeneratedMessageString($this->lng);
        $body .= ilMail::_getInstallationSignature();


        $mmail = new ilMimeMail();
        $mmail->From($this->senderFactory->system());
        $mmail->To($a_recipient);
        $mmail->Subject(sprintf($this->lng->txt($subject), $this->object->getTitle()), true);
        $mmail->Body($body);
        $mmail->Send();
    }

    public function mailUserResultsObject(): void
    {
        $ilUser = $this->user;

        $anonymous_code = $this->run_manager->getCode();
        $active_id = $this->object->getActiveID($ilUser->getId(), $anonymous_code, 0);
        if (!$this->run_manager->hasFinished() ||
            !$active_id) {
            $this->ctrl->redirect($this, "infoScreen");
        }

        $recipient = $this->edit_request->getMail();
        if (!$recipient) {
            $recipient = $ilUser->getEmail();
        }
        if (!ilUtil::is_email($recipient)) {
            $this->ctrl->redirect($this, "infoScreen");
        }

        $this->sendUserResultsMail($active_id, $recipient);

        $this->tpl->setOnScreenMessage('success', $this->lng->txt("mail_sent"), true);
        $this->ctrl->redirect($this, "infoScreen");
    }

    protected function checkRbacOrPositionPermission(
        string $a_rbac_permission,
        string $a_position_permission
    ): bool {
        $access = $GLOBALS['DIC']->access();
        return $access->checkRbacOrPositionPermissionAccess(
            $a_rbac_permission,
            $a_position_permission,
            $this->object->getRefId()
        );
    }
}