--- loncom/interface/loncreatecourse.pm 2004/04/16 13:33:41 1.54
+++ loncom/interface/loncreatecourse.pm 2004/05/08 00:48:30 1.56
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Create a course
#
-# $Id: loncreatecourse.pm,v 1.54 2004/04/16 13:33:41 albertel Exp $
+# $Id: loncreatecourse.pm,v 1.56 2004/05/08 00:48:30 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -286,6 +286,8 @@ sub print_course_creation_page {
'dsuc' => "Disable student use of chatrooms",
'acco' => "Access Control",
'snak' => "Students need access key to enter course",
+ 'kaut' =>
+ 'Key authority (id@domain) if other than course',
'cc' => "Course Coordinator",
'user' => "Username",
'ierc' => "Immediately expire own role as Course Coordinator",
@@ -301,6 +303,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{'snak'}:
-
+
+$lt{'kaut'}:
+
+
+$lt{'rshm'}: +
--$lt{'user'}: -
-$lt{'dmn'}: $domform -
-$lt{'ierc'}: - -
$lt{'irsp'} $lt{'yes'} $lt{'no'} +
++$lt{'user'}: +
+$lt{'dmn'}: $domform
+$lt{'ierc'}: + +
+@@ -665,9 +678,25 @@ ENDENHEAD $cenv{'question.email'}=$ccuname.':'.$ccdomain; } } + if ($ENV{'form.reshome'}) { + $cenv{'reshome'}=$ENV{'form.reshome'}.'/'; + $cenv{'reshome'}=~s/\/+$/\//; + } +# +# course has keyed access +# if ($ENV{'form.setkeys'}) { $cenv{'keyaccess'}='yes'; } +# if specified, key authority is not course, but user +# only active if keyaccess is yes + if ($ENV{'form.keyauth'}) { + $ENV{'form.keyauth'}=~s/[^\w\@]//g; + if ($ENV{'form.keyauth'}) { + $cenv{'keyauth'}=$ENV{'form.keyauth'}; + } + } + if ($ENV{'form.disresdis'}) { $cenv{'pch.roles.denied'}='st'; }