--- loncom/interface/loncreatecourse.pm 2007/12/14 00:24:11 1.105
+++ loncom/interface/loncreatecourse.pm 2008/04/30 23:23:07 1.107
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Create a course
#
-# $Id: loncreatecourse.pm,v 1.105 2007/12/14 00:24:11 raeburn Exp $
+# $Id: loncreatecourse.pm,v 1.107 2008/04/30 23:23:07 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -128,6 +128,9 @@ function validate(formname) {
'cid' => "Course ID",
'dmn' => "Domain",
'asov' => "Additional settings, if specified below, will override cloned settings",
+ 'ncd' => "Do not clone date parameters",
+ 'prd' => 'Clone date parameters as-is',
+ 'shd' => 'Shift date parameters by number of days',
'assp' => "Assessment Parameters",
'oaas' => "Open all assessments",
'mssg' => "Messaging",
@@ -300,6 +303,10 @@ $lt{'stat'}
$lt{'dmn'}: $cloneform
+
+
+
+
$lt{'asov'}.
@@ -486,7 +493,10 @@ ENDDOCUMENT
$lt{'dmn'}: $cloneform
-
+
+
+
+
$lt{'asov'}.
@@ -616,6 +626,8 @@ sub create_course {
crsquota => $env{'form.crsquota'},
clonecourse => $env{'form.clonecourse'},
clonedomain => $env{'form.clonedomain'},
+ datemode => $env{'form.datemode'},
+ dateshift => $env{'form.dateshift'},
crsid => $env{'form.crsid'},
curruser => $env{'user.name'}.':'.$env{'user.domain'},
crssections => $env{'form.crssections'},
@@ -683,7 +695,7 @@ sub create_course {
$r->print(&mt('Assigning role of [_1] Coordinator to [_2] at [_3]: ',
$crstype,$ccuname,$ccdomain).
&Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,
- 'cc').'
'); + 'cc','','','','','createcourse').'
'); } if ($env{'form.setkeys'}) { $r->print(