version 1.100, 2007/01/10 21:37:50
|
version 1.101, 2007/03/03 01:40:28
|
Line 49 sub print_course_creation_page {
|
Line 49 sub print_course_creation_page {
|
$crstype = 'Course'; |
$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::lonnet::get_servers($defdom,'library'); |
my $course_home = '<select name="course_home" size="1">'."\n"; |
my $course_home = '<select name="course_home" size="1">'."\n"; |
foreach my $server (sort(keys(%host_servers))) { |
foreach my $server (sort(keys(%host_servers))) { |
$course_home .= qq{<option value="$server"}; |
$course_home .= qq{<option value="$server"}; |
Line 662 sub create_course {
|
Line 662 sub create_course {
|
return; |
return; |
} |
} |
# Check the proposed home server for the course |
# Check the proposed home server for the course |
my %host_servers = &Apache::loncommon::get_library_servers |
my %host_servers = |
($env{'request.role.domain'}); |
&Apache::lonnet::get_servers($env{'request.role.domain'},'library'); |
if (! exists($host_servers{$env{'form.course_home'}})) { |
if (! exists($host_servers{$env{'form.course_home'}})) { |
$r->print(&mt('Invalid home server for course').': '. |
$r->print(&mt('Invalid home server for course').': '. |
$env{'form.course_home'}.&Apache::loncommon::end_page()); |
$env{'form.course_home'}.&Apache::loncommon::end_page()); |