version 1.369.2.30, 2012/12/27 05:52:00
|
version 1.369.2.31, 2012/12/28 17:26:15
|
Line 346 sub secondary_menu {
|
Line 346 sub secondary_menu {
|
my $canmgr = &Apache::lonnet::allowed('mgr', $crs_sec); |
my $canmgr = &Apache::lonnet::allowed('mgr', $crs_sec); |
my $author = &getauthor(); |
my $author = &getauthor(); |
|
|
|
my ($canmodifycoauthor); |
|
if ($env{'request.role'} eq "au./$env{'user.domain'}/") { |
|
my $extent = "$env{'user.domain'}/$env{'user.name'}"; |
|
if ((&Apache::lonnet::allowed('cca',$extent)) || |
|
(&Apache::lonnet::allowed('caa',$extent))) { |
|
$canmodifycoauthor = 1; |
|
} |
|
} |
|
|
my %groups = &Apache::lonnet::get_active_groups( |
my %groups = &Apache::lonnet::get_active_groups( |
$env{'user.domain'}, $env{'user.name'}, |
$env{'user.domain'}, $env{'user.name'}, |
$env{'course.' . $env{'request.course.id'} . '.domain'}, |
$env{'course.' . $env{'request.course.id'} . '.domain'}, |
Line 357 sub secondary_menu {
|
Line 366 sub secondary_menu {
|
# evaluate conditions |
# evaluate conditions |
next if ref($menuitem) ne 'ARRAY'; |
next if ref($menuitem) ne 'ARRAY'; |
next if $$menuitem[4] ne 'always' |
next if $$menuitem[4] ne 'always' |
&& $$menuitem[4] ne 'author' |
&& ($$menuitem[4] ne 'author' && $$menuitem[4] ne 'cca') |
&& !$env{'request.course.id'}; |
&& !$env{'request.course.id'}; |
next if $$menuitem[4] =~ /^mdc/ |
next if $$menuitem[4] =~ /^mdc/ |
&& !$canedit; |
&& !$canedit; |
Line 385 sub secondary_menu {
|
Line 394 sub secondary_menu {
|
&& ($canviewgrps || !%groups); |
&& ($canviewgrps || !%groups); |
next if $$menuitem[4] eq 'author' |
next if $$menuitem[4] eq 'author' |
&& !$author; |
&& !$author; |
|
next if $$menuitem[4] eq 'cca' |
|
&& !$canmodifycoauthor; |
|
|
my $title = $menuitem->[3]; |
my $title = $menuitem->[3]; |
if (defined($secondary_submenu{$title})) { |
if (defined($secondary_submenu{$title})) { |
Line 1291 sub prepare_functions {
|
Line 1302 sub prepare_functions {
|
$forceedit,$forceview,$forcereg, |
$forceedit,$forceview,$forcereg, |
$env{'form.title'},$env{'form.suppurl'}); |
$env{'form.title'},$env{'form.suppurl'}); |
} |
} |
} elsif ($resurl !~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) { |
} elsif (($resurl !~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) && |
|
($resurl ne '/cgi-bin/printout.pl')) { |
if ($env{'request.filename'}) { |
if ($env{'request.filename'}) { |
my $file=&Apache::lonnet::declutter($env{'request.filename'}); |
my $file=&Apache::lonnet::declutter($env{'request.filename'}); |
($cfile,$home,$switchserver,$forceedit,$forceview) = |
($cfile,$home,$switchserver,$forceedit,$forceview) = |