version 1.18, 2019/06/13 17:45:26
|
version 1.19, 2019/07/18 18:28:46
|
Line 749 sub lti_session {
|
Line 749 sub lti_session {
|
} |
} |
} |
} |
} |
} |
|
my $protocol = 'http'; |
|
if ($ENV{'SERVER_PORT'} == 443) { |
|
$protocol = 'https'; |
|
} |
if (($is_balancer) && (!$hosthere)) { |
if (($is_balancer) && (!$hosthere)) { |
# login but immediately go to switch server. |
# login but immediately go to switch server. |
&Apache::lonauth::success($r,$uname,$udom,$uhome,'noredirect'); |
&Apache::lonauth::success($r,$uname,$udom,$uhome,'noredirect'); |
|
if (($ltihash->{'callback'}) && ($params->{$ltihash->{'callback'}})) { |
|
&LONCAPA::ltiutils::setup_logout_callback($uname,$udom,$otherserver, |
|
$ltihash->{'key'}, |
|
$ltihash->{'secret'}, |
|
$params->{$ltihash->{'callback'}}, |
|
$r->dir_config('ltiIDsDir'), |
|
$protocol,$r->hostname); |
|
} |
if ($symb) { |
if ($symb) { |
$env{'form.symb'} = $symb; |
$env{'form.symb'} = $symb; |
$env{'request.lti.uri'} = $tail; |
$env{'request.lti.uri'} = $tail; |
Line 818 sub lti_session {
|
Line 830 sub lti_session {
|
foreach my $key (%{$params}) { |
foreach my $key (%{$params}) { |
delete($env{'form.'.$key}); |
delete($env{'form.'.$key}); |
} |
} |
|
if (($ltihash->{'callback'}) && ($params->{$ltihash->{'callback'}})) { |
|
&LONCAPA::ltiutils::setup_logout_callback($uname,$udom,$lonhost, |
|
$ltihash->{'key'}, |
|
$ltihash->{'secret'}, |
|
$params->{$ltihash->{'callback'}}, |
|
$r->dir_config('ltiIDsDir'), |
|
$protocol,$r->hostname); |
|
} |
my $ip = $r->get_remote_host(); |
my $ip = $r->get_remote_host(); |
my %info=('ip' => $ip, |
my %info=('ip' => $ip, |
'domain' => $udom, |
'domain' => $udom, |