loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.35.2.6, 2021/12/12 21:07:21	version 1.35.2.6.2.1, 2022/01/01 16:33:13
Line 289 sub handler {	Line 289 sub handler {
if ($env{'request.sso.reloginserver'}) {	if ($env{'request.sso.reloginserver'}) {
$info{'sso.reloginserver'} = $env{'request.sso.reloginserver'};	$info{'sso.reloginserver'} = $env{'request.sso.reloginserver'};
}	}
	if ($env{'request.linkprot'}) {
	$info{'linkprot'} = $env{'request.linkprot'};
	} elsif ($env{'request.linkkey'} ne '') {
	$info{'linkkey'} = $env{'request.linkkey'};
	}
	if ($env{'request.deeplink.login'}) {
	$info{'deeplink.login'} = $env{'request.deeplink.login'};
	}
my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'});	my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'});
my $url =$protocol.'://'.$switch_to.'/adm/login?'.	my $url =$protocol.'://'.$switch_to.'/adm/login?'.
'domain='.$env{'user.domain'}.	'domain='.$env{'user.domain'}.