--- loncom/interface/loncreatecourse.pm 2003/08/30 18:49:10 1.29
+++ loncom/interface/loncreatecourse.pm 2003/09/02 19:47:47 1.32
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Create a course
#
-# $Id: loncreatecourse.pm,v 1.29 2003/08/30 18:49:10 www Exp $
+# $Id: loncreatecourse.pm,v 1.32 2003/09/02 19:47:47 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -90,9 +90,8 @@ sub readfile {
# ============================================================ Write a userfile
sub writefile {
- my ($courseid,$which,$data)=@_;
+ (my $courseid, my $which,$ENV{'form.output'})=@_;
my %crsdata=&Apache::lonnet::coursedescription($courseid);
- $ENV{'form.output'}=$data;
return &Apache::lonnet::finishuserfileupload(
$crsdata{'num'},$crsdata{'domain'},
$crsdata{'home'},
@@ -106,6 +105,49 @@ sub copyfile {
return &writefile($newcrsid,$which,&readfile($origcrsid,$which));
}
+# =============================================================== Copy a dbfile
+
+sub copydb {
+ my ($origcrsid,$newcrsid,$which)=@_;
+ $which=~s/\.db$//;
+ my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid);
+ my %newcrsdata= &Apache::lonnet::coursedescription($newcrsid);
+ my %data=&Apache::lonnet::dump
+ ($which,$origcrsdata{'domain'},$origcrsdata{'num'});
+ return &Apache::lonnet::put
+ ($which,\%data,$newcrsdata{'domain'},$newcrsdata{'num'});
+}
+
+# ========================================================== Copy all userfiles
+
+sub copyuserfiles {
+ my ($origcrsid,$newcrsid)=@_;
+ foreach (&crsdirlist($origcrsid,'userfiles')) {
+ ©file($origcrsid,$newcrsid,$_);
+ }
+}
+# ========================================================== Copy all userfiles
+
+sub copydbfiles {
+ my ($origcrsid,$newcrsid)=@_;
+ foreach (&crsdirlist($origcrsid)) {
+ if ($_=~/\.db$/) {
+ unless
+ ($_=~/^(nohist\_|discussiontimes|classlist|versionupdate)/) {
+ ©db($origcrsid,$newcrsid,$_);
+ }
+ }
+ }
+}
+
+# ======================================================= Copy all course files
+
+sub copycoursefiles {
+ my ($origcrsid,$newcrsid)=@_;
+ ©userfiles($origcrsid,$newcrsid);
+ ©dbfiles($origcrsid,$newcrsid);
+}
+
# ===================================================== Phase one: fill-in form
sub print_course_creation_page {
@@ -124,6 +166,11 @@ sub print_course_creation_page {
my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain');
my $bodytag=&Apache::loncommon::bodytag('Create a New Course');
my $helplink=&Apache::loncommon::help_open_topic('Create_Course','Help on Creating Courses');
+ my $cloneform=&Apache::loncommon::select_dom_form
+ ($ENV{'request.role.domain'},'clonedomain').
+ &Apache::loncommon::selectcourse_link
+ ('ccrs','clonecourse','clonedomain');
+ my $coursebrowserjs=&Apache::loncommon::coursebrowser_javascript();
$r->print(<
Completely new course | Clone an existing course |
---|---|
Map: Select Map
-Do NOT generate as standard course
+Do NOT generate as standard course
-First Resource (standard courses only):
+First Resource |
+Course ID:
+ +Domain: +$cloneform +Additional settings, if specified below, will override cloned settings. + |
Open all assessments:
@@ -261,6 +319,7 @@ ENDENHEAD
#
# Open course
#
+ my %cenv=();
my $courseid=&Apache::lonnet::createcourse($ENV{'request.role.domain'},
$cdescr,$curl,
$ENV{'form.course_home'},
@@ -278,52 +337,62 @@ ENDENHEAD
my $crsuhome=&Apache::lonnet::homeserver($crsunum,$crsudom);
$r->print('Created on: '.$crsuhome.'
');
#
-# Set environment
+# Are we cloning?
+#
+ my $cloneid='';
+ if (($ENV{'form.clonecourse'}) && ($ENV{'form.clonedomain'})) {
+ $cloneid='/'.$ENV{'form.clonedomain'}.'/'.$ENV{'form.clonecourse'};
+ my ($clonecrsudom,$clonecrsunum)=($cloneid=~/^\/(\w+)\/(\w+)$/);
+ my $clonehome=&Apache::lonnet::homeserver($clonecrsunum,$clonecrsudom);
+ if ($clonehome eq 'no_host') {
+ $r->print(
+ '
Attempting to clone non-existing course '.$cloneid.'');
+ } else {
+ $r->print(
+ '
Cloning course from '.$clonehome.'');
+# Copy all files
+ ©coursefiles($cloneid,$courseid);
+# Restore title
+ $cenv{'description'}=$cdescr;
+ }
+ }
+#
+# Set environment (will override cloned, if existing)
#
- my %cenv=();
- my $envflag=0;
if ($ENV{'form.crsid'}) {
- $envflag=1;
$cenv{'courseid'}=$ENV{'form.crsid'};
}
if (($ccdomain) && ($ccuname)) {
if ($ENV{'form.setpolicy'}) {
- $envflag=1;
$cenv{'policy.email'}=$ccuname.':'.$ccdomain;
}
if ($ENV{'form.setcontent'}) {
- $envflag=1;
$cenv{'question.email'}=$ccuname.':'.$ccdomain;
}
}
if ($ENV{'form.setkeys'}) {
- $envflag=1;
$cenv{'keyaccess'}='yes';
}
if ($ENV{'form.disresdis'}) {
- $envflag=1;
$cenv{'pch.roles.denied'}='st';
}
if ($ENV{'form.disablechat'}) {
- $envflag=1;
$cenv{'plc.roles.denied'}='st';
}
- # Record we've not yet viewed the Course Initialization Helper for this course
+ # Record we've not yet viewed the Course Initialization Helper for this
+ # course
$cenv{'course.helper.not.run'} = 1;
#
# Use new Randomseed
#
- $envflag=1;
$cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();;
#
# By default, use standard grading
$cenv{'grading'} = 'standard';
- if ($envflag) {
- $r->print('Setting environment: '.
+ $r->print('
Setting environment: '.
&Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'
');
- }
#
# Open all assignments
#