version 1.93, 2006/06/27 21:28:13
|
version 1.93.2.1, 2006/06/28 19:31:48
|
Line 256 sub copycoursefiles {
|
Line 256 sub copycoursefiles {
|
|
|
sub print_course_creation_page { |
sub print_course_creation_page { |
my $r=shift; |
my $r=shift; |
my $crstype = 'Group'; |
my $crstype = 'Course'; |
if ($env{'form.phase'} eq 'courseone') { |
# my $crstype = 'Group'; |
$crstype = 'Course'; |
# if ($env{'form.phase'} eq 'courseone') { |
} |
# $crstype = 'Course'; |
|
# } |
my $defdom=$env{'request.role.domain'}; |
my $defdom=$env{'request.role.domain'}; |
my %host_servers = &Apache::loncommon::get_library_servers($defdom); |
my %host_servers = &Apache::loncommon::get_library_servers($defdom); |
my $course_home = '<select name="course_home" size="1">'."\n"; |
my $course_home = '<select name="course_home" size="1">'."\n"; |
Line 1196 sub print_intro_page {
|
Line 1197 sub print_intro_page {
|
short_description => |
short_description => |
&mt('Create a new course by completing an online form.'), |
&mt('Create a new course by completing an online form.'), |
}, |
}, |
{ internal_name => 'groupone', |
# { internal_name => 'groupone', |
name => &mt('Create a single collaborative group space '), |
# name => &mt('Create a single collaborative group space '), |
short_description => |
# short_description => |
&mt('Create a new group space for non-course use by completing an online form .'), |
# &mt('Create a new group space for non-course use by completing an online form .'), |
}, |
# }, |
{ internal_name => 'batchone', |
{ internal_name => 'batchone', |
name => &mt('Create courses/groups by uploading an attributes file'), |
name => &mt('Create courses/groups by uploading an attributes file'), |
short_description => |
short_description => |