version 1.37, 2017/08/08 20:10:55
|
version 1.38, 2017/11/30 15:14:51
|
Line 228 sub handler {
|
Line 228 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.lti.login'}) { |
|
$info{'lti.login'} = $env{'request.lti.login'}; |
|
} |
|
if ($env{'request.lti.passbackid'}) { |
|
$info{'lti.passbackid'} = $env{'request.lti.passbackid'}; |
|
} |
|
if ($env{'request.lti.passbackurl'}) { |
|
$info{'lti.passbackurl'} = $env{'request.lti.passbackurl'}; |
|
} |
|
if ($env{'request.lti.rosterid'}) { |
|
$info{'lti.rosterid'} = $env{'request.lti.rosterid'}; |
|
} |
|
if ($env{'request.lti.rosterurl'}) { |
|
$info{'lti.rosterurl'} = $env{'request.lti.rosterurl'}; |
|
} |
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'}. |