--- loncom/interface/lonclonecourse.pm	2020/07/23 18:03:10	1.16
+++ loncom/interface/lonclonecourse.pm	2022/03/25 06:42:17	1.18
@@ -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.18 2022/03/25 06:42:17 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -230,6 +230,14 @@ sub copydb {
                 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'});