--- loncom/interface/loncreatecourse.pm 2005/11/04 21:17:18 1.82 +++ loncom/interface/loncreatecourse.pm 2005/11/04 21:48:30 1.83 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.82 2005/11/04 21:17:18 albertel Exp $ +# $Id: loncreatecourse.pm,v 1.83 2005/11/04 21:48:30 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -220,7 +220,7 @@ sub copydbfiles { foreach (&crsdirlist($origcrsid)) { if ($_=~/\.db$/) { unless - ($_=~/^(nohist\_|discussiontimes|classlist|versionupdate|resourcedata|\Q$origcrs_discussion\E)/) { + ($_=~/^(nohist\_|discussiontimes|classlist|versionupdate|resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations|(grading|review)queue)/) { ©db($origcrsid,$newcrsid,$_); my $histfile=$_; $histfile=~s/\.db$/\.hist/;