loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.118, 2009/11/10 19:12:11	version 1.119, 2009/11/16 04:03:05
Line 3231 sub modify_login {	Line 3231 sub modify_login {
my %servers = &dom_servers($dom);	my %servers = &dom_servers($dom);
if (keys(%servers) > 1) {	if (keys(%servers) > 1) {
foreach my $lonhost (keys(%servers)) {	foreach my $lonhost (keys(%servers)) {
next if ($env{'form.'.$lonhost.'_serverurl'} eq $curr_loginvia{$lonhost});
next if ($env{'form.'.$lonhost.'_serverurl'} eq $lonhost);	next if ($env{'form.'.$lonhost.'_serverurl'} eq $lonhost);
	if ($env{'form.'.$lonhost.'_serverurl'} eq $curr_loginvia{$lonhost}) {
	$loginhash{login}{loginvia}{$lonhost} = $curr_loginvia{$lonhost}; next;
	}
if ($curr_loginvia{$lonhost} ne '') {	if ($curr_loginvia{$lonhost} ne '') {
$loginhash{login}{loginvia}{$lonhost} = $env{'form.'.$lonhost.'_serverurl'};	$loginhash{login}{loginvia}{$lonhost} = $env{'form.'.$lonhost.'_serverurl'};
$changes{'loginvia'}{$lonhost} = 1;	$changes{'loginvia'}{$lonhost} = 1;
Line 3244 sub modify_login {	Line 3246 sub modify_login {
}	}
}	}
}	}

my $putresult = &Apache::lonnet::put_dom('configuration',\%loginhash,	my $putresult = &Apache::lonnet::put_dom('configuration',\%loginhash,
$dom);	$dom);
if ($putresult eq 'ok') {	if ($putresult eq 'ok') {