[LON-CAPA-cvs] cvs: loncom /interface loncreatecourse.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Mon, 15 May 2006 19:11:42 -0000
albertel Mon May 15 15:11:42 2006 EDT
Modified files:
/loncom/interface loncreatecourse.pm
Log:
- correcting the re so it actually doesn't clone the grading queue
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.87 loncom/interface/loncreatecourse.pm:1.88
--- loncom/interface/loncreatecourse.pm:1.87 Wed May 10 21:16:44 2006
+++ loncom/interface/loncreatecourse.pm Mon May 15 15:11:40 2006
@@ -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 @@
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/;