loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1347, 2020/09/28 00:10:28	version 1.1348, 2020/10/01 10:16:33
Line 5316 sub get_blocks {	Line 5316 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;