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

[musolffc]

musolffc		Tue Jun 23 17:49:06 2015 EDT

  Modified files:              
    /loncom/interface	lonclonecourse.pm 
  Log:
  Excluding blocking events from course cloning
  
  
Index: loncom/interface/lonclonecourse.pm
diff -u loncom/interface/lonclonecourse.pm:1.10 loncom/interface/lonclonecourse.pm:1.11
--- loncom/interface/lonclonecourse.pm:1.10	Thu Dec 11 01:14:40 2014
+++ loncom/interface/lonclonecourse.pm	Tue Jun 23 17:49:06 2015
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # routines for clone a course
 #
-# $Id: lonclonecourse.pm,v 1.10 2014/12/11 01:14:40 raeburn Exp $
+# $Id: lonclonecourse.pm,v 1.11 2015/06/23 17:49:06 musolffc Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -227,10 +227,11 @@
     $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,$_);
+        }
 	}
     }
 }