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

[www]

www		Tue Sep  2 14:00:14 2003 EDT

  Modified files:              
    /loncom/interface	loncreatecourse.pm 
  Log:
  Copying of the course files works.
  
  
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.30 loncom/interface/loncreatecourse.pm:1.31
--- loncom/interface/loncreatecourse.pm:1.30	Tue Sep  2 11:21:42 2003
+++ loncom/interface/loncreatecourse.pm	Tue Sep  2 14:00:14 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Create a course
 #
-# $Id: loncreatecourse.pm,v 1.30 2003/09/02 15:21:42 www Exp $
+# $Id: loncreatecourse.pm,v 1.31 2003/09/02 18:00:14 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -138,6 +138,14 @@
 	     }
 	}
     }
+}
+
+# ======================================================= Copy all course files
+
+sub copycoursefiles {
+    my ($origcrsid,$newcrsid)=@_;
+    &copyuserfiles($origcrsid,$newcrsid);
+    &copydbfiles($origcrsid,$newcrsid);
 }
 
 # ===================================================== Phase one: fill-in form