loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.484, 2006/12/01 22:19:33	version 1.485, 2006/12/04 22:03:15
Line 2936 sub blockcheck {	Line 2936 sub blockcheck {
$tdom,$spec,$trest,$area);	$tdom,$spec,$trest,$area);
}	}
my ($author,$adv) = &Apache::lonnet::set_userprivs(\%userroles,\%allroles);	my ($author,$adv) = &Apache::lonnet::set_userprivs(\%userroles,\%allroles);
if ($userroles{'user.priv.'.$checkrole} =~ /evb\&([^\:]*)/) {	$no_userblock = &Apache::lonnet::allowed('evb',undef,undef,
if ($1) {	$checkrole);
$no_userblock = 1;	last if $no_userblock;
last;	} else {
}
}
} else {
if (&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) {	if (&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) {
$no_ownblock = 1;	$no_ownblock = 1;
last;	last;