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.116, 2009/10/23 16:14:43
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"';
Line 788 sub print_login {	Line 788 sub print_login {
sub login_choices {	sub login_choices {
my %choices =	my %choices =
&Apache::lonlocal::texthash (	&Apache::lonlocal::texthash (
coursecatalog => 'Display Course Catalog link?',	coursecatalog => 'Display Course/Community Catalog link?',
adminmail => "Display Administrator's E-mail Address?",	adminmail => "Display Administrator's E-mail Address?",
disallowlogin => "Login page requests redirected",	disallowlogin => "Login page requests redirected",
submitbugs => "Display "Submit Bug" link?",	submitbugs => "Display "Submit Bug" link?",