--- loncom/interface/loncreatecourse.pm 2004/03/30 20:46:24 1.53
+++ loncom/interface/loncreatecourse.pm 2004/05/04 20:43:21 1.55
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Create a course
#
-# $Id: loncreatecourse.pm,v 1.53 2004/03/30 20:46:24 www Exp $
+# $Id: loncreatecourse.pm,v 1.55 2004/05/04 20:43:21 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -301,6 +301,7 @@ sub print_course_creation_page {
'nech' => "Notification of enrollment changes",
'nccl' => "Notification to course coordinator via LON-CAPA message when enrollment changes occur during the automated update?",
'irsp' => "Include retrieval of student photographs?",
+ 'rshm' => 'Resource Space Home',
'opco' => "Open Course"
);
$r->print(<
+
$lt{'scfc'}:
+$lt{'rshm'}: + +
-$lt{'user'}: -
-$lt{'dmn'}: $domform -
-$lt{'ierc'}: - -
$lt{'irsp'} $lt{'yes'} $lt{'no'} +
++$lt{'user'}: +
+$lt{'dmn'}: $domform
+$lt{'ierc'}: + +
+@@ -546,6 +555,8 @@ ENDENHEAD $cenv{'description'}=$oldcenv{'description'}; # Mark as cloned $cenv{'clonedfrom'}=$cloneid; + delete($cenv{'default_enrollment_start_date'}); + delete($cenv{'default_enrollment_end_date'}); } } # @@ -663,6 +674,10 @@ ENDENHEAD $cenv{'question.email'}=$ccuname.':'.$ccdomain; } } + if ($ENV{'form.reshome'}) { + $cenv{'reshome'}=$ENV{'form.reshome'}.'/'; + $cenv{'reshome'}=~s/\/+$/\//; + } if ($ENV{'form.setkeys'}) { $cenv{'keyaccess'}='yes'; }