[LON-CAPA-cvs] cvs: loncom /interface lonclonecourse.pm

[raeburn]

raeburn		Tue Mar 15 18:18:31 2022 EDT

  Modified files:              
    /loncom/interface	lonclonecourse.pm 
  Log:
  - Bug 6907
    Keys and secrets used for Link Protection items set in course being cloned 
    are not copied; 'usable' status for those items is deleted in new course. 
  
  
Index: loncom/interface/lonclonecourse.pm
diff -u loncom/interface/lonclonecourse.pm:1.16 loncom/interface/lonclonecourse.pm:1.17
--- loncom/interface/lonclonecourse.pm:1.16	Thu Jul 23 18:03:10 2020
+++ loncom/interface/lonclonecourse.pm	Tue Mar 15 18:18:31 2022
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # routines for clone a course
 #
-# $Id: lonclonecourse.pm,v 1.16 2020/07/23 18:03:10 raeburn Exp $
+# $Id: lonclonecourse.pm,v 1.17 2022/03/15 18:18:31 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -230,6 +230,14 @@
                 return @info;
             }
         }
+    } elsif ($which eq 'lti') {
+        foreach my $key (keys($data)) {
+            if (ref($data{$key}) eq 'HASH') {
+                if (exists($data{$key}{'usable'})) {
+                    delete($data{$key}{'usable'});
+                }
+            }
+        }
     }
     my $putres = &Apache::lonnet::put
                      ($which,\%data,$newcrsdata{'domain'},$newcrsdata{'num'});