loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.369.2.83.2.17, 2024/02/26 00:28:19	version 1.369.2.83.2.18, 2024/02/28 19:08:32
Line 266 sub prep_menuitem {	Line 266 sub prep_menuitem {
# @primary_menu is filled within the BEGIN block of this module with	# @primary_menu is filled within the BEGIN block of this module with
# entries from mydesk.tab	# entries from mydesk.tab
sub primary_menu {	sub primary_menu {
my ($crstype,$ltimenu,$menucoll,$menuref,$links_disabled,$links_target) = @_;	my ($crstype,$ltimenu,$menucoll,$menuref,$links_disabled,$links_target,$collapsible) = @_;
my (%menu,%ltiexc,%menuopts);	my (%menu,%ltiexc,%menuopts);
# each element of @primary contains following array:	# each element of @primary contains following array:
# (link url, icon path, alt text, link text, condition, position)	# (link url, icon path, alt text, link text, condition, position)
Line 437 sub primary_menu {	Line 437 sub primary_menu {
}	}
my @output = ('','');	my @output = ('','');
if ($menu{'left'} ne '') {	if ($menu{'left'} ne '') {
	if ($collapsible) {
	$menu{'left'} = ($listclass?'<li class="'.$listclass.'">':'<li>').
	' </li>'.$menu{'left'};
	}
$output[0] = "<ol class=\"LC_primary_menu LC_floatleft\">$menu{'left'}</ol>";	$output[0] = "<ol class=\"LC_primary_menu LC_floatleft\">$menu{'left'}</ol>";
}	}
if ($menu{'right'} ne '') {	if ($menu{'right'} ne '') {