loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.127, 2009/10/06 23:43:21	version 1.128, 2009/10/21 12:29:40
Line 117 sub handler {	Line 117 sub handler {
if ($lonhost ne '') {	if ($lonhost ne '') {
my $loginvia = $domconfhash{$domain.'.login.loginvia_'.$lonhost};	my $loginvia = $domconfhash{$domain.'.login.loginvia_'.$lonhost};
if (($loginvia ne '') && ($loginvia ne $lonhost)) {	if (($loginvia ne '') && ($loginvia ne $lonhost)) {
my %servers = &Apache::lonnet::get_servers($domain);	if (&Apache::lonnet::hostname($loginvia) ne '') {
if ($servers{$loginvia} ne '') {
$r->print(&redirect_page($loginvia));	$r->print(&redirect_page($loginvia));
return OK;	return OK;
}	}