ilObjSAHSLearningModuleGUI Class Reference

SCORM Learning Modules. More...

Inheritance diagram for ilObjSAHSLearningModuleGUI:

Collaboration diagram for ilObjSAHSLearningModuleGUI:

Public Member Functions
	__construct ($data, int $id, bool $call_by_reference, bool $prepare_output=true)
	Constructor. More...
	listFiles ()
	List files tab: forward to the container view once migrated, otherwise show an info box. More...
	importFromUploadDir ()
	getUploadDirectory ()
	getUploadFiles ()
	executeCommand ()
	execute command More...
	properties ()
	module properties More...
	saveProperties ()
	uploadObject ()
	display status information or report errors messages in case of error More...
	upload ()
	getTemplate ()
	output main header (title and locator) More...
	certificate ()
	Shows the certificate editor. More...
	addLocatorItems ()
	setSettingsSubTabs ()
	export ()
	exportModule ()
	getType ()
Public Member Functions inherited from ilObjectGUI
	getRefId ()
	setAdminMode (string $mode)
	getAdminMode ()
	getObject ()
	executeCommand ()
	withReferences ()
	determines whether objects are referenced or not (got ref ids or not) More...
	setCreationMode (bool $mode=true)
	If true, a creation screen is displayed the current [ref_id] does belong to the parent class The mode is determined in ilRepositoryGUI. More...
	getCreationMode ()
	prepareOutput (bool $show_sub_objects=true)
	getAdminTabs ()
	administration tabs show only permissions and trash folder More...
	getHTML ()
	confirmedDeleteObject ()
	confirmed deletion of object -> objects are moved to trash or deleted immediately, if trash is disabled More...
	cancelObject ()
	cancel action and go back to previous page More...
	createObject ()
	create new object form More...
	editAvailabilityPeriodObject ()
	saveAvailabilityPeriodObject ()
	cancelCreation ()
	cancel create action and go back to repository parent More...
	saveObject ()
	getDidacticTemplateVar (string $type)
	Get didactic template setting from creation screen. More...
	putObjectInTree (ilObject $obj, ?int $parent_node_id=null)
	Add object to tree at given position. More...
	editObject ()
	addExternalEditFormCustom (ilPropertyFormGUI $form)
	updateObject ()
	updates object entry in object_data More...
	getFormAction (string $cmd, string $default_form_action="")
	Get form action for command (command is method name without "Object", e.g. More...
	isVisible (int $ref_id, string $type)
	viewObject ()
	viewObject container presentation for "administration -> repository, trash, permissions" More...
	deleteObject (bool $error=false)
	Display deletion confirmation screen. More...
	setColumnSettings (ilColumnGUI $column_gui)
	addToDeskObject ()
	removeFromDeskObject ()
Public Member Functions inherited from ILIAS\Object\ImplementsCreationCallback
	callCreationCallback (\ilObject $object, \ilObjectDefinition $obj_definition, int $requested_crtcb)

Static Public Member Functions
static	_goto (string $a_target)
	goto target course More...
Static Public Member Functions inherited from ilObjectGUI
static	_gotoRepositoryRoot (bool $raise_error=false)
	Goto repository root. More...
static	_gotoRepositoryNode (int $ref_id, string $cmd="")
static	_gotoSharedWorkspaceNode (int $wsp_id)

Data Fields
const	CMD_IMPORT_FROM_UPLOAD_DIR = 'importFromUploadDir'
Data Fields inherited from ilObjectGUI
const	ADMIN_MODE_NONE = ""
const	ADMIN_MODE_SETTINGS = "settings"
const	ADMIN_MODE_REPOSITORY = "repository"
const	UPLOAD_TYPE_LOCAL = 1
const	UPLOAD_TYPE_UPLOAD_DIRECTORY = 2
const	CFORM_NEW = 1
const	CFORM_IMPORT = 2
const	CFORM_CLONE = 3
const	SUPPORTED_IMPORT_MIME_TYPES = [MimeType::APPLICATION__ZIP, MimeType::APPLICATION__X_ZIP_COMPRESSED]

Protected Member Functions
	infoScreen ()
	infoScreenForward ()
	initCreateForm (string $new_type)
	importFile (string $file_to_import, string $path_to_uploaded_file_in_temp_dir)
	setTabs ()
	getTabs ()
	adds tabs to tab gui object More...
Protected Member Functions inherited from ilObjectGUI
	getObjectService ()
	assignObject ()
	setTitleAndDescription ()
	createActionDispatcherGUI ()
	initHeaderAction (?string $sub_type=null, ?int $sub_id=null)
	Add header action menu. More...
	insertHeaderAction (?ilObjectListGUI $list_gui=null)
	Insert header action into main template. More...
	addHeaderAction ()
	Add header action menu. More...
	redrawHeaderActionObject ()
	Ajax call: redraw action header only. More...
	setTabs ()
	set admin tabs More...
	setAdminTabs ()
	set admin tabs More...
	setLocator ()
	addLocatorItems ()
	should be overwritten to add object specific items (repository items are preloaded) More...
	omitLocator (bool $omit=true)
	addAdminLocatorItems (bool $do_not_add_object=false)
	should be overwritten to add object specific items (repository items are preloaded) More...
	getCreationFormsHTML (StandardForm|ilPropertyFormGUI|array $form)
	getTitleForCreationFormPage ()
	getCreationFormTitle ()
	initCreateForm (string $new_type)
	didacticTemplatesToForm ()
	initDidacticTemplate (ilPropertyFormGUI $form)
	retrieveAdditionalDidacticTemplateOptions ()
	addAdoptContentLinkToToolbar ()
	addImportButtonToToolbar ()
	addAvailabilityPeriodButtonToToolbar (ilToolbarGUI $toolbar)
	parseDidacticTemplateVar (string $var, string $type)
	afterSave (ilObject $new_object)
	Post (successful) object creation hook. More...
	initEditForm ()
	initEditCustomForm (ilPropertyFormGUI $a_form)
	Add custom fields to update form. More...
	getEditFormValues ()
	getEditFormCustomValues (array &$a_values)
	Add values to custom edit fields. More...
	validateCustom (ilPropertyFormGUI $form)
	Validate custom values (if not possible with checkInput()) More...
	updateCustom (ilPropertyFormGUI $form)
	Insert custom update form values into object. More...
	afterUpdate ()
	Post (successful) object update hook. More...
	routeImportCmdObject ()
	importFile (string $file_to_import, string $path_to_uploaded_file_in_temp_dir)
	deleteUploadedImportFile (string $path_to_uploaded_file_in_temp_dir)
	afterImport (ilObject $new_object)
	Post (successful) object import hook. More...
	setFormAction (string $cmd, string $form_action)
	getReturnLocation (string $cmd, string $default_location="")
	Get return location for command (command is method name without "Object", e.g. More...
	setReturnLocation (string $cmd, string $location)
	set specific return location for command More...
	getTargetFrame (string $cmd, string $default_target_frame="")
	get target frame for command (command is method name without "Object", e.g. More...
	setTargetFrame (string $cmd, string $target_frame)
	Set specific target frame for command. More...
	showPossibleSubObjects ()
	show possible sub objects (pull down menu) More...
	getTabs ()
	@abstract overwrite in derived GUI class of your object type More...
	redirectToRefId (int $ref_id, string $cmd="")
	redirects to (repository) view per ref id usually to a container and usually used at the end of a save/import method where the object gui type (of the new object) doesn't match with the type of the current ["ref_id"] value of the request More...
	getCenterColumnHTML ()
	Get center column. More...
	getRightColumnHTML ()
	Display right column. More...
	checkPermission (string $perm, string $cmd="", string $type="", ?int $ref_id=null)
	checkPermissionBool (string $perm, string $cmd="", string $type="", ?int $ref_id=null)
	enableDragDropFileUpload ()
	Enables the file upload into this object by dropping files. More...
	getCreatableObjectTypes ()
	buildAddNewItemElements (array $subtypes, string $create_target_class=ilRepositoryGUI::class, ?int $redirect_target_ref_id=null,)
	buildGroup (string $create_target_class, array $obj_types_in_group, string $title, array $subtypes)

Private Attributes
ilPropertyFormGUI	$form
	$archives

Additional Inherited Members
Protected Attributes inherited from ilObjectGUI
ILIAS Notes Service	$notes_service
GlobalHttpState	$http
ServerRequestInterface	$request
ilLocatorGUI	$locator
ilObjUser	$user
ilAccessHandler	$access
ilSetting	$settings
ilToolbarGUI	$toolbar
ilRbacAdmin	$rbac_admin
ilRbacSystem	$rbac_system
ilRbacReview	$rbac_review
ilObjectService	$object_service
ilObjectDefinition	$obj_definition
ilGlobalTemplateInterface	$tpl
ilTree	$tree
ilCtrl	$ctrl
ilErrorHandling	$error
ilLanguage	$lng
ilTabsGUI	$tabs_gui
ILIAS	$ilias
ArrayBasedRequestWrapper	$post_wrapper
RequestWrapper	$request_wrapper
Refinery	$refinery
ilFavouritesManager	$favourites
CustomIconFactory	$custom_icon_factory
UIFactory	$ui_factory
UIRenderer	$ui_renderer
Filesystem	$temp_file_system
ilObject	$object = null
bool	$creation_mode = false
	$data
int	$id
bool	$call_by_reference = false
bool	$prepare_output
int	$ref_id
int	$obj_id
int	$maxcount
array	$form_action = []
array	$return_location = []
array	$target_frame = []
string	$tmp_import_dir
string	$sub_objects = ""
bool	$omit_locator = false
string	$type = ""
string	$admin_mode = self::ADMIN_MODE_NONE
int	$requested_ref_id = 0
int	$requested_crtptrefid = 0
int	$requested_crtcb = 0
string	$requested_new_type = ""
string	$link_params
string	$html = ""

Detailed Description

SCORM Learning Modules.

Author

Alex Killing alex..nosp@m.kill.nosp@m.ing@g.nosp@m.mx.d.nosp@m.e $Id$

@ilCtrl_Calls ilObjSAHSLearningModuleGUI: ilFileSystemGUI, ilObjectMetaDataGUI, ilPermissionGUI, ilInfoScreenGUI, ilLearningProgressGUI @ilCtrl_Calls ilObjSAHSLearningModuleGUI: ilCommonActionDispatcherGUI, ilExportGUI, ilObjectCopyGUI, ilContainerResourceGUI

\

Definition at line 38 of file class.ilObjSAHSLearningModuleGUI.php.

Constructor & Destructor Documentation

__construct()

ilObjSAHSLearningModuleGUI::__construct	(		$data,
		int	$id,
		bool	$call_by_reference,
		bool	$prepare_output = true
	)

Constructor.

Reimplemented in ilObjSCORMLearningModuleGUI.

Definition at line 47 of file class.ilObjSAHSLearningModuleGUI.php.

    {
        global $DIC;
        $this->archives = $DIC->legacyArchives();
        $lng = $DIC->language();
        $rbacsystem = $DIC->access();
        $lng->loadLanguageModule("content");
        $lng->loadLanguageModule("sahs");
        $this->type = "sahs";
        parent::__construct($data, $id, $call_by_reference, false);
    }

References ilObjectGUI\$call_by_reference, ilObjectGUI\$data, $DIC, ilObjectGUI\$id, ilObjectGUI\$lng, ILIAS\GlobalScreen\Provider\__construct(), and ilLanguage\loadLanguageModule().

Here is the call graph for this function:

Member Function Documentation

_goto()

static ilObjSAHSLearningModuleGUI::_goto ( string  $a_target )

static

goto target course

Definition at line 949 of file class.ilObjSAHSLearningModuleGUI.php.

                                                  : void
    {
        global $DIC;
        $main_tpl = $DIC->ui()->mainTemplate();
        $ilAccess = $DIC->access();
        $ilErr = $DIC['ilErr'];
        $lng = $DIC->language();
 
        $targetParameters = explode('_', $a_target);
        $id = (int) $targetParameters[0];
 
        if ($id <= 0) {
            $ilErr->raiseError($lng->txt('msg_no_perm_read'), $ilErr->FATAL);
        }
 
        if ($ilAccess->checkAccess("write", "", $id)) {
            $DIC->ctrl()->setParameterByClass("ilSAHSEditGUI", "ref_id", (string) $id);
            $DIC->ctrl()->redirectByClass("ilSAHSEditGUI", "infoScreen"); //cmd was "" in 7
        }
 
        if ($ilAccess->checkAccess("visible", "", $id) || $ilAccess->checkAccess("read", "", $id)) {
            $DIC->ctrl()->setParameterByClass("ilSAHSPresentationGUI", "ref_id", (string) $id);
            $DIC->ctrl()->redirectByClass("ilSAHSPresentationGUI", "infoScreen");
        } else {
            if ($ilAccess->checkAccess("read", "", ROOT_FOLDER_ID)) {
                $main_tpl->setOnScreenMessage('info', sprintf(
                    $lng->txt("msg_no_perm_read_item"),
                    ilObject::_lookupTitle(ilObject::_lookupObjId($id))
                ), true);
                ilObjectGUI::_gotoRepositoryRoot();
            }
        }
 
        $ilErr->raiseError($lng->txt("msg_no_perm_read"), $ilErr->FATAL);
    }

References $DIC, ilObjectGUI\$id, ilObjectGUI\$lng, ilObjectGUI\_gotoRepositoryRoot(), ilObject\_lookupObjId(), ilObject\_lookupTitle(), ILIAS\Repository\int(), ROOT_FOLDER_ID, and ilLanguage\txt().

Referenced by ILIAS\StaticURL\Handler\LegacyGotoHandler\handle().

Here is the call graph for this function:

Here is the caller graph for this function:

addLocatorItems()

ilObjSAHSLearningModuleGUI::addLocatorItems

(

)

Exceptions

ilCtrlException

Reimplemented from ilObjectGUI.

Definition at line 988 of file class.ilObjSAHSLearningModuleGUI.php.

                                     : void
    {
        global $DIC;
        $ilLocator = $DIC['ilLocator'];
 
        if (is_object($this->object)) {
            $ilLocator->addItem(
                $this->object->getTitle(),
                $this->ctrl->getLinkTargetByClass("ilinfoscreengui", "showSummary"),
                "",
                $DIC->http()->wrapper()->query()->retrieve('ref_id', $DIC->refinery()->kindlyTo()->int())
            );
        }
    }

References $DIC, and ILIAS\Repository\object().

Here is the call graph for this function:

certificate()

ilObjSAHSLearningModuleGUI::certificate

(

)

Shows the certificate editor.

Definition at line 804 of file class.ilObjSAHSLearningModuleGUI.php.

                                 : void
    {
        $guiFactory = new ilCertificateGUIFactory();
        $output_gui = $guiFactory->create($this->object);
 
        $output_gui->certificateEditor();
    }

executeCommand()

ilObjSAHSLearningModuleGUI::executeCommand

(

)

execute command

Exceptions

ilCtrlException
ilException

Reimplemented from ilObjectGUI.

Reimplemented in ilObjSCORM2004LearningModuleGUI.

Definition at line 208 of file class.ilObjSAHSLearningModuleGUI.php.

                                    : void
    {
        global $DIC;
        $ilAccess = $DIC->access();
        $ilTabs = $DIC->tabs();
        $ilErr = $DIC['ilErr'];
        $navigationHistory = $DIC['ilNavigationHistory'];
 
        $baseClass = $refId = $DIC->http()->wrapper()->query()->retrieve('baseClass', $DIC->refinery()->kindlyTo()->string());
        $ilLog = ilLoggerFactory::getLogger('sahs');
        $ilLog->debug("bc:" . $baseClass . "; nc:" . $this->ctrl->getNextClass($this) . "; cmd:" . $this->ctrl->getCmd());
        if (strtolower($baseClass) === "iladministrationgui" ||
            strtolower($baseClass) === "ilsahspresentationgui" ||
            $this->getCreationMode() == true) {
            $this->prepareOutput();
        } else {
            $this->getTemplate();
            $this->setLocator();
            $this->setTabs();
            $this->tpl->setTitleIcon(ilUtil::getImagePath("standard/icon_lm.svg"));
            $this->tpl->setTitle($this->object->getTitle());
            $navigationHistory->addItem(
                $this->object->getRefId(),
                ilLink::_getLink($this->object->getRefId(), $this->object->getType()),
                $this->object->getType()
            );
        }
 
        $next_class = $this->ctrl->getNextClass($this);
        $cmd = $this->ctrl->getCmd();
 
        switch ($next_class) {
            case 'illtiproviderobjectsettinggui':
                $this->setSettingsSubTabs();
                $ilTabs->setSubTabActive('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 'ilobjectmetadatagui':
                if (!$ilAccess->checkAccess('write', '', $this->object->getRefId())) {
                    $ilErr->raiseError($this->lng->txt('permission_denied'), $ilErr->WARNING);
                }
                $md_gui = new ilObjectMetaDataGUI($this->object);
                $this->ctrl->forwardCommand($md_gui);
                break;
 
                //            case 'ilexportgui':
                //                $exp = new ilExportGUI($this);
                //                $exp->addFormat('xml');
                //                $this->ctrl->forwardCommand($exp);
                //                break;
 
            case 'ilpermissiongui':
                $perm_gui = new ilPermissionGUI($this);
                $this->ctrl->forwardCommand($perm_gui);
                break;
 
            case "ilfilesystemgui":
                // legacy on-disk file editing is no longer offered; content is
                // managed through the Resource Storage container once migrated
                $ilErr->raiseError($this->lng->txt('permission_denied'), $ilErr->WARNING);
                break;
 
            case strtolower(ilContainerResourceGUI::class):
                if (!$this->object->hasContainerResource()) {
                    $ilErr->raiseError($this->lng->txt('permission_denied'), $ilErr->WARNING);
                }
                $ilTabs->setTabActive('cont_list_files');
                $check_access = $ilAccess->checkAccess('write', '', $this->object->getRefId());
                $view_config = new ContainerViewConfiguration(
                    $this->object->getResource(),
                    new ilSAHSStakeholder(),
                    $this->lng->txt('files'),
                    ContainerViewMode::DATA_TABLE,
                    250,
                    $check_access,
                    $check_access
                );
                if ($check_access) {
                    $upload_files = $this->getUploadFiles();
                    if ($upload_files !== []) {
                        $options = [];
                        foreach ($upload_files as $file) {
                            $options[$file] = $file;
                        }
 
                        $modal = $DIC->ui()->factory()->modal()->roundtrip(
                            $this->lng->txt('sahs_import_from_upload_dir'),
                            [],
                            [
                                $DIC->ui()->factory()->input()->field()->select(
                                    $this->lng->txt('sahs_import_from_upload_dir_file_name'),
                                    $options,
                                    $this->lng->txt('sahs_import_from_upload_dir_info')
                                )->withRequired(true)
                            ],
                            $this->ctrl->getFormAction(
                                $this,
                                self::CMD_IMPORT_FROM_UPLOAD_DIR
                            )
                        );
 
                        $top_action = new TopAction(
                            $this->lng->txt('sahs_import_from_upload_dir'),
                            $modal->getShowSignal()
                        );
                        $view_config = $view_config->withExternalTopAction(
                            'sahs_import_from_upload_dir',
                            $top_action,
                            $modal
                        );
                    }
                }
                $container_gui = new ilContainerResourceGUI($view_config);
                $this->ctrl->forwardCommand($container_gui);
                break;
 
            case "ilcertificategui":
                if (!$ilAccess->checkAccess('write', '', $this->object->getRefId())) {
                    $ilErr->raiseError($this->lng->txt('permission_denied'), $ilErr->WARNING);
                }
                $this->setSettingsSubTabs();
                $ilTabs->setSubTabActive('certificate');
 
                $guiFactory = new ilCertificateGUIFactory();
                $output_gui = $guiFactory->create($this->object);
 
                $this->ctrl->forwardCommand($output_gui);
                break;
 
            case "illearningprogressgui":
                $new_gui = new ilLearningProgressGUI(ilLearningProgressGUI::LP_CONTEXT_REPOSITORY, $this->object->getRefId());
                $this->ctrl->forwardCommand($new_gui);
 
                break;
 
            case "ilinfoscreengui":
                $ilTabs->setTabActive('info_short');
                $this->infoScreenForward();
                break;
 
            case "ilcommonactiondispatchergui":
                $gui = ilCommonActionDispatcherGUI::getInstanceFromAjaxCall();
                if ($gui !== null) {
                    $this->ctrl->forwardCommand($gui);
                }
                break;
 
            case 'ilobjectcopygui':
                $this->prepareOutput();
                $cp = new ilObjectCopyGUI($this);
                $cp->setType('sahs');
                $this->ctrl->forwardCommand($cp);
                break;
 
            default:
                //                if ($this->object && !$this->object->getEditable()) {
                $cmd = $this->ctrl->getCmd("properties");
                //                }
                if ((strtolower($baseClass) === "iladministrationgui" ||
                    $this->getCreationMode() == true) &&
                    $cmd !== "frameset") {
                    $cmd .= "Object";
                }
 
                // #9225
                if ($cmd === "redrawHeaderAction") {
                    $cmd .= "Object";
                }
 
                $this->$cmd();
                break;
        }
    }

References $DIC, $GLOBALS, ILIAS\UI\Implementation\Component\Input\Field\$options, $refId, ILIAS\Repository\ctrl(), ILIAS\components\ResourceStorage\Container\View\DATA_TABLE, ilObjectGUI\getCreationMode(), ilUtil\getImagePath(), ilCommonActionDispatcherGUI\getInstanceFromAjaxCall(), ilLoggerFactory\getLogger(), getTemplate(), getUploadFiles(), infoScreenForward(), ILIAS\Repository\lng(), ilLearningProgressBaseGUI\LP_CONTEXT_REPOSITORY, ILIAS\Repository\object(), ilObjectGUI\prepareOutput(), ILIAS\Repository\rbac(), ilObjectGUI\setLocator(), setSettingsSubTabs(), and setTabs().

Here is the call graph for this function:

export()

ilObjSAHSLearningModuleGUI::export

(

)

Exceptions

ilCtrlException

Definition at line 1084 of file class.ilObjSAHSLearningModuleGUI.php.

                            : mixed
    {
        $GLOBALS['DIC']->tabs()->setTabActive('export');
        $exp_gui = new ilExportGUI($this);
        // Here used to be $this->ctrl->setCmd("listExportFiles") in <10
        $exp_gui->addFormat("xml");
        return $this->ctrl->forwardCommand($exp_gui);
    }

References $GLOBALS, and ILIAS\Repository\ctrl().

Here is the call graph for this function:

exportModule()

ilObjSAHSLearningModuleGUI::exportModule

(

)

Definition at line 1093 of file class.ilObjSAHSLearningModuleGUI.php.

                                  : void
    {
        global $DIC;
        //        $ilDB = $DIC->database();
        //
        $moduleId = ilObject::_lookupObjectId($DIC->http()->wrapper()->query()->retrieve('ref_id', $DIC->refinery()->kindlyTo()->int()));
        $exporter = new ilScormAiccExporter();
        //        $xml = $exporter->getXmlRepresentation("sahs", "5.1.0", $moduleId);
    }

References $DIC, ILIAS\TestQuestionPool\ExportImport\Foundation\Export\$exporter, and ilObject\_lookupObjectId().

Here is the call graph for this function:

getTabs()

ilObjSAHSLearningModuleGUI::getTabs ( )

protected

adds tabs to tab gui object

Exceptions

ilCtrlException

Reimplemented from ilObjectGUI.

Definition at line 816 of file class.ilObjSAHSLearningModuleGUI.php.

                                : void
    {
        global $DIC;
        $rbacsystem = $DIC->access();
        $ilCtrl = $DIC->ctrl();
        $ilHelp = $DIC->help();
 
        if ($this->ctrl->getCmd() === "delete") {
            return;
        }
 
        switch ($this->object->getSubType()) {
            case "scorm2004":
                $ilHelp->setScreenIdComponent("sahs13");
                break;
 
            case "scorm":
                $ilHelp->setScreenIdComponent("sahs12");
                break;
        }
 
        // list files tab — routes to the container view (migrated) or an
        // info box (not yet migrated); legacy on-disk editing is gone
        if ($rbacsystem->checkAccess("write", "", $this->object->getRefId())) {
            $this->tabs_gui->addTarget(
                "cont_list_files",
                $this->ctrl->getLinkTarget($this, "listFiles"),
                "",
                ""
            );
        }
        // info screen
        $force_active = ($this->ctrl->getNextClass() === "ilinfoscreengui")
            ? true
            : false;
        $this->tabs_gui->addTarget(
            "info_short",
            $this->ctrl->getLinkTargetByClass("ilinfoscreengui", "showSummary"),
            "",
            "ilinfoscreengui",
            "",
            $force_active
        );
 
        // properties
        $this->tabs_gui->addTarget(
            "settings",
            $this->ctrl->getLinkTarget($this, "properties"),
            array("", "properties"),
            get_class($this)
        );
 
        //        if (ilLearningProgressAccess::checkAccess($this->object->getRefId())) {
        //            $this->tabs_gui->addTarget(
        //                'learning_progress',
        //                $this->ctrl->getLinkTargetByClass(array('illearningprogressgui'), ''),
        //                '',
        //                array('illplistofobjectsgui','illplistofsettingsgui','illearningprogressgui','illplistofprogressgui')
        //            );
        //        }
 
        // tracking data
        if ($rbacsystem->checkAccess("read_learning_progress", "", $this->object->getRefId()) || $rbacsystem->checkAccess("edit_learning_progress", "", $this->object->getRefId())) {
            $ar_rights = [];
            if ($rbacsystem->checkAccess("read_learning_progress", "", $this->object->getRefId())) {
                $ar_rights = ['illplistofobjectsgui'];
            }
            if ($rbacsystem->checkAccess("edit_learning_progress", "", $this->object->getRefId())) {
                $ar_rights[] = 'illplistofsettingsgui';
            }
            if (ilLearningProgressAccess::checkAccess($this->object->getRefId())) {
                $this->tabs_gui->addTarget(
                    'learning_progress',
                    $this->ctrl->getLinkTargetByClass(array('illearningprogressgui'), ''),
                    '',
                    $ar_rights
                );
            }
 
            if ($this->object->getSubType() === "scorm2004" || $this->object->getSubType() === "scorm") {
                $privacy = ilPrivacySettings::getInstance();
                if ($privacy->enabledSahsProtocolData()) {
                    $scormClass = "ilobjscormlearningmodulegui";
                    if ($this->object->getSubType() === "scorm2004") {
                        $scormClass = "ilobjscorm2004learningmodulegui";
                    }
                    $this->ctrl->setParameterByClass($scormClass, "ref_id", $this->object->getRefId());
                    $this->tabs_gui->addTarget(
                        "cont_tracking_data",
                        $this->ctrl->getLinkTargetByClass(['ilsahseditgui',$scormClass], "showTrackingItems"),
                        "showTrackingItems"
                    );
                }
            }
        }
 
        if ($rbacsystem->checkAccess("write", "", $this->object->getRefId())) {
            $mdgui = new ilObjectMetaDataGUI($this->object);
            $mdtab = $mdgui->getTab();
            if ($mdtab) {
                $this->tabs_gui->addTarget(
                    "meta_data",
                    $mdtab,
                    "",
                    "ilmdeditorgui"
                );
            }
        }
        // export - Jour Fixe Date for Decission not to allow for Users with Right Wirite?
        if ($rbacsystem->checkAccess("edit", "", $this->object->getRefId())) {
            $this->tabs_gui->addTarget(
                "export",
                $this->ctrl->getLinkTarget($this, "export"),
                array("", "export"),
                get_class($this)
            );
        }
 
        // perm
        if ($rbacsystem->checkAccess('edit_permission', "", $this->object->getRefId())) {
            $this->tabs_gui->addTarget(
                "perm_settings",
                $this->ctrl->getLinkTargetByClass(array(get_class($this),'ilpermissiongui'), "perm"),
                array("perm","info","owner"),
                'ilpermissiongui'
            );
        }
    }

References $DIC, ilLearningProgressAccess\checkAccess(), ILIAS\Repository\ctrl(), ilPrivacySettings\getInstance(), and ILIAS\Repository\object().

Referenced by setTabs().

Here is the call graph for this function:

Here is the caller graph for this function:

getTemplate()

ilObjSAHSLearningModuleGUI::getTemplate

(

)

output main header (title and locator)

Definition at line 771 of file class.ilObjSAHSLearningModuleGUI.php.

                                 : void
    {
        global $DIC;
        $lng = $DIC->language();
 
        $this->tpl->loadStandardTemplate();
    }

References $DIC, and ilObjectGUI\$lng.

Referenced by executeCommand().

Here is the caller graph for this function:

getType()

ilObjSAHSLearningModuleGUI::getType

(

)

Definition at line 1103 of file class.ilObjSAHSLearningModuleGUI.php.

                             : string
    {
        return "sahs";
    }

getUploadDirectory()

ilObjSAHSLearningModuleGUI::getUploadDirectory

(

)

Definition at line 167 of file class.ilObjSAHSLearningModuleGUI.php.

                                        : string
    {
        $import_file_factory = new ilImportDirectoryFactory();
        try {
            $import_directory = $import_file_factory->getInstanceForComponent(ilImportDirectoryFactory::TYPE_SAHS);
        } catch (InvalidArgumentException) {
            return '';
        }
        return $import_directory->getAbsolutePath();
    }

References ilImportDirectoryFactory\TYPE_SAHS.

Referenced by getUploadFiles(), and importFromUploadDir().

Here is the caller graph for this function:

getUploadFiles()

ilObjSAHSLearningModuleGUI::getUploadFiles

(

)

Returns

string[]

Definition at line 181 of file class.ilObjSAHSLearningModuleGUI.php.

                                    : array
    {
        $upload_dir = $this->getUploadDirectory();
        if ($upload_dir === '') {
            return [];
        }
        $handle = opendir($upload_dir);
        if ($handle === false) {
            return [];
        }
        $files = [];
        while (false !== ($file = readdir($handle))) {
            $full_path = $upload_dir . "/" . $file;
            if (is_file($full_path) && is_readable($full_path)) {
                $files[] = $file;
            }
        }
        closedir($handle);
        sort($files);
        return $files;
    }

References $files, getUploadDirectory(), and ILIAS\UI\examples\Symbol\Glyph\Sort\sort().

Referenced by executeCommand().

Here is the call graph for this function:

Here is the caller graph for this function:

importFile()

ilObjSAHSLearningModuleGUI::importFile ( string  $file_to_import, string  $path_to_uploaded_file_in_temp_dir  )

protected

ILIAS\DI\Container $DIC

Reimplemented from ilObjectGUI.

Definition at line 674 of file class.ilObjSAHSLearningModuleGUI.php.

                                                                                                    : void
    {
        global $DIC;
        $ilLog = $DIC['log'];
 
        $lm_temp_dir = ilFileUtils::ilTempnam();
        ilFileUtils::makeDir($lm_temp_dir);
        $zar = new ZipArchive();
        $zar->open($file_to_import);
        $zar->extractTo($lm_temp_dir);
        $zar->close();
        ilFileUtils::renameExecutables($lm_temp_dir);
        $importer = new ilScormAiccImporter();
        $import_dirname = $lm_temp_dir . '/' . substr(basename($file_to_import), 0, -4);
        $importer->importXmlRepresentation("sahs", "", $import_dirname, null);
        $import_result = $importer->getResult();
 
        if ($import_result->isOK()) {
            $properties = $import_result->value();
            if (($subType = $properties['SubType']) === 'scorm') {
                $new_obj = new ilObjSCORMLearningModule();
            } else {
                $new_obj = new ilObjSCORM2004LearningModule();
            }
            $name = $properties['Title'];
            $description = $properties['Description'];
        } else {
            ilFileUtils::delDir($lm_temp_dir, false);
            $this->deleteUploadedImportFile($path_to_uploaded_file_in_temp_dir);
            $ilLog->error('SCORM import of ILIAS exportfile not possible because parsing error');
            $ilLog->error($import_result->error());
            $this->tpl->setOnScreenMessage('failure', $this->lng->txt("import_file_not_valid_here"), true);
            return;
        }
 
        $new_obj->setTitle($name);
        $new_obj->setSubType($subType);
        $new_obj->setDescription($description);
        $new_obj->create(true);
        $this->putObjectInTree($new_obj);
        $new_obj->setOfflineStatus(false);
 
        // create data directory, copy file to directory
        $new_obj->createDataDirectory();
 
        // Handle content.zip
        $scorm_file = "content.zip";
        $file_path = $import_dirname . "/" . $scorm_file;
        // Unzip content.zip before copying
        $content_unzip_dir = $import_dirname . '/content';
        $this->archives->unzip(
            $file_path,
            $content_unzip_dir,
            false,
            false,
            false
        );
        // Handle ILIAS 9 Exports containing 'lm_x' directories
        $source_dir_for_copy = $content_unzip_dir;
        $content_unzip_dir_iterator = new DirectoryIterator($content_unzip_dir);
        foreach ($content_unzip_dir_iterator as $fileinfo) {
            if ($fileinfo->isDir() && !$fileinfo->isDot()) {
                if (preg_match('/^lm_\d+$/', $fileinfo->getFilename())) {
                    $source_dir_for_copy = $source_dir_for_copy . '/' . $fileinfo->getFilename();
                    break;
                }
            }
        }
        // Move content
        ilFileUtils::rename($source_dir_for_copy, $new_obj->getDataDirectory());
        // Cleanup
        ilFileUtils::delDir($lm_temp_dir, false);
        ilFileUtils::renameExecutables($new_obj->getDataDirectory());
 
        $title = $new_obj->readObject();
        if ($title !== "") {
            ilObject::_writeTitle($new_obj->getId(), $title);
        }
 
        // move the imported package into a Resource Storage container
        $new_obj->moveDataDirectoryToContainer();
 
        //auto set learning progress settings
        $new_obj->setLearningProgressSettingsAtUpload();
 
        $importer->writeData("sahs", "5.1.0", $new_obj->getId());
 
        $this->tpl->setOnScreenMessage('info', $this->lng->txt($new_obj->getType() . "_added"), true);
        $this->ctrl->setParameterByClass(self::class, 'ref_id', $new_obj->getRefId());
        $this->ctrl->redirectByClass(self::class);
    }

References $DIC, ilObject\_writeTitle(), ILIAS\Repository\ctrl(), ilFileUtils\delDir(), ilObjectGUI\deleteUploadedImportFile(), ilFileUtils\ilTempnam(), ILIAS\Repository\lng(), ilFileUtils\makeDir(), ilObjectGUI\putObjectInTree(), ilFileUtils\rename(), and ilFileUtils\renameExecutables().

Here is the call graph for this function:

importFromUploadDir()

ilObjSAHSLearningModuleGUI::importFromUploadDir

(

)

Definition at line 77 of file class.ilObjSAHSLearningModuleGUI.php.

                                         : void
    {
        global $DIC;
        if (!$DIC->access()->checkAccess("write", "", $this->object->getRefId())) {
            $DIC->ui()->mainTemplate()->setOnScreenMessage(
                'failure',
                $this->lng->txt("msg_no_perm_write"),
                true
            );
            ilObjectGUI::_gotoRepositoryRoot();
            return;
        }
 
        $resource = $this->object->getResource();
        if ($resource === null) {
            $DIC->ui()->mainTemplate()->setOnScreenMessage(
                'failure',
                $this->lng->txt('permission_denied'),
                true
            );
            $this->ctrl->redirect($this, "listFiles");
            return;
        }
 
        $file = '';
        if ($DIC->http()->wrapper()->post()->has('form/input_0')) {
            $file = $DIC->http()->wrapper()->post()->retrieve(
                'form/input_0',
                $DIC->refinery()->kindlyTo()->string()
            );
        }
 
        $upload_directory = $this->getUploadDirectory();
        $path = $upload_directory . DIRECTORY_SEPARATOR . $file;
        $real_path = realpath($path);
        $upload_directory_prefix = rtrim($upload_directory, DIRECTORY_SEPARATOR) . DIRECTORY_SEPARATOR;
        $is_upload_file = $upload_directory !== ''
            && $real_path !== false
            && is_readable($real_path)
            && str_starts_with($real_path, $upload_directory_prefix);
 
        if ($file === '') {
            $DIC->ui()->mainTemplate()->setOnScreenMessage(
                'failure',
                $this->lng->txt('sahs_import_from_upload_dir_info'),
                true
            );
        } elseif ($is_upload_file) {
            $stream_resource = fopen($real_path, 'rb');
            if ($stream_resource === false) {
                $DIC->ui()->mainTemplate()->setOnScreenMessage(
                    'failure',
                    $this->lng->txt('sahs_file_import_from_upload_dir_failed'),
                    true
                );
            } else {
                try {
                    $success = $DIC->resourceStorage()->manageContainer()->addStreamToContainer(
                        $resource->getIdentification(),
                        Streams::ofResource($stream_resource),
                        $file
                    );
                } finally {
                    fclose($stream_resource);
                }
                if ($success) {
                    $DIC->ui()->mainTemplate()->setOnScreenMessage(
                        'success',
                        $this->lng->txt('sahs_file_imported_from_upload_dir'),
                        true
                    );
                } else {
                    $DIC->ui()->mainTemplate()->setOnScreenMessage(
                        'failure',
                        $this->lng->txt('sahs_file_import_from_upload_dir_failed'),
                        true
                    );
                }
            }
        } else {
            $DIC->ui()->mainTemplate()->setOnScreenMessage(
                'failure',
                $this->lng->txt('sahs_file_import_from_upload_dir_failed'),
                true
            );
        }
 
        $this->ctrl->redirect($this, "listFiles");
    }

References $DIC, ilObjectGUI\_gotoRepositoryRoot(), ILIAS\Repository\ctrl(), getUploadDirectory(), and ILIAS\Repository\lng().

Here is the call graph for this function:

infoScreen()

ilObjSAHSLearningModuleGUI::infoScreen ( )

protected

Definition at line 387 of file class.ilObjSAHSLearningModuleGUI.php.

                                   : void
    {
        if (strtolower($this->ctrl->getCmd() ?? '') === 'infoscreen') {
            $this->ctrl->redirectByClass(ilInfoScreenGUI::class, 'showSummary');
        }
 
        $this->infoScreenForward();
    }

References ILIAS\Repository\ctrl(), and infoScreenForward().

Here is the call graph for this function:

infoScreenForward()

ilObjSAHSLearningModuleGUI::infoScreenForward ( )

protected

Definition at line 396 of file class.ilObjSAHSLearningModuleGUI.php.

                                          : void
    {
        if (!$this->checkPermissionBool("visible") && !$this->checkPermissionBool("read")) {
            $this->error->raiseError($this->lng->txt("msg_no_perm_read"), $this->error->MESSAGE);
        }
 
        $info = new ilInfoScreenGUI($this);
        $info->enablePrivateNotes();
        $info->enableLearningProgress();
 
        // add read / back button
        if ($this->checkPermissionBool("read")) {
            $ilToolbar = $GLOBALS['DIC']->toolbar();
            $ilToolbar->addComponent($this->object->getViewButton());
        }
 
        $info->enableNewsEditing(false);
        if ($this->checkPermissionBool("write")) {
            $news_set = new ilSetting("news");
            $enable_internal_rss = $news_set->get("enable_rss_for_internal");
            if ($enable_internal_rss) {
                $info->setBlockProperty("news", "settings", "");
                $info->setBlockProperty("news", "public_notifications_option", "true");
            }
        }
        // show standard meta data section
        $info->addMetaDataSections($this->object->getId(), 0, $this->object->getType());
 
        // forward the command
        $this->ctrl->forwardCommand($info);
    }

References $GLOBALS, $info, ilObjectGUI\checkPermissionBool(), ILIAS\Repository\ctrl(), ILIAS\Repository\lng(), and ILIAS\Repository\object().

Referenced by executeCommand(), and infoScreen().

Here is the call graph for this function:

Here is the caller graph for this function:

initCreateForm()

ilObjSAHSLearningModuleGUI::initCreateForm ( string  $new_type )

protected

Reimplemented from ilObjectGUI.

Definition at line 458 of file class.ilObjSAHSLearningModuleGUI.php.

                                                       : ilPropertyFormGUI
    {
        global $DIC;
        $lng = $DIC->language();
        $ilCtrl = $DIC->ctrl();
        $form = new ilPropertyFormGUI();
 
        // type selection
        $radg = new ilRadioGroupInputGUI($lng->txt("type"), "sub_type");
        $op0 = new ilRadioOption($this->lng->txt("lm_type_scorm"), "scorm");
        $op0->setInfo($this->lng->txt("lm_type_scorm_info"));
        $radg->addOption($op0);
        $op0 = new ilRadioOption($this->lng->txt("lm_type_scorm2004"), "scorm2004");
        $op0->setInfo($this->lng->txt("lm_type_scorm2004_info"));
        $radg->addOption($op0);
        $radg->setValue("scorm");
        $form->addItem($radg);
 
        $options = array();
        if (ilUploadFiles::_getUploadDirectory()) {
            $options[""] = $this->lng->txt("cont_select_from_upload_dir");
            $files = ilUploadFiles::_getUploadFiles();
            foreach ($files as $file) {
                $file = htmlspecialchars($file, ENT_QUOTES, "utf-8");
                $options[$file] = $file;
            }
        }
        if (count($options) > 1) {
            // choose upload directory
            $radg = new ilRadioGroupInputGUI($lng->txt("cont_choose_file_source"), "file_source");
            $op0 = new ilRadioOption($this->lng->txt("cont_choose_local"), "local");
            $radg->addOption($op0);
            $op1 = new ilRadioOption($this->lng->txt("cont_choose_upload_dir"), "upload_dir");
            $radg->addOption($op1);
            $radg->setValue("local");
 
            $fi = new ilFileInputGUI($this->lng->txt("select_file"), "scormfile");
            $fi->setRequired(true);
            $op0->addSubItem($fi);
 
            $si = new ilSelectInputGUI($this->lng->txt("cont_uploaded_file"), "uploaded_file");
            $si->setOptions($options);
            $op1->addSubItem($si);
 
            $form->addItem($radg);
        } else {
            $fi = new ilFileInputGUI($this->lng->txt("select_file"), "scormfile");
            $fi->setRequired(true);
            $form->addItem($fi);
        }
 
        $form->addCommandButton("upload", $lng->txt("create"));
        $form->addCommandButton("cancel", $lng->txt("cancel"));
 
        $form->setTitle($lng->txt("import_sahs"));
        $form->setFormAction($ilCtrl->getFormAction($this, "upload"));
        $form->setTarget(ilFrameTargetInfo::_getFrame("MainContent"));
        return $form;
    }

References $DIC, $files, $form, ilObjectGUI\$lng, ILIAS\UI\Implementation\Component\Input\Field\$options, ilFrameTargetInfo\_getFrame(), ilUploadFiles\_getUploadDirectory(), ilUploadFiles\_getUploadFiles(), ilPropertyFormGUI\addCommandButton(), ilPropertyFormGUI\addItem(), ILIAS\Repository\lng(), ilFormGUI\setFormAction(), ilFormGUI\setTarget(), ilPropertyFormGUI\setTitle(), and ilLanguage\txt().

Here is the call graph for this function:

listFiles()

ilObjSAHSLearningModuleGUI::listFiles

(

)

List files tab: forward to the container view once migrated, otherwise show an info box.

Definition at line 63 of file class.ilObjSAHSLearningModuleGUI.php.

                               : void
    {
        global $DIC;
        if ($this->object->hasContainerResource()) {
            $this->ctrl->redirectByClass(ilContainerResourceGUI::class);
            return;
        }
        $this->tabs_gui->setTabActive('cont_list_files');
        $message_box = $DIC->ui()->factory()->messageBox()->info(
            $this->lng->txt('infobox_files_not_migrated')
        );
        $this->tpl->setContent($DIC->ui()->renderer()->render([$message_box]));
    }

References $DIC, ILIAS\Repository\ctrl(), ILIAS\Repository\lng(), and ILIAS\Repository\object().

Here is the call graph for this function:

properties()

ilObjSAHSLearningModuleGUI::properties

(

)

module properties

Reimplemented in ilObjSCORM2004LearningModuleGUI, and ilObjSCORMLearningModuleGUI.

Definition at line 444 of file class.ilObjSAHSLearningModuleGUI.php.

                                : void
    {
        $this->ctrl->setParameterByClass(
            "ilSAHSEditGUI",
            "ref_id",
            $this->ref_id
        );
        $this->ctrl->redirectByClass(ilSAHSEditGUI::class);
    }

References ILIAS\Repository\ctrl().

Here is the call graph for this function:

saveProperties()

ilObjSAHSLearningModuleGUI::saveProperties

(

)

Reimplemented in ilObjSCORM2004LearningModuleGUI, and ilObjSCORMLearningModuleGUI.

Definition at line 454 of file class.ilObjSAHSLearningModuleGUI.php.

                                    : void
    {
    }

setSettingsSubTabs()

ilObjSAHSLearningModuleGUI::setSettingsSubTabs

(

)

Exceptions

ilCtrlException

Definition at line 1024 of file class.ilObjSAHSLearningModuleGUI.php.

                                        : void
    {
        global $DIC;
        $lng = $DIC->language();
        $ilTabs = $DIC->tabs();
        $ilCtrl = $DIC->ctrl();
 
        $ilTabs->addSubTabTarget(
            "general",
            $this->ctrl->getLinkTarget($this, "properties"),
            array("edit", ""),
            get_class($this)
        );
 
        $ilTabs->addSubTabTarget(
            "cont_sc_new_version",
            $this->ctrl->getLinkTarget($this, "newModuleVersion"),
            array("edit", ""),
            get_class($this)
        );
 
        if (method_exists($this, 'adoptSettings')) {
            $ilTabs->addSubTabTarget(
                "sahs_adopt_settings",
                $this->ctrl->getLinkTarget($this, "adoptSettings"),
                array("edit", ""),
                get_class($this)
            );
        }
 
        $validator = new ilCertificateActiveValidator();
        if (true === $validator->validate()) {
            // // create and insert object in objecttree
            // $ilTabs->addSubTabTarget("certificate",
            // $this->ctrl->getLinkTarget($this, "certificate"),
            // array("certificate", "certificateEditor", "certificateRemoveBackground", "certificateSave",
            // "certificatePreview", "certificateDelete", "certificateUpload", "certificateImport")
            // );
            $ilTabs->addSubTabTarget(
                "certificate",
                $this->ctrl->getLinkTargetByClass([static::class, "ilcertificategui"], "certificateeditor"),
                "",
                "ilcertificategui"
            );
        }
 
        $lti_settings = new ilLTIProviderObjectSettingGUI($this->object->getRefId());
        if ($lti_settings->hasSettingsAccess()) {
            $ilTabs->addSubTabTarget(
                'lti_provider',
                $this->ctrl->getLinkTargetByClass(ilLTIProviderObjectSettingGUI::class)
            );
        }
 
        $ilTabs->setTabActive('settings');
    }

References $DIC, ilObjectGUI\$lng, ILIAS\Repository\ctrl(), and ILIAS\Repository\object().

Referenced by ilObjSCORMLearningModuleGUI\adoptSettings(), ilObjSCORMLearningModuleGUI\applyAdoptSettings(), executeCommand(), ilObjSCORMLearningModuleGUI\newModuleVersion(), ilObjSCORM2004LearningModuleGUI\properties(), and ilObjSCORMLearningModuleGUI\properties().

Here is the call graph for this function:

Here is the caller graph for this function:

setTabs()

ilObjSAHSLearningModuleGUI::setTabs ( )

protected

Exceptions

ilCtrlException

Reimplemented from ilObjectGUI.

Definition at line 782 of file class.ilObjSAHSLearningModuleGUI.php.

                                : void
    {
        global $DIC;
        $baseClass = $refId = $DIC->http()->wrapper()->query()->retrieve('baseClass', $DIC->refinery()->kindlyTo()->string());
        $this->tpl->setTitleIcon(ilUtil::getImagePath("standard/icon_lm.svg"));
        $this->tpl->setTitle($this->object->getTitle());
        $this->tpl->setDescription($this->object->getDescription());
        if ($this->object && $this->object->getOfflineStatus()) {
            $this->tpl->setAlertProperties(array(
                array("alert" => true,
                      "property" => $this->lng->txt("status"),
                      "value" => $this->lng->txt("offline"))
            ));
        }
        if (strtolower($baseClass) === "ilsahseditgui" || strtolower($baseClass) === "ilrepositorygui") {
            $this->getTabs();
        }
    }

References $DIC, $refId, ilUtil\getImagePath(), getTabs(), ILIAS\Repository\lng(), and ILIAS\Repository\object().

Referenced by executeCommand().

Here is the call graph for this function:

Here is the caller graph for this function:

upload()

ilObjSAHSLearningModuleGUI::upload

(

)

Exceptions

ilDatabaseException
ilException
ilFileUtilsException
ilObjectNotFoundException

Definition at line 669 of file class.ilObjSAHSLearningModuleGUI.php.

                            : void
    {
        $this->uploadObject();
    }

References uploadObject().

Here is the call graph for this function:

uploadObject()

ilObjSAHSLearningModuleGUI::uploadObject

(

)

display status information or report errors messages in case of error

Exceptions

ilDatabaseException
ilException
ilFileUtilsException
ilObjectNotFoundException

Definition at line 526 of file class.ilObjSAHSLearningModuleGUI.php.

                                  : void
    {
        global $DIC;
        $rbacsystem = $DIC->access();
        $ilErr = $DIC['ilErr'];
        $ilLog = ilLoggerFactory::getLogger('sahs');
        $refId = $DIC->http()->wrapper()->query()->retrieve('ref_id', $DIC->refinery()->kindlyTo()->int());
        $importFromXml = false;
 
        // check create permission
        if (!$rbacsystem->checkAccess("create", '', $refId, "sahs")) {
            $ilErr->raiseError($this->lng->txt("no_create_permission"), $ilErr->WARNING);
        } elseif ($_FILES["scormfile"]["name"]) {
            // check if file was uploaded
            $source = $_FILES["scormfile"]["tmp_name"];
            if (($source === 'none') || (!$source)) {
                $ilErr->raiseError($this->lng->txt("msg_no_file"), $ilErr->MESSAGE);
            }
            // get_cfg_var("upload_max_filesize"); // get the may filesize form t he php.ini
            switch ($_FILES["scormfile"]["error"]) {
                case UPLOAD_ERR_INI_SIZE:
                case UPLOAD_ERR_FORM_SIZE:
                    $ilErr->raiseError($this->lng->txt("err_max_file_size_exceeds"), $ilErr->MESSAGE);
                    break;
 
                case UPLOAD_ERR_PARTIAL:
                    $ilErr->raiseError($this->lng->txt("err_partial_file_upload"), $ilErr->MESSAGE);
                    break;
 
                case UPLOAD_ERR_NO_FILE:
                    $ilErr->raiseError($this->lng->txt("err_no_file_uploaded"), $ilErr->MESSAGE);
                    break;
            }
 
            $file = pathinfo($_FILES["scormfile"]["name"]);
        } elseif ($DIC->http()->wrapper()->post()->has('uploaded_file')) {
            $uploadedFile = $DIC->http()->wrapper()->post()->retrieve('uploaded_file', $DIC->refinery()->kindlyTo()->string());
            // check if the file is in the upload directory and readable
            if (!ilUploadFiles::_checkUploadFile($uploadedFile)) {
                $ilErr->raiseError($this->lng->txt("upload_error_file_not_found"), $ilErr->MESSAGE);
            }
 
            $file = pathinfo($uploadedFile);
        } else {
            $ilErr->raiseError($this->lng->txt("msg_no_file"), $ilErr->MESSAGE);
        }
 
        $name = substr($file["basename"], 0, strlen($file["basename"]) - strlen($file["extension"]) - 1);
        if ($name == "") {
            $name = $this->lng->txt("no_title");
        }
 
        $description = "";
 
        $subType = "scorm2004";
        if ($DIC->http()->wrapper()->post()->has('sub_type')) {
            $subType = $DIC->http()->wrapper()->post()->retrieve('sub_type', $DIC->refinery()->kindlyTo()->string());
        }
 
        // always import authoring packages as scorm2004, see bug #27801
        //        if ($_POST["editable"] == 'y') {
        //            $subType = "scorm2004";
        //        }
 
        // create and insert object in objecttree
        switch ($subType) {
            case "scorm2004":
                $newObj = new ilObjSCORM2004LearningModule();
                break;
 
            case "scorm":
                $newObj = new ilObjSCORMLearningModule();
                break;
        }
 
        $newObj->setTitle($name);
        $newObj->setSubType($subType);
        $newObj->setDescription($description);
        $newObj->create(true);
        $newObj->createReference();
        $newObj->putInTree($refId);
        $newObj->setPermissions($refId);
        $newObj->setOfflineStatus(true);
 
        // create data directory, copy file to directory
        $newObj->createDataDirectory();
 
        if ($_FILES["scormfile"]["name"]) {
            // copy uploaded file to data directory
            $file_path = $newObj->getDataDirectory() . "/" . $_FILES["scormfile"]["name"];
            ilFileUtils::moveUploadedFile(
                $_FILES["scormfile"]["tmp_name"],
                $_FILES["scormfile"]["name"],
                $file_path
            );
            $this->archives->unzip(
                $file_path,
                $newObj->getDataDirectory(),
                false,
                false,
                false
            );
        } else {
            // copy uploaded file to data directory
            $uploadedFile = $DIC->http()->wrapper()->post()->retrieve('uploaded_file', $DIC->refinery()->kindlyTo()->string());
            $file_path = $newObj->getDataDirectory() . "/" . $uploadedFile;
            ilUploadFiles::_copyUploadFile($uploadedFile, $file_path);
            $this->archives->unzip(
                $file_path,
                $newObj->getDataDirectory(),
                false,
                false,
                false
            );
        }
        ilFileUtils::renameExecutables($newObj->getDataDirectory());
 
        $title = $newObj->readObject();
        if ($title != "") {
            $newObj->setTitle($title);
            ilObject::_writeTitle($newObj->getId(), $title);
        }
 
        // move the freshly uploaded package into a Resource Storage container
        $newObj->moveDataDirectoryToContainer();
 
        //auto set learning progress settings
        $newObj->setLearningProgressSettingsAtUpload();
 
        if ($importFromXml) {
            $importer->writeData("sahs", "5.1.0", $newObj->getId());
        }
 
        $this->tpl->setOnScreenMessage('info', $this->lng->txt($newObj->getType() . "_added"), true);
        ilUtil::redirect("ilias.php?baseClass=ilSAHSEditGUI&ref_id=" . $newObj->getRefId());
    }

References $DIC, $refId, ilUploadFiles\_checkUploadFile(), ilUploadFiles\_copyUploadFile(), ilObject\_writeTitle(), ilLoggerFactory\getLogger(), ILIAS\Repository\lng(), ilFileUtils\moveUploadedFile(), ilUtil\redirect(), and ilFileUtils\renameExecutables().

Referenced by upload().

Here is the call graph for this function:

Here is the caller graph for this function:

Field Documentation

$archives

ilObjSAHSLearningModuleGUI::$archives

private

Definition at line 42 of file class.ilObjSAHSLearningModuleGUI.php.

$form

ilPropertyFormGUI ilObjSAHSLearningModuleGUI::$form

private

Definition at line 41 of file class.ilObjSAHSLearningModuleGUI.php.

Referenced by initCreateForm().

CMD_IMPORT_FROM_UPLOAD_DIR

const ilObjSAHSLearningModuleGUI::CMD_IMPORT_FROM_UPLOAD_DIR = 'importFromUploadDir'

Definition at line 40 of file class.ilObjSAHSLearningModuleGUI.php.

---

The documentation for this class was generated from the following file:

• components/ILIAS/ScormAicc/classes/class.ilObjSAHSLearningModuleGUI.php