Adding "hide_scorm_copy_link" configuration see BT#8459

main/install/configuration.dist.php

@@ -197,3 +197,5 @@ $_configuration['system_stable']     = NEW_VERSION_STABLE;
 //$_configuration['allow_lp_return_link'] = false;
 // If true the export link is blocked.
 //$_configuration['hide_scorm_export_link'] = false;
+// If true the copy link is blocked.
+//$_configuration['hide_scorm_copy_link'] = false;

main/newscorm/lp_controller.php

@@ -683,6 +683,12 @@ switch ($action) {
         if (!$is_allowed_to_edit) {
             api_not_allowed(true);
         }
+
+        global $_configuration;
+        if (isset($_configuration['hide_scorm_copy_link']) && $_configuration['hide_scorm_copy_link']) {
+            api_not_allowed(true);
+        }
+
         if ($debug > 0) error_log('New LP - export action triggered', 0);
         if (!$lp_found) { error_log('New LP - No learnpath given for copy', 0); require 'lp_list.php'; }
         else {

main/newscorm/lp_list.php

@@ -371,7 +371,7 @@ if (!empty($flat_list)) {
                 $dsp_disk = Display::return_icon('cd_gray.gif', get_lang('Export'), array(), ICON_SIZE_SMALL);
             }
 
-            //Copy
+            // Copy
             $copy = Display::url(Display::return_icon('cd_copy.png', get_lang('Copy'), array(), ICON_SIZE_SMALL), api_get_self()."?".api_get_cidreq()."&action=copy&lp_id=$id");
 
             /* Auto Lunch LP code */
@@ -402,7 +402,6 @@ if (!empty($flat_list)) {
                 $dsp_delete = Display::return_icon('delete_na.png', get_lang('LearnpathDeleteLearnpath'), '', ICON_SIZE_SMALL);
             }
 
-
             /* COLUMN ORDER	 */
 
             // Only active while session mode is not active
@@ -439,6 +438,11 @@ if (!empty($flat_list)) {
             $dsp_disk = null;
         }
 
+        if (isset($_configuration['hide_scorm_copy_link']) && $_configuration['hide_scorm_copy_link']) {
+            $copy = null;
+        }
+
+
         echo $dsp_line.$start_time.$end_time.$dsp_progress.$dsp_desc.$dsp_export.$dsp_edit.$dsp_build.$dsp_edit_lp.$dsp_visible.$dsp_publish.$dsp_reinit.
         $dsp_default_view.$dsp_debug.$dsp_disk.$copy.$lp_auto_lunch_icon.$export_icon.$dsp_delete.$dsp_order.$dsp_edit_close;