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.165, 2023/05/13 20:36:27
Line 113 sub handler {	Line 113 sub handler {
my $candisplay = 1;	my $candisplay = 1;
if (!$is_course) {	if (!$is_course) {
if ($action ne 'portfolio') {	if ($action ne 'portfolio') {
$candisplay = &Apache::lonnet::usertools_access($cnum,$cdom,'aboutme');	if (($env{'user.name'} eq $cnum) && ($env{'user.domain'} eq $cdom)) {
	$candisplay = &Apache::lonnet::usertools_access($cnum,$cdom,'aboutme');
	} else {
	$candisplay = &Apache::loncommon::aboutme_on($cnum,$cdom);
	}
if ((!$candisplay) && ($env{'request.course.id'})) {	if ((!$candisplay) && ($env{'request.course.id'})) {
$candisplay = &aboutme_access($cnum,$cdom);	$candisplay = &aboutme_access($cnum,$cdom);
}	}
Line 808 sub parse_directory {	Line 812 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'};