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

[albertel]

albertel		Fri Oct 15 18:48:48 2004 EDT

  Modified files:              
    /loncom/interface	loncreatecourse.pm 
  Log:
  - BUG#3545, don't copy scantron files over when cloning
  
  
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.68 loncom/interface/loncreatecourse.pm:1.69
--- loncom/interface/loncreatecourse.pm:1.68	Sat Sep 25 13:52:03 2004
+++ loncom/interface/loncreatecourse.pm	Fri Oct 15 18:48:48 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Create a course
 #
-# $Id: loncreatecourse.pm,v 1.68 2004/09/25 17:52:03 matthew Exp $
+# $Id: loncreatecourse.pm,v 1.69 2004/10/15 22:48:48 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -204,7 +204,9 @@
 sub copyuserfiles {
     my ($origcrsid,$newcrsid)=@_;
     foreach (&crsdirlist($origcrsid,'userfiles')) {
-	&copyfile($origcrsid,$newcrsid,$_);
+	if ($_ !~m|^scantron_|) {
+	    &copyfile($origcrsid,$newcrsid,$_);
+	}
     }
 }
 # ========================================================== Copy all userfiles