loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1393, 2018/12/05 21:36:18	version 1.1394, 2018/12/08 15:17:25
Line 711 sub check_for_valid_session {	Line 711 sub check_for_valid_session {

if (!defined($disk_env{'user.name'})	if (!defined($disk_env{'user.name'})
\|\| !defined($disk_env{'user.domain'})) {	\|\| !defined($disk_env{'user.domain'})) {
	untie(%disk_env);
return undef;	return undef;
}	}

Line 723 sub check_for_valid_session {	Line 724 sub check_for_valid_session {
$userhashref->{'ltiuri'} = $disk_env{'request.lti.uri'};	$userhashref->{'ltiuri'} = $disk_env{'request.lti.uri'};
}	}
}	}
	untie(%disk_env);

return $handle;	return $handle;
}	}