--- loncom/interface/lonclonecourse.pm	2022/03/15 18:18:31	1.17
+++ 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.17 2022/03/15 18:18:31 raeburn Exp $
+# $Id: lonclonecourse.pm,v 1.18 2022/03/25 06:42:17 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -231,7 +231,7 @@ sub copydb {
             }
         }
     } elsif ($which eq 'lti') {
-        foreach my $key (keys($data)) {
+        foreach my $key (keys(%data)) {
             if (ref($data{$key}) eq 'HASH') {
                 if (exists($data{$key}{'usable'})) {
                     delete($data{$key}{'usable'});