--- loncom/interface/loncreatecourse.pm 2002/08/31 00:43:12 1.12 +++ loncom/interface/loncreatecourse.pm 2002/12/23 18:04:54 1.16 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.12 2002/08/31 00:43:12 www Exp $ +# $Id: loncreatecourse.pm,v 1.16 2002/12/23 18:04:54 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -45,6 +45,9 @@ use strict; use Apache::Constants qw(:common :http); use Apache::lonnet; use Apache::loncommon; +use Apache::lonratedt; +use Apache::londocs; + # ===================================================== Phase one: fill-in form sub print_course_creation_page { @@ -53,8 +56,11 @@ sub print_course_creation_page { my %host_servers = &Apache::loncommon::get_library_servers($defdom); my $course_home = '\n"; my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain'); @@ -91,6 +97,13 @@ $bodytag Course Title:
+Course Home Server:$course_home +
+Course ID/Number (optional) + +
+Map: Browse @@ -98,22 +111,34 @@ $bodytag Do NOT generate as standard course (only check if you know what you are doing): -
-Course Home Server:$course_home -
-Course ID/Number (optional) - -
+
++First Resource (standard courses only): +Blank + +Syllabus + +Navigate +
+ +Open all assessments: -
+
+Set course policy feedback to Course Coordinator:
Set content feedback to Course Coordinator:
- ++Disable student resource discussion: + +
Username:
@@ -201,6 +226,10 @@ ENDENHEAD
$cenv{'question.email'}=$ccuname.':'.$ccdomain;
}
}
+ if ($ENV{'form.disresdis'}) {
+ $envflag=1;
+ $cenv{'pch.roles.denied'}='st';
+ }
if ($envflag) {
$r->print('Setting environment: '.
&Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'
');
@@ -216,7 +245,27 @@ ENDENHEAD
$r->print('Opening all assignments: '.&Apache::lonnet::cput
('resourcedata',\%storecontent,$crsudom,$crsunum).'
');
}
-
+#
+# Set first page
+#
+ unless (($ENV{'form.nonstandard'}) || ($ENV{'form.firstres'} eq 'blank')) {
+ $r->print('Setting first resource: ');
+ my ($errtext,$fatal)=
+ &Apache::londocs::mapread($crsunum,$crsudom,'default.sequence');
+ $r->print(($fatal?$errtext:'read ok').' - ');
+ my $title; my $url;
+ if ($ENV{'form.firstres'} eq 'syl') {
+ $title='Syllabus';
+ $url='/public/'.$crsudom.'/'.$crsunum.'/syllabus';
+ } else {
+ $title='Navigate Contents';
+ $url='/adm/navmaps';
+ }
+ $Apache::lonratedt::resources[1]=$title.':'.$url.':false:start:res';
+ ($errtext,$fatal)=
+ &Apache::londocs::storemap($crsunum,$crsudom,'default.sequence');
+ $r->print(($fatal?$errtext:'write ok').'
');
+ }
#
# Make current user course adminstrator
#