loncom/interface/lonsimplepage.pm - diff

Return to lonsimplepage.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.41, 2006/05/18 17:12:58	version 1.42, 2006/06/30 18:06:47
Line 129 sub handler {	Line 129 sub handler {
if ($caller eq 'grppg') {	if ($caller eq 'grppg') {
if (($grp_view_permission) \|\|	if (($grp_view_permission) \|\|
(&Apache::longroup::check_group_access($caller))) {	(&Apache::longroup::check_group_access($caller))) {
unless(&Apache::lonnet::allowed('vgh',	if ((!&Apache::lonnet::allowed('vgh',
$env{'request.course.id'}.'/'.$marker)) {	$env{'request.course.id'}.'/'.$marker))
	&& (!&Apache::lonnet::allowed('mdg',
	$env{'request.course.id'}.'/'.$marker))) {
&display_group_links($r,$target,$marker,'view',%groupinfo);	&display_group_links($r,$target,$marker,'view',%groupinfo);
return OK;	return OK;
}	}
Line 149 sub handler {	Line 151 sub handler {

my $allowed;	my $allowed;
if ($caller eq 'grppg') {	if ($caller eq 'grppg') {
$allowed = $grp_view_permission;	$allowed = &Apache::lonnet::allowed('mdg',$env{'request.course.id'});
unless ($allowed) {	if (!$allowed) {
$allowed = &Apache::lonnet::allowed('mgh',$env{'request.course.id'}.	$allowed = &Apache::lonnet::allowed('mgh',$env{'request.course.id'}.
'/'.$marker);	'/'.$marker);
}	}