loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1515, 2023/10/02 21:01:22	version 1.1516, 2023/10/06 01:22:06
Line 5471 sub courserolelog {	Line 5471 sub courserolelog {
$storehash{'group'} = $sec;	$storehash{'group'} = $sec;
} else {	} else {
$storehash{'section'} = $sec;	$storehash{'section'} = $sec;
my ($curruserdomstr,$newuserdomstr);	my ($curruserdomstr,$newuserdomstr);
if (exists($env{'course.'.$cdom.'_'.$cnum.'.internal.userdomains'})) {	if (exists($env{'course.'.$cdom.'_'.$cnum.'.internal.userdomains'})) {
$curruserdomstr = $env{'course.'.$env{'request.course.id'}.'.internal.userdomains'};	$curruserdomstr = $env{'course.'.$env{'request.course.id'}.'.internal.userdomains'};
} else {	} else {
my %courseinfo = &coursedescription($cdom.'/'.$cnum);	my %courseinfo = &coursedescription($cdom.'/'.$cnum);
$curruserdomstr = $courseinfo{'internal.userdomains'};	$curruserdomstr = $courseinfo{'internal.userdomains'};
}	}
if ($currusedomstr ne '') {	if ($curruserdomstr ne '') {
my @udoms = split(/,/,$courseinfo{'internal.userdomains'});	my @udoms = split(/,/,$curruserdomstr);
unless (grep(/^\Q$domain\E/,@udoms)) {	unless (grep(/^\Q$domain\E/,@udoms)) {
push(@udoms,$domain);	push(@udoms,$domain);
$newuserdomstr = join(',',sort(@udoms));	$newuserdomstr = join(',',sort(@udoms));