loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.13, 2002/09/05 19:37:00	version 1.14, 2002/09/26 15:19:39
Line 56 sub print_course_creation_page {	Line 56 sub print_course_creation_page {
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";
foreach my $server (sort(keys(%host_servers))) {	foreach my $server (sort(keys(%host_servers))) {
$course_home .=	$course_home .= qq{<option value="$server"};
qq{<option value="$server">$server $host_servers{$server}</option>};	if ($server eq $Apache::lonnet::perlvar{'lonHostID'}) {
	$course_home .= " selected ";
	}
	$course_home .= qq{>$server $host_servers{$server}</option>};
}	}
$course_home .= "\n</select>\n";	$course_home .= "\n</select>\n";
my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain');	my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain');