--- loncom/interface/lonclonecourse.pm	2022/03/15 18:18:31	1.17
+++ loncom/interface/lonclonecourse.pm	2024/12/12 17:48:15	1.19
@@ -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.19 2024/12/12 17:48:15 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'});
@@ -366,7 +366,8 @@ sub copydbfiles {
         if ($_=~/\.db$/) {
             unless ($_=~/^(nohist\_|disclikes|discussiontimes|classlist|versionupdate
                    |resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations
-                   |gradingqueue|reviewqueue|CODEs|groupmembership|comm_block)/) {
+                   |gradingqueue|reviewqueue|CODEs|groupmembership|comm_block
+                   |linkprot_passback_pending)/) {
                 my @info = &copydb($origcrsid,$newcrsid,$_,$newinstcode,$newowner,
                                    $tinyurls);
                 if (@info) {