|
version 1.1374, 2022/01/15 20:21:06
|
version 1.1375, 2022/01/18 21:03:15
|
|
Line 5225 sub blockcheck {
|
Line 5225 sub blockcheck {
|
| } |
} |
| } |
} |
| } |
} |
| |
} elsif (($activity eq 'com') || ($activity eq 'port') || ($activity eq 'blogs') || |
| |
($activity eq 'about') || ($activity eq 'wishlist') || ($activity eq 'passwd')) { |
| |
my $checkrole; |
| |
if ($env{'request.role.domain'} eq '') { |
| |
$checkrole = "cm./$env{'user.domain'}/"; |
| |
} else { |
| |
$checkrole = "cm./$env{'request.role.domain'}/"; |
| |
} |
| |
if (($checkrole) && (&Apache::lonnet::allowed('evb',undef,undef,$checkrole))) { |
| |
$has_evb = 1; |
| |
} |
| } |
} |
| unless ($has_evb || $check_ipaccess) { |
unless ($has_evb || $check_ipaccess) { |
| my @machinedoms = &Apache::lonnet::current_machine_domains(); |
my @machinedoms = &Apache::lonnet::current_machine_domains(); |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface