version 1.309.2.18, 2010/11/08 22:51:23
|
version 1.309.2.19, 2010/11/30 05:51:55
|
Line 168 sub primary_menu {
|
Line 168 sub primary_menu {
|
my $numdc = &Apache::loncommon::check_for_gci_dc(); |
my $numdc = &Apache::loncommon::check_for_gci_dc(); |
# each element of @primary contains following array: |
# each element of @primary contains following array: |
# (link url, icon path, alt text, link text, condition) |
# (link url, icon path, alt text, link text, condition) |
|
my $public; |
|
if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public')) |
|
|| (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) { |
|
$public = 1; |
|
} |
foreach my $menuitem (@primary_menu) { |
foreach my $menuitem (@primary_menu) { |
# evaluate conditions |
# evaluate conditions |
next if ref($menuitem) ne 'ARRAY'; # |
next if ref($menuitem) ne 'ARRAY'; # |
Line 176 sub primary_menu {
|
Line 181 sub primary_menu {
|
next if $$menuitem[4] eq 'newmsg' # arrived or not |
next if $$menuitem[4] eq 'newmsg' # arrived or not |
&& !&Apache::lonmsg::mynewmail(); # |
&& !&Apache::lonmsg::mynewmail(); # |
next if $$menuitem[4] !~ /public/ ##we've a public user, |
next if $$menuitem[4] !~ /public/ ##we've a public user, |
&& $env{'user.name'} eq 'public' ##who should not see all |
&& $public; ##who should not see all |
&& $env{'user.domain'} eq 'public'; ##links |
##links |
next if $$menuitem[4] eq 'onlypublic'# hide links which are |
next if $$menuitem[4] eq 'onlypublic'# hide links which are |
&& $env{'user.name'} ne 'public' # only visible to public |
&& !$public; # only visible to public |
&& $env{'user.domain'} ne 'public'; # users |
# users |
next if $$menuitem[4] eq 'gci' |
next if $$menuitem[4] eq 'gci' |
&& (!$custommenu || $env{'request.role'} =~ m{^st\./gcitest/}); |
&& (!$custommenu || $env{'request.role'} =~ m{^st\./gcitest/}); |
next if $$menuitem[4] eq 'home' |
next if $$menuitem[4] eq 'home' |