loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.114, 2009/10/20 14:29:44	version 1.115, 2009/10/21 14:06:11
Line 634 sub print_login {	Line 634 sub print_login {
if ($disallowed{$lonhost} eq '') {	if ($disallowed{$lonhost} eq '') {
$direct = '';	$direct = '';
}	}
$datatable .= '<tr><td>'.$lonhost.'</td>'.	$datatable .= '<tr><td>'.$servers{$lonhost}.'</td>'.
'<td><select name="'.$lonhost.'_serverurl">'.	'<td><select name="'.$lonhost.'_serverurl">'.
'<option value=""'.$direct.'>'.$choices{'directlogin'}.	'<option value=""'.$direct.'>'.$choices{'directlogin'}.
'</option>';	'</option>';
foreach my $hostid (keys(%servers)) {	foreach my $hostid (keys(%servers)) {
next if ($hostid eq $lonhost);	next if ($servers{$hostid} eq $servers{$lonhost});
my $selected = '';	my $selected = '';
if ($hostid eq $disallowed{$lonhost}) {	if ($hostid eq $disallowed{$lonhost}) {
$selected = 'selected="selected"';	$selected = 'selected="selected"';