--- loncom/interface/lonclonecourse.pm	2012/03/10 02:45:35	1.9
+++ loncom/interface/lonclonecourse.pm	2015/06/23 17:49:06	1.11
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # routines for clone a course
 #
-# $Id: lonclonecourse.pm,v 1.9 2012/03/10 02:45:35 raeburn Exp $
+# $Id: lonclonecourse.pm,v 1.11 2015/06/23 17:49:06 musolffc Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -166,7 +166,7 @@ sub copyresourcedb {
 	$startdate = $start{'default_enrollment_start_date'};
     }
 # ugly retro fix for broken version of types
-    foreach my $key (keys %data) {
+    foreach my $key (keys(%data)) {
 	if ($key=~/\wtype$/) {
 	    my $newkey=$key;
 	    $newkey=~s/type$/\.type/;
@@ -177,7 +177,7 @@ sub copyresourcedb {
 # adjust symbs
     my $pattern='uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/';
     my $new=    'uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/';
-    foreach my $key (keys %data) {
+    foreach my $key (keys(%data)) {
 	if ($key=~/\Q$pattern\E/) {
 	    my $newkey=$key;
 	    $newkey=~s/\Q$pattern\E/$new/;
@@ -186,7 +186,7 @@ sub copyresourcedb {
 	}
     }
 #  transfer hash
-    foreach my $key (keys %data) {
+    foreach my $key (keys(%data)) {
 	my $thiskey=$key;
 	$thiskey=~s/^$origcrsid/$newcrsid/;
 	$newdata{$thiskey}=$data{$key};
@@ -227,10 +227,11 @@ sub copydbfiles {
     $origcrs_discussion=~s|/|_|g;
     foreach (&crsdirlist($origcrsid)) {
 	if ($_=~/\.db$/) {
-	    unless 
-             ($_=~/^(nohist\_|disclikes|discussiontimes|classlist|versionupdate|resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations|gradingqueue|reviewqueue|CODEs|groupmembership)/) {
-		 &copydb($origcrsid,$newcrsid,$_);
-	     }
+        unless ($_=~/^(nohist\_|disclikes|discussiontimes|classlist|versionupdate
+                |resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations
+                |gradingqueue|reviewqueue|CODEs|groupmembership|comm_block)/) {
+            &copydb($origcrsid,$newcrsid,$_);
+        }
 	}
     }
 }