version 1.30, 2003/09/02 15:21:42
|
version 1.34, 2003/09/03 21:31:59
|
Line 133 sub copydbfiles {
|
Line 133 sub copydbfiles {
|
foreach (&crsdirlist($origcrsid)) { |
foreach (&crsdirlist($origcrsid)) { |
if ($_=~/\.db$/) { |
if ($_=~/\.db$/) { |
unless |
unless |
($_=~/^(nohist\_|discussiontimes|classlist|versionupdate)/) { |
($_=~/^(nohist\_|discussiontimes|classlist|versionupdate|resourcedata)/) { |
©db($origcrsid,$newcrsid,$_); |
©db($origcrsid,$newcrsid,$_); |
} |
} |
} |
} |
} |
} |
} |
} |
|
|
|
# ======================================================= Copy all course files |
|
|
|
sub copycoursefiles { |
|
my ($origcrsid,$newcrsid)=@_; |
|
©userfiles($origcrsid,$newcrsid); |
|
©dbfiles($origcrsid,$newcrsid); |
|
} |
|
|
# ===================================================== Phase one: fill-in form |
# ===================================================== Phase one: fill-in form |
|
|
sub print_course_creation_page { |
sub print_course_creation_page { |
Line 158 sub print_course_creation_page {
|
Line 166 sub print_course_creation_page {
|
my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain'); |
my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain'); |
my $bodytag=&Apache::loncommon::bodytag('Create a New Course'); |
my $bodytag=&Apache::loncommon::bodytag('Create a New Course'); |
my $helplink=&Apache::loncommon::help_open_topic('Create_Course','Help on Creating Courses'); |
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(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
<html> |
<script language="JavaScript" type="text/javascript"> |
<script language="JavaScript" type="text/javascript"> |
Line 179 function openbrowser(formname,elementnam
|
Line 192 function openbrowser(formname,elementnam
|
editbrowser.focus(); |
editbrowser.focus(); |
} |
} |
</script> |
</script> |
|
$coursebrowserjs |
<head> |
<head> |
<title>The LearningOnline Network with CAPA</title> |
<title>The LearningOnline Network with CAPA</title> |
</head> |
</head> |
Line 196 $helplink
|
Line 210 $helplink
|
<input type="text" size="30" name="crsid"> |
<input type="text" size="30" name="crsid"> |
</p> |
</p> |
<h2>Course Content</h2> |
<h2>Course Content</h2> |
|
<table border="2"> |
|
<tr><th>Completely new course</th><th>Clone an existing course</th></tr> |
|
<tr><td> |
<p> |
<p> |
<b>Map:</b> |
<b>Map:</b> |
<input type="text" size="50" name="topmap"> |
<input type="text" size="50" name="topmap"> |
<a href="javascript:openbrowser('ccrs','topmap')">Select Map</a> |
<a href="javascript:openbrowser('ccrs','topmap')">Select Map</a> |
</p><p> |
</p><p> |
<b>Do NOT generate as standard course</b> |
<b>Do NOT generate as standard course</b><br /> |
(only check if you know what you are doing): |
(only check if you know what you are doing): |
<input type="checkbox" name="nonstandard"> |
<input type="checkbox" name="nonstandard"> |
</p> |
</p> |
<p> |
<p> |
<b>First Resource</b> (standard courses only): |
<b>First Resource</b><br />(standard courses only): |
<input type="radio" name="firstres" value="blank">Blank |
<input type="radio" name="firstres" value="blank">Blank |
|
|
<input type="radio" name="firstres" value="syl" checked>Syllabus |
<input type="radio" name="firstres" value="syl" checked>Syllabus |
|
|
<input type="radio" name="firstres" value="nav">Navigate |
<input type="radio" name="firstres" value="nav">Navigate |
</p> |
</p> |
|
</td><td> |
|
Course ID: <input input type="text" size="25" name="clonecourse" value="" /> |
|
<br /> |
|
Domain: |
|
$cloneform<br /> <br /> |
|
Additional settings, if specified below, will override cloned settings. |
|
</td></tr> |
|
</table> |
<h2>Assessment Parameters</h2> |
<h2>Assessment Parameters</h2> |
<p> |
<p> |
<b>Open all assessments: </b> |
<b>Open all assessments: </b> |
Line 295 ENDENHEAD
|
Line 319 ENDENHEAD
|
# |
# |
# Open course |
# Open course |
# |
# |
|
my %cenv=(); |
my $courseid=&Apache::lonnet::createcourse($ENV{'request.role.domain'}, |
my $courseid=&Apache::lonnet::createcourse($ENV{'request.role.domain'}, |
$cdescr,$curl, |
$cdescr,$curl, |
$ENV{'form.course_home'}, |
$ENV{'form.course_home'}, |
Line 312 ENDENHEAD
|
Line 337 ENDENHEAD
|
my $crsuhome=&Apache::lonnet::homeserver($crsunum,$crsudom); |
my $crsuhome=&Apache::lonnet::homeserver($crsunum,$crsudom); |
$r->print('Created on: '.$crsuhome.'<br>'); |
$r->print('Created on: '.$crsuhome.'<br>'); |
# |
# |
# 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( |
|
'<br /><font color="red">Attempting to clone non-existing course '.$cloneid.'</font>'); |
|
} else { |
|
$r->print( |
|
'<br /><font color="green">Cloning course from '.$clonehome.'</font>'); |
|
# 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'}) { |
if ($ENV{'form.crsid'}) { |
$envflag=1; |
|
$cenv{'courseid'}=$ENV{'form.crsid'}; |
$cenv{'courseid'}=$ENV{'form.crsid'}; |
} |
} |
if (($ccdomain) && ($ccuname)) { |
if (($ccdomain) && ($ccuname)) { |
if ($ENV{'form.setpolicy'}) { |
if ($ENV{'form.setpolicy'}) { |
$envflag=1; |
|
$cenv{'policy.email'}=$ccuname.':'.$ccdomain; |
$cenv{'policy.email'}=$ccuname.':'.$ccdomain; |
} |
} |
if ($ENV{'form.setcontent'}) { |
if ($ENV{'form.setcontent'}) { |
$envflag=1; |
|
$cenv{'question.email'}=$ccuname.':'.$ccdomain; |
$cenv{'question.email'}=$ccuname.':'.$ccdomain; |
} |
} |
} |
} |
if ($ENV{'form.setkeys'}) { |
if ($ENV{'form.setkeys'}) { |
$envflag=1; |
|
$cenv{'keyaccess'}='yes'; |
$cenv{'keyaccess'}='yes'; |
} |
} |
if ($ENV{'form.disresdis'}) { |
if ($ENV{'form.disresdis'}) { |
$envflag=1; |
|
$cenv{'pch.roles.denied'}='st'; |
$cenv{'pch.roles.denied'}='st'; |
} |
} |
if ($ENV{'form.disablechat'}) { |
if ($ENV{'form.disablechat'}) { |
$envflag=1; |
|
$cenv{'plc.roles.denied'}='st'; |
$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; |
$cenv{'course.helper.not.run'} = 1; |
# |
# |
# Use new Randomseed |
# Use new Randomseed |
# |
# |
$envflag=1; |
|
$cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();; |
$cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();; |
# |
# |
# By default, use standard grading |
# By default, use standard grading |
$cenv{'grading'} = 'standard'; |
$cenv{'grading'} = 'standard'; |
|
|
if ($envflag) { |
$r->print('<br />Setting environment: '. |
$r->print('Setting environment: '. |
|
&Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'<br>'); |
&Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'<br>'); |
} |
|
# |
# |
# Open all assignments |
# Open all assignments |
# |
# |
if ($ENV{'form.openall'}) { |
if ($ENV{'form.openall'}) { |
my $storeunder=$crsudom.'_'.$crsunum.'.0.opendate'; |
my $storeunder=$crsudom.'_'.$crsunum.'.0.opendate'; |
my %storecontent = ($storeunder => time, |
my %storecontent = ($storeunder => time, |
$storeunder.'type' => 'date_start'); |
$storeunder.'.type' => 'date_start'); |
|
|
$r->print('Opening all assignments: '.&Apache::lonnet::cput |
$r->print('Opening all assignments: '.&Apache::lonnet::cput |
('resourcedata',\%storecontent,$crsudom,$crsunum).'<br>'); |
('resourcedata',\%storecontent,$crsudom,$crsunum).'<br>'); |