loncom/lti/ltiauth.pm - diff

Return to ltiauth.pm CVS log

Up to [LON-CAPA] / loncom / lti

version 1.24, 2021/11/03 01:04:04	version 1.25, 2021/11/22 03:19:05
Line 930 sub lti_session {	Line 930 sub lti_session {
if ($params->{'launch_presentation_document_target'}) {	if ($params->{'launch_presentation_document_target'}) {
$env{'request.lti.target'} = $params->{'launch_presentation_document_target'};	$env{'request.lti.target'} = $params->{'launch_presentation_document_target'};
}	}
foreach my $key (%{$params}) {	foreach my $key (keys(%{$params})) {
delete($env{'form.'.$key});	delete($env{'form.'.$key});
}	}
my $redirecturl = '/adm/switchserver';	my $redirecturl = '/adm/switchserver';
Line 942 sub lti_session {	Line 942 sub lti_session {
} else {	} else {
# need to login them in, so generate the need data that	# need to login them in, so generate the need data that
# migrate expects to do login	# migrate expects to do login
foreach my $key (%{$params}) {	foreach my $key (keys(%{$params})) {
delete($env{'form.'.$key});	delete($env{'form.'.$key});
}	}
if (($ltihash->{'callback'}) && ($params->{$ltihash->{'callback'}})) {	if (($ltihash->{'callback'}) && ($params->{$ltihash->{'callback'}})) {