--- loncom/interface/loncreatecourse.pm 2008/07/01 05:22:59 1.108.2.1
+++ loncom/interface/loncreatecourse.pm 2008/09/25 17:44:11 1.109
@@ -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.109 2008/09/25 17:44:11 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'}
-
-
-
-
-
+MYEND
+
+
+$r->print(' '
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_headline()
+ .''.$lt{'assp'}.'
'
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_title($lt{'oaas'})
+ .''
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_headline()
+ .''.$lt{'mssg'}.'
'
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_title($lt{'scpf'})
+ .''
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_title($lt{'scfc'})
+ .''
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_headline()
+ .''.$lt{'cmmn'}.'
'
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_title($lt{'dsrd'})
+ .''
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_title($lt{'dsuc'})
+ .''.$lt{'acco'}.''
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_title($lt{'snak'})
+ .''
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_title($lt{'kaut'})
+ .''
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_headline()
+ .''.$lt{'rshm'}.'
'
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_title($lt{'rshm'})
+ .''
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_headline()
+ .''.$lt{'aens'}.'
'
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_title($lt{'aadd'})
+ .''
+ .''
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_title($lt{'audr'})
+ .''
+ .''
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_title($lt{'dacu'})
+ .$enroll_table
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_title($lt{'dacc'})
+ .$access_table
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_title($lt{'psam'})
+ .$lt{'pcda'}.'
'
+ .$krbform.'
'
+ .$intform.'
'
+ .$locform
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_title($lt{'nech'})
+ .$lt{'nccl'}.'
'
+ .''
+ .''
+ .'
'
+ .$lt{'ndcl'}.'
'
+ .''
+ .''
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_title($lt{'irsp'})
+ .' '
+ .' '
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_headline()
+ .''.$lt{'cgrs'}.'
'
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_title($lt{'cgrq'})
+ .'Mb'
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_headline()
+ .''.$lt{'cc'}.'
'
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_title($lt{'user'})
+ .''
+ .&Apache::lonhtmlcommon::row_closure()
+
+ .&Apache::lonhtmlcommon::row_title($lt{'dmn'},"","LC_odd_row_value")
+ .$domform
+ .&Apache::lonhtmlcommon::row_closure(1)
+
+ .&Apache::lonhtmlcommon::end_pick_box()
+ );
+
+ $r->print(<
@@ -439,6 +450,7 @@ $lt{'cgrq'}
ENDDOCUMENT
+
} elsif ($crstype eq 'Group') {
$r->print(<
@@ -478,7 +490,7 @@ ENDDOCUMENT