loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

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());