|
version 1.70.4.1, 2009/05/18 21:51:26
|
version 1.70.4.3, 2010/01/30 18:03:40
|
|
Line 777 sub aboutme_access {
|
Line 777 sub aboutme_access {
|
| 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'}; |
| if (($cdom eq '') || ($cnum eq '')) { |
if (($cdom eq '') || ($cnum eq '')) { |
| my %coursehash = &coursedescription($env{'request.course.id'}); |
my %coursehash = &Apache::lonnet::coursedescription($env{'request.course.id'}); |
| $cdom = $coursehash{'domain'}; |
$cdom = $coursehash{'domain'}; |
| $cnum = $coursehash{'cnum'}; |
$cnum = $coursehash{'cnum'}; |
| } |
} |
| if ((&Apache::lonnetallowed('srm',$privcheck)) || |
if ((&Apache::lonnet::allowed('srm',$privcheck)) || |
| (&Apache::lonnet::allowed('dff',$privcheck))) { |
(&Apache::lonnet::allowed('dff',$privcheck))) { |
| if (&in_course($uname,$udom,$cnum,$cdom)) { |
if (&in_course($uname,$udom,$cnum,$cdom)) { |
| return 1; |
return 1; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonaboutme.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface