19 declare(strict_types=1);
57 $this->lom_services = $DIC->learningObjectMetadata();
67 switch ($DIC->ctrl()->getNextClass()) {
70 $command = $DIC->ctrl()->getCmd(self::CMD_SHOW_SETTINGS) .
'Cmd';
83 $DIC->ui()->mainTemplate()->setContent($form->getHTML());
92 if ($form->checkInput()) {
94 $this->
object->getProvider()->save();
96 $DIC->ctrl()->redirect($this, self::CMD_SHOW_SETTINGS);
109 $this->lom_services->derive()
110 ->fromBasicProperties($object->
getTitle())
115 foreach ($object->getProvider()->getKeywordsArray() as $keyword) {
116 if ($keyword !==
'') {
117 $keywords[] = $keyword;
120 $this->lom_services->manipulate($object->
getId(), $object->
getId(), $object->
getType())
121 ->prepareCreateOrUpdate(
122 $this->lom_services->paths()->keywords(),
136 $DIC->ctrl()->getFormAction($this),
137 self::CMD_SAVE_SETTINGS,
138 self::CMD_SHOW_SETTINGS
showSettingsCmd(ilLTIConsumeProviderFormGUI $form=null)
ilLTIConsumerAccess $access
__construct(ilObjLTIConsumer $object, ilLTIConsumerAccess $access)
ilLTIConsumerAccess constructor.
initMetadata(\ilObject $object)
executeCommand()
Execute Command.
LOMServices $lom_services
buildForm(ilLTIConsumeProvider $provider)