version 1.402, 2012/12/27 05:28:33
|
version 1.403, 2012/12/27 05:34:07
|
Line 1707 sub roles_selector {
|
Line 1707 sub roles_selector {
|
} |
} |
foreach my $role (sort(keys(%courseroles))) { |
foreach my $role (sort(keys(%courseroles))) { |
if ($role =~ /^cr/) { |
if ($role =~ /^cr/) { |
my $include; |
my $include; |
if ($env{'request.role'} =~ m{^\Q$role\E}) { |
if ($env{'request.role'} =~ m{^\Q$role\E}) { |
if ($seccount{$role} > 1) { |
if ($seccount{$role} > 1) { |
$include = 1; |
$include = 1; |
} |
} |
} else { |
} else { |
$include = 1; |
$include = 1; |
} |
} |
if ($include) { |
if ($include) { |
push(@submenu,['javascript:adhocRole('."'$role'".')', |
push(@submenu,['javascript:adhocRole('."'$role'".')', |
&Apache::lonnet::plaintext($role)]); |
&Apache::lonnet::plaintext($role)]); |
} |
} |
} |
} |
} |
} |
if (@submenu > 0) { |
if (@submenu > 0) { |