loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1196, 2012/11/10 13:58:31	version 1.1197, 2012/11/11 01:48:33
Line 2692 sub can_edit_resource {	Line 2692 sub can_edit_resource {
if ($group ne '') {	if ($group ne '') {
# if this is a group homepage or group bulletin board, check group privs	# if this is a group homepage or group bulletin board, check group privs
my $allowed = 0;	my $allowed = 0;
if ($resurl =~ m{^/adm/$cdom/$cnum/$group/smppg$}) {	if ($resurl =~ m{^/?adm/$cdom/$cnum/$group/smppg$}) {
if ((&Apache::lonnet::allowed('mdg',$env{'request.course.id'}.	if ((&allowed('mdg',$env{'request.course.id'}.
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) \|\|	($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) \|\|
(&allowed('mgh',$env{'request.course.id'}.'/'.$group)) \|\| $crsedit) {	(&allowed('mgh',$env{'request.course.id'}.'/'.$group)) \|\| $crsedit) {
$allowed = 1;	$allowed = 1;
}	}
} elsif ($resurl =~ m{^/adm/$cdom/$cnum/\d+/bulletinboard$}) {	} elsif ($resurl =~ m{^/?adm/$cdom/$cnum/\d+/bulletinboard$}) {
unless ((&allowed(&Apache::lonnet::allowed('mdg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')))) \|\|	if ((&allowed('mdg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) \|\|
(&allowed('cgb',$env{'request.course.id'}.$group)) \|\| $crsedit) {	(&allowed('cgb',$env{'request.course.id'}.'/'.$group)) \|\| $crsedit) {
$allowed = 1;	$allowed = 1;
}	}
}	}