![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.1457, 2021/06/06 23:18:59 | version 1.1458, 2021/06/07 12:15:04 |
|---|---|
| Line 8441 sub allowed { | Line 8441 sub allowed { |
| =~/\Q$priv\E\&([^\:]*)/) { | =~/\Q$priv\E\&([^\:]*)/) { |
| my $value = $1; | my $value = $1; |
| if ($priv eq 'bre') { | if ($priv eq 'bre') { |
| if ($noblockcheck) { | my $deeplinkblock = &deeplink_check($priv,$symb,$uri); |
| if ($deeplinkblock) { | |
| $thisallowed = 'D'; | |
| } elsif ($noblockcheck) { | |
| $thisallowed.=$value; | $thisallowed.=$value; |
| } else { | } else { |
| my @blockers = &has_comm_blocking($priv,$symb,$uri,$ignorecache); | my @blockers = &has_comm_blocking($priv,$symb,$uri,$ignorecache); |