--- loncom/interface/loncreatecourse.pm 2008/09/25 17:44:11 1.109 +++ 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.109 2008/09/25 17:44:11 bisitz 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', @@ -223,8 +268,8 @@ END 'Create_Course',undef, 'Create_Courses'); $r->print($start_page.$crumbs); - if ($crstype eq 'Course') { + if ($crstype eq 'Course') { $r->print('