loncom/auth/lonlogout.pm - diff

Return to lonlogout.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.43, 2011/10/22 23:53:46	version 1.44, 2012/01/08 23:24:08
Line 117 sub handler {	Line 117 sub handler {
$login_url = $domdefaults{'portal_def'};	$login_url = $domdefaults{'portal_def'};
} else {	} else {
my $checkloginvia = 1;	my $checkloginvia = 1;
my ($lonhost,$server,$path) =	my ($lonhost,$server,$path,$isredirect) =
&Apache::lonnet::choose_server($domain,$checkloginvia);	&Apache::lonnet::choose_server($domain,$checkloginvia);
if ($server && $lonhost) {	if ($server && $lonhost) {
$login_url = $Apache::lonnet::protocol{$lonhost}.	$login_url = $Apache::lonnet::protocol{$lonhost}.
'://'.$server.$path;	'://'.$server.$path;
	if (($path eq '') && (!$isredirect)) {
	my $serverhomeID =
	&Apache::lonnet::get_server_homeID($lonhost);
	my $serverhomedom =
	&Apache::lonnet::host_domain($serverhomeID);
	if ($serverhomedom ne $domain) {
	$path = '/adm/login';
	$login_url .= $path;
	}
	}
if ($path eq '/adm/login' && $domain ne '') {	if ($path eq '/adm/login' && $domain ne '') {
$login_url .= '?domain='.$domain;	$login_url .= '?domain='.$domain;
}	}