loncom/lti/ltiauth.pm - diff

Return to ltiauth.pm CVS log

Up to [LON-CAPA] / loncom / lti

version 1.21, 2021/08/07 01:34:20	version 1.24, 2021/11/03 01:04:04
Line 68 sub handler {	Line 68 sub handler {
}	}
}	}
#	#
# Check for existing session, and restored temporarily	# Check for existing session, and restore temporarily
# deleted form items to %env, if session exists.	# deleted form items to %env, if session exists.
#	#
if ($handle ne '') {	if ($handle ne '') {
Line 197 sub handler {	Line 197 sub handler {
delete($env{'form.'.$key});	delete($env{'form.'.$key});
}	}
my $ltoken = &Apache::lonnet::tmpput({'linkprot' => $itemid.$ltitype.':'.$tail},	my $ltoken = &Apache::lonnet::tmpput({'linkprot' => $itemid.$ltitype.':'.$tail},
$lonhost);	$lonhost,'link');
if ($ltoken) {	if ($ltoken) {
$r->internal_redirect($tail.'?ltoken='.$ltoken);	$r->internal_redirect($tail.'?ltoken='.$ltoken);
$r->set_handlers('PerlHandler'=> undef);	$r->set_handlers('PerlHandler'=> undef);
Line 854 sub lti_session {	Line 854 sub lti_session {
my $lowest_load;	my $lowest_load;
($otherserver,undef,undef,undef,$lowest_load) = &Apache::lonnet::choose_server($udom);	($otherserver,undef,undef,undef,$lowest_load) = &Apache::lonnet::choose_server($udom);
if ($lowest_load > 100) {	if ($lowest_load > 100) {
$otherserver = &Apache::lonnet::spareserver($lowest_load,$lowest_load,1,$udom);	$otherserver = &Apache::lonnet::spareserver($r,$lowest_load,$lowest_load,1,$udom);
}	}
}	}
if ($otherserver ne '') {	if ($otherserver ne '') {