loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.176, 2012/12/11 22:55:27	version 1.177, 2012/12/12 12:54:01
Line 815 sub print_login {	Line 815 sub print_login {
'<td><select name="'.$lonhost.'_server">'.	'<td><select name="'.$lonhost.'_server">'.
'<option value=""'.$direct.'>'.$choices{'directlogin'}.	'<option value=""'.$direct.'>'.$choices{'directlogin'}.
'</option>';	'</option>';
foreach my $hostid (keys(%servers)) {	foreach my $hostid (sort keys(%servers)) {
next if ($servers{$hostid} eq $servers{$lonhost});	next if ($servers{$hostid} eq $servers{$lonhost});
my $selected = '';	my $selected = '';
if (ref($disallowed{$lonhost}) eq 'HASH') {	if (ref($disallowed{$lonhost}) eq 'HASH') {
Line 8462 sub active_dc_picker {	Line 8462 sub active_dc_picker {
'<input type="radio" name="autocreate_xmldc"'.	'<input type="radio" name="autocreate_xmldc"'.
' value="'.$dcs[$i].'"'.$check.'/>'.	' value="'.$dcs[$i].'"'.$check.'/>'.
&Apache::loncommon::plainname($dcname,$dcdom).	&Apache::loncommon::plainname($dcname,$dcdom).
	' ('.$dcname.':'.$dcdom.')'.
'</label></span></td>';	'</label></span></td>';
}	}
$datatable .= '</tr></table>';	$datatable .= '</tr></table>';