loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.39, 2018/03/23 01:01:29	version 1.40, 2018/04/14 02:30:11
Line 235 sub handler {	Line 235 sub handler {
if ($env{'request.lti.login'}) {	if ($env{'request.lti.login'}) {
$info{'lti.login'} = $env{'request.lti.login'};	$info{'lti.login'} = $env{'request.lti.login'};
}	}
	if ($env{'request.lti.uri'}) {
	$info{'lti.uri'} = $env{'request.lti.uri'};
	}
if ($env{'request.lti.reqcrs'}) {	if ($env{'request.lti.reqcrs'}) {
$info{'lti.reqcrs'} = $env{'request.lti.reqcrs'};	$info{'lti.reqcrs'} = $env{'request.lti.reqcrs'};
}	}
Line 259 sub handler {	Line 262 sub handler {
if ($env{'request.lti.rosterurl'}) {	if ($env{'request.lti.rosterurl'}) {
$info{'lti.rosterurl'} = $env{'request.lti.rosterurl'};	$info{'lti.rosterurl'} = $env{'request.lti.rosterurl'};
}	}
	if ($env{'request.lti.target'}) {
	$info{'lti.target'} = $env{'request.lti.target'};
	}
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'}.