|
version 1.1075.2.141.2.8, 2020/09/29 19:02:00
|
version 1.1075.2.141.2.9, 2020/10/01 12:34:08
|
|
Line 4848 sub get_blocks {
|
Line 4848 sub get_blocks {
|
| my $now = time; |
my $now = time; |
| my %commblocks = &Apache::lonnet::get_comm_blocks($cdom,$cnum); |
my %commblocks = &Apache::lonnet::get_comm_blocks($cdom,$cnum); |
| if ($activity eq 'docs') { |
if ($activity eq 'docs') { |
| my ($blocked,$nosymbcache); |
my ($blocked,$nosymbcache,$noenccheck); |
| if (($caller eq 'blockedaccess') || ($caller eq 'blockingstatus')) { |
if (($caller eq 'blockedaccess') || ($caller eq 'blockingstatus')) { |
| $blocked = 1; |
$blocked = 1; |
| $nosymbcache = 1; |
$nosymbcache = 1; |
| |
$noenccheck = 1; |
| } |
} |
| @blockers = &Apache::lonnet::has_comm_blocking('bre',$symb,$url,$nosymbcache,$blocked,\%commblocks); |
@blockers = &Apache::lonnet::has_comm_blocking('bre',$symb,$url,$nosymbcache,$noenccheck,$blocked,\%commblocks); |
| foreach my $block (@blockers) { |
foreach my $block (@blockers) { |
| if ($block =~ /^firstaccess____(.+)$/) { |
if ($block =~ /^firstaccess____(.+)$/) { |
| my $item = $1; |
my $item = $1; |
![[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