--- loncom/interface/loncreatecourse.pm 2006/05/11 01:16:44 1.87 +++ loncom/interface/loncreatecourse.pm 2006/05/15 19:11:40 1.88 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.87 2006/05/11 01:16:44 www Exp $ +# $Id: loncreatecourse.pm,v 1.88 2006/05/15 19:11:40 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -234,7 +234,7 @@ sub copydbfiles { foreach (&crsdirlist($origcrsid)) { if ($_=~/\.db$/) { unless - ($_=~/^(nohist\_|discussiontimes|classlist|versionupdate|resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations|(grading|review)queue|CODEs)/) { + ($_=~/^(nohist\_|discussiontimes|classlist|versionupdate|resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations|gradingqueue|reviewqueue|CODEs)/) { ©db($origcrsid,$newcrsid,$_); my $histfile=$_; $histfile=~s/\.db$/\.hist/;