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.265, 2009/05/16 18:06:41
Line 381 $form	Line 381 $form
<script type="text/javascript">	<script type="text/javascript">
// END LON-CAPA Internal	// END LON-CAPA Internal
</script>	</script>
<br clear="all" />
$reg	$reg
ENDINLINEMENU	ENDINLINEMENU
} else {	} else {
Line 1644 sub roles_selector {	Line 1643 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 1661 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} ++;
}	}