--- loncom/interface/loncreatecourse.pm 2008/07/01 05:22:59 1.108.2.1
+++ loncom/interface/loncreatecourse.pm 2008/10/08 11:03:53 1.110
@@ -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.110 2008/10/08 11:03:53 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -44,11 +44,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 +472,7 @@ $lt{'cgrq'}
ENDDOCUMENT
+
} elsif ($crstype eq 'Group') {
$r->print(<
@@ -478,7 +512,7 @@ ENDDOCUMENT