loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1075.2.161.2.21, 2024/02/28 01:21:29	version 1.1075.2.161.2.22, 2024/02/28 03:23:49
Line 17097 sub init_user_environment {	Line 17097 sub init_user_environment {

# See if old ID present, if so, remove	# See if old ID present, if so, remove

my ($filename,$cookie,$userroles,$firstaccenv,$timerintenv);	my ($filename,$cookie,$userroles,$firstaccenv,$timerintenv,
	$coauthorenv);
my $now=time;	my $now=time;

if ($public) {	if ($public) {
Line 17162 sub init_user_environment {	Line 17163 sub init_user_environment {

# Initialize roles	# Initialize roles

($userroles,$firstaccenv,$timerintenv) =	($userroles,$firstaccenv,$timerintenv,$coauthorenv) =
&Apache::lonnet::rolesinit($domain,$username,$authhost);	&Apache::lonnet::rolesinit($domain,$username,$authhost);
}	}
# ------------------------------------ Check browser type and MathML capability	# ------------------------------------ Check browser type and MathML capability
Line 17293 sub init_user_environment {	Line 17294 sub init_user_environment {
if (ref($timerintenv) eq 'HASH') {	if (ref($timerintenv) eq 'HASH') {
&_add_to_env(\%disk_env,$timerintenv);	&_add_to_env(\%disk_env,$timerintenv);
}	}
	if (ref($coauthorenv) eq 'HASH') {
	if (keys(%{$coauthorenv})) {
	&_add_to_env(\%disk_env,$coauthorenv);
	}
	}
if (ref($args->{'extra_env'})) {	if (ref($args->{'extra_env'})) {
&_add_to_env(\%disk_env,$args->{'extra_env'});	&_add_to_env(\%disk_env,$args->{'extra_env'});
}	}