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.15, 2002/12/09 21:32:34
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');
Line 251 ENDENHEAD	Line 254 ENDENHEAD
$url='/adm/navmaps';	$url='/adm/navmaps';
}	}
$Apache::lonratedt::resources[1]=$title.':'.$url.':false:start:res';	$Apache::lonratedt::resources[1]=$title.':'.$url.':false:start:res';
my ($errtext,$fatal)=	($errtext,$fatal)=
&Apache::londocs::storemap($crsunum,$crsudom,'default.sequence');	&Apache::londocs::storemap($crsunum,$crsudom,'default.sequence');
$r->print(($fatal?$errtext:'write ok').'<br>');	$r->print(($fatal?$errtext:'write ok').'<br>');
}	}