loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

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);
}	}