loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.263, 2009/05/08 16:08:56	version 1.264, 2009/05/13 03:21:14
Line 1644 sub roles_selector {	Line 1644 sub roles_selector {
}	}
}	}
if ($is_cc) {	if ($is_cc) {
&get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount);	&get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount);
} else {	} else {
my %gotnosection;	my %gotnosection;
foreach my $item (keys(%env)) {	foreach my $item (keys(%env)) {
Line 1662 sub roles_selector {	Line 1662 sub roles_selector {
}	}
if (ref($courseroles{$role}) eq 'ARRAY') {	if (ref($courseroles{$role}) eq 'ARRAY') {
if ($sec ne '') {	if ($sec ne '') {
if (!grep(/^Q$sec\E$/,@{$courseroles{$role}})) {	if (!grep(/^\Q$sec\E$/,@{$courseroles{$role}})) {
push(@{$courseroles{$role}},$sec);	push(@{$courseroles{$role}},$sec);
$seccount{$role} ++;	$seccount{$role} ++;
}	}