loncom/lti/ltiauth.pm - diff

Return to ltiauth.pm CVS log

Up to [LON-CAPA] / loncom / lti

version 1.39, 2022/06/30 21:04:14	version 1.41, 2023/05/24 14:55:57
Line 146 sub handler {	Line 146 sub handler {
my ($itemid,$ltitype,%crslti,%lti_in_use,$ltiuser);	my ($itemid,$ltitype,%crslti,%lti_in_use,$ltiuser);
$itemid = &get_lti_itemid($requri,$hostname,$params,$cdom,$cnum,'linkprot');	$itemid = &get_lti_itemid($requri,$hostname,$params,$cdom,$cnum,'linkprot');
if ($itemid) {	if ($itemid) {
%crslti = &Apache::lonnet::get_course_lti($cnum,$cdom);	%crslti = &Apache::lonnet::get_course_lti($cnum,$cdom,'provider');
}	}
if (($itemid) && (ref($crslti{$itemid}) eq 'HASH')) {	if (($itemid) && (ref($crslti{$itemid}) eq 'HASH')) {
$ltitype = 'c';	$ltitype = 'c';
Line 1126 sub check_balancer {	Line 1126 sub check_balancer {
($is_balancer,$otherserver) =	($is_balancer,$otherserver) =
&Apache::lonnet::check_loadbalancing($uname,$udom,'login');	&Apache::lonnet::check_loadbalancing($uname,$udom,'login');
if ($is_balancer) {	if ($is_balancer) {
	# Check if browser sent a LON-CAPA load balancer cookie (and this is a balancer)
	my ($found_server,$balancer_cookie) = &Apache::lonnet::check_for_balancer_cookie($r);
	if (($found_server) && ($balancer_cookie =~ /^\Q$udom\E_\Q$uname\E_/)) {
	$otherserver = $found_server;
	}
if ($otherserver eq '') {	if ($otherserver eq '') {
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);