--- loncom/interface/loncreatecourse.pm 2004/02/02 20:21:25 1.49
+++ 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.49 2004/02/02 20:21:25 www 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{'oaas'}:
-
+
$lt{'scpf'}:
-
+
$lt{'snak'}:
-
+
+$lt{'rshm'}:
+
-$lt{'user'}:
-
-$lt{'dmn'}: $domform
-
-$lt{'ierc'}:
-
-
$lt{'mssg'}
$lt{'scfc'}:
$lt{'acco'}
+$lt{'kaut'}:
+
+$lt{'rshm'}
+$lt{'cc'}
$lt{'aens'}
$lt{'aesc'}
$lt{'irsp'} $lt{'yes'} $lt{'no'} +
++$lt{'user'}: +
+$lt{'dmn'}: $domform
+$lt{'ierc'}: + +
+@@ -483,7 +496,16 @@ ENDENHEAD # # Check the veracity of the course coordinator if (&Apache::lonnet::homeserver($ccuname,$ccdomain) eq 'no_host') { - $r->print(&mt('No such user').' '.$ccuname.' '.&mt('at').' '.$ccdomain.'