|
version 1.369.2.83.2.13, 2023/12/29 19:53:25
|
version 1.369.2.83.2.14, 2024/01/02 03:46:06
|
|
Line 370 sub primary_menu {
|
Line 370 sub primary_menu {
|
| ($item->[2] eq 'blog')) && |
($item->[2] eq 'blog')) && |
| (!&Apache::lonnet::usertools_access('','',$item->[2], |
(!&Apache::lonnet::usertools_access('','',$item->[2], |
| undef,'tools'))); |
undef,'tools'))); |
| if ($item->[2] eq 'browsepub') { |
if (($item->[2] eq 'browsepub') && ($item->[0] eq '/res/')) { |
| if ($env{'request.role'} =~ /^au\./) { |
if ($env{'request.role'} =~ /^au\./) { |
| $item->[0] = '/res/'.$env{'request.role.domain'}.'/?launch=1'; |
$item->[0] .= $env{'request.role.domain'}.'/?launch=1'; |
| } elsif ($env{'request.role'} =~ /^ca\./($match_domain)/($match_user)$/) { |
} elsif ($env{'request.role'} =~ m{^ca\./($match_domain)/($match_username)$}) { |
| $item->[0] = '/res/'.$1.'/'.$2.'/?launch=1'; |
$item->[0] .= $1.'/'.$2.'/?launch=1'; |
| } elsif (&Apache::lonnet::allowed('bre',$env{'user.domain'})) { |
} elsif (&Apache::lonnet::allowed('bre',$env{'user.domain'})) { |
| $item->[0] = '/res/'.$env{'user.domain'}.'/?launch=1'; |
$item->[0] .= $env{'user.domain'}.'/?launch=1'; |
| } elsif (&Apache::lonnet::allowed('bro','/res/')) { |
} elsif (&Apache::lonnet::allowed('bro','/res/')) { |
| $item->[0] = '/res/?launch=1'; |
$item->[0] .= '?launch=1'; |
| } else { |
} else { |
| next; |
next; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmenu.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface