--- loncom/interface/loncreatecourse.pm 2002/08/31 00:43:12 1.12 +++ loncom/interface/loncreatecourse.pm 2002/09/05 19:37:00 1.13 @@ -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.13 2002/09/05 19:37:00 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 { @@ -91,6 +94,13 @@ $bodytag Course Title:
+Course Home Server:$course_home +
+Course ID/Number (optional) + +
+Map: Browse @@ -98,15 +108,23 @@ $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:
@@ -216,7 +234,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';
+ my ($errtext,$fatal)=
+ &Apache::londocs::storemap($crsunum,$crsudom,'default.sequence');
+ $r->print(($fatal?$errtext:'write ok').'
');
+ }
#
# Make current user course adminstrator
#