--- loncom/interface/loncreatecourse.pm 2008/07/01 05:22:59 1.108.2.1
+++ 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.108.2.1 2008/07/01 05:22:59 raeburn 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;
@@ -44,11 +88,10 @@ use LONCAPA;
sub print_course_creation_page {
my $r=shift;
- my $crstype = 'Course';
-# my $crstype = 'Group';
-# if ($env{'form.phase'} eq 'courseone') {
-# $crstype = 'Course';
-# }
+ my $crstype = 'Group';
+ if ($env{'form.phase'} eq 'courseone') {
+ $crstype = 'Course';
+ }
my $defdom=$env{'request.role.domain'};
my %host_servers = &Apache::lonnet::get_servers($defdom,'library');
my $course_home = '
-
-$lt{'aadd'}
-
-
-
-$lt{'audr'}
-
-
-
-$lt{'dacu'}
-$enroll_table
-
-$lt{'dacc'}
-$access_table
-
-$lt{'psam'}.
-$lt{'pcda'}.
-
-$krbform
-
-$intform
-
-$locform
-
-$lt{'nech'}
-$lt{'nccl'}
-
-
-
-$lt{'ndcl'}
-
-
-
-$lt{'irsp'}
-
-
-
-
-
$lt{'cgrs'}
-$lt{'cgrq'}
-Mb
-
-
-$lt{'cc'}
-
-
-
-
-
@@ -439,6 +516,7 @@ $lt{'cgrq'}
ENDDOCUMENT
+
} elsif ($crstype eq 'Group') {
$r->print(<
@@ -478,7 +556,7 @@ ENDDOCUMENT