loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

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) {