LSO: 42591, copy intro and extro content page if learning sequence is…

… copied.

https://mantis.ilias.de/view.php?id=42591

Modules/LearningSequence/classes/class.ilObjLearningSequence.php

@@ -138,6 +138,7 @@ public function cloneObject(int $target_id, int $copy_id = 0, bool $omit_tree =
         $this->cloneSettings($new_obj);
         $this->cloneLPSettings($new_obj->getId());
         $this->cloneActivation($new_obj, $copy_id);
+        $this->cloneIntroAndExtroContentPages($new_obj, [self::CP_INTRO, self::CP_EXTRO]);
 
         $roles = $new_obj->getLSRoles();
         $roles->addLSMember(
@@ -147,6 +148,21 @@ public function cloneObject(int $target_id, int $copy_id = 0, bool $omit_tree =
         return $new_obj;
     }
 
+    protected function cloneIntroAndExtroContentPages(ilObjLearningSequence $new_obj, array $cp_types): void
+    {
+        foreach ($cp_types as $type) {
+            $old_intro_page_id = $this->getContentPageId($type);
+            if (ilContainerPage::_exists(
+                "cont",
+                $old_intro_page_id
+            )) {
+                $new_obj->createContentPage($type);
+                $new_copg_id = $new_obj->getContentPageId($type);
+                $original_page = new \ilContainerPage($old_intro_page_id);
+                $original_page->copy($new_copg_id, "cont", $new_copg_id);
+            }
+        }
+    }
 
     protected function cloneAutoGeneratedRoles(ilObjLearningSequence $new_obj): bool
     {