--- loncom/interface/lonclonecourse.pm 2014/12/11 01:14:40 1.10 +++ 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.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 @@ 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)/) { - ©db($origcrsid,$newcrsid,$_); - } + unless ($_=~/^(nohist\_|disclikes|discussiontimes|classlist|versionupdate + |resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations + |gradingqueue|reviewqueue|CODEs|groupmembership|comm_block)/) { + ©db($origcrsid,$newcrsid,$_); + } } } }