loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.163, 2022/10/29 14:47:00	version 1.164, 2022/11/14 18:50:42
Line 808 sub parse_directory {	Line 808 sub parse_directory {
sub aboutme_access {	sub aboutme_access {
my ($uname,$udom) = @_;	my ($uname,$udom) = @_;
my $privcheck = $env{'request.course.id'};	my $privcheck = $env{'request.course.id'};
my $sec;
if ($env{'request.course.sec'} ne '') {	if ($env{'request.course.sec'} ne '') {
$sec = $env{'request.course.sec'};	$privcheck .= '/'.$env{'request.course.sec'};
$privcheck .= '/'.$sec;
}	}
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};