--- loncom/interface/loncreatecourse.pm 2008/01/22 22:37:18 1.106
+++ loncom/interface/loncreatecourse.pm 2008/11/11 16:40:43 1.111
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Create a course
#
-# $Id: loncreatecourse.pm,v 1.106 2008/01/22 22:37:18 www Exp $
+# $Id: loncreatecourse.pm,v 1.111 2008/11/11 16:40:43 jms Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -27,6 +27,50 @@
#
###
+=head1 NAME
+
+Apache::loncreatecourse.pm
+
+=head1 SYNOPSIS
+
+Allows domain coordinators to create new
+courses and assign course coordinators.
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+=head1 HANDLER SUBROUTINE
+
+handler()
+
+=head1 OTHER SUBROUTINES
+
+=over
+
+=item *
+
+print_course_creation_page()
+
+=item *
+
+create_course()
+
+=item *
+
+print_intro_page()
+
+=item *
+
+upload_batchfile()
+
+=item *
+
+process_batchfile()
+
+=back
+
+=cut
+
package Apache::loncreatecourse;
use strict;
@@ -127,6 +171,7 @@ function validate(formname) {
'navi' => "Navigate",
'cid' => "Course ID",
'dmn' => "Domain",
+ 'dsh' => "Date Shift",
'asov' => "Additional settings, if specified below, will override cloned settings",
'ncd' => "Do not clone date parameters",
'prd' => 'Clone date parameters as-is',
@@ -153,7 +198,7 @@ function validate(formname) {
'audr' => "Automated drops",
'dacu' => "Duration of automated classlist updates",
'dacc' => "Default start and end dates for student access",
- 'psam' => "Please select the authentication mechanism",
+ 'psam' => "Please select the Authentication mechanism",
'pcda' => "Please choose the default authentication method to be used by new users added to this LON-CAPA domain by the automated enrollment process",
'nech' => "Notification of enrollment changes",
'nccl' => "Notification to course coordinator via LON-CAPA message when enrollment changes occur during the automated update?",
@@ -223,214 +268,247 @@ END
'Create_Course',undef,
'Create_Courses');
$r->print($start_page.$crumbs);
+
if ($crstype eq 'Course') {
+ $r->print('
ENDDOCUMENT
+
} elsif ($crstype eq 'Group') {
$r->print(<
@@ -477,7 +556,7 @@ ENDDOCUMENT