loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.262, 2009/05/06 12:13:18	version 1.265, 2009/05/16 18:06:41
Line 369 $utility	Line 369 $utility
<li>$helplink</li>	<li>$helplink</li>
<li><a href="/adm/logout" target="_top">$lt{'exit'}</a></li>	<li><a href="/adm/logout" target="_top">$lt{'exit'}</a></li>
</ol>	</ol>
<ol id="LC_TabMainMenuContent">	<ul id="LC_TabMainMenuContent">
<li><a href="/adm/menu" target="_top">$lt{'main'}</a></li>	<li><a href="/adm/menu" target="_top">$lt{'main'}</a></li>
$reloadlink	$reloadlink
$navmaps	$navmaps
$docs	$docs
$groups	$groups
$role_selector	$role_selector
</ol>	</ul>
$form	$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} ++;
}	}