version 1.164, 2007/07/26 23:48:53
|
version 1.165, 2007/07/26 23:56:35
|
Line 2433 sub get_permission {
|
Line 2433 sub get_permission {
|
my %permission; |
my %permission; |
$permission{'view'} = |
$permission{'view'} = |
&Apache::lonnet::allowed('vcl',$env{'request.course.id'}); |
&Apache::lonnet::allowed('vcl',$env{'request.course.id'}); |
&Apache::lonnet::logthis(" vcl 1 ".$permission{'view'}); |
|
if (!$permission{'view'}) { |
if (!$permission{'view'}) { |
my $scope = $env{'request.course.id'}.'/'.$env{'request.course.sec'}; |
my $scope = $env{'request.course.id'}.'/'.$env{'request.course.sec'}; |
$permission{'view'} = &Apache::lonnet::allowed('vcl',$scope); |
$permission{'view'} = &Apache::lonnet::allowed('vcl',$scope); |
&Apache::lonnet::logthis(" vcl 2 ".$permission{'view'}); |
|
if ($permission{'view'}) { |
if ($permission{'view'}) { |
$permission{'view_section'} = $env{'request.course.sec'}; |
$permission{'view_section'} = $env{'request.course.sec'}; |
&Apache::lonnet::logthis(" vcl 3 ".$permission{'view'}); |
|
} |
} |
} |
} |
|
|
Line 2455 sub get_permission {
|
Line 2452 sub get_permission {
|
foreach my $perm (values(%permission)) { |
foreach my $perm (values(%permission)) { |
if ($perm) { $allowed=1; last; } |
if ($perm) { $allowed=1; last; } |
} |
} |
&Apache::lonnet::logthis(" allowed ".$allowed); |
|
return (\%permission,$allowed); |
return (\%permission,$allowed); |
} |
} |
|
|