loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.201, 2009/02/18 19:28:45	version 1.202, 2009/02/19 18:01:37
Line 2091 sub generate_menu {	Line 2091 sub generate_menu {
$img->("", {	$img->("", {
class => "LC_noBorder LC_middle",	class => "LC_noBorder LC_middle",
src => "/res/adm/pages/$$link{icon}",	src => "/res/adm/pages/$$link{icon}",
alt => defined($$link{alttext}) ?	alt => mt(defined($$link{alttext}) ?
$$link{alttext} : $$link{linktext}	$$link{alttext} : $$link{linktext})
}), {	}), {
href => $$link{url},	href => $$link{url},
title => $$link{linktitle}	title => mt($$link{linktitle})
}).	}).
$a->($$link{linktext}, {	$a->(mt($$link{linktext}), {
href => $$link{url},	href => $$link{url},
title => $$link{linktitle},	title => mt($$link{linktitle}),
class => "LC_menubuttons_link"	class => "LC_menubuttons_link"
}).	}).
(defined($$link{help}) ?	(defined($$link{help}) ?
Line 2115 sub generate_menu {	Line 2115 sub generate_menu {
# <div><h3>title</h3><ul><li>...</li>...</ul></div>	# <div><h3>title</h3><ul><li>...</li>...</ul></div>
# the category won't be added if there aren't any links	# the category won't be added if there aren't any links
push @categories,	push @categories,
$div->($h3->($$category{categorytitle}, {class=>"LC_hcell"}).	$div->($h3->(mt($$category{categorytitle}), {class=>"LC_hcell"}).
$ul->(join('' ,@links), {class =>"LC_ListStyleNormal" }),	$ul->(join('' ,@links), {class =>"LC_ListStyleNormal" }),
{class=>"LC_ContentBoxSpecial"}) if scalar(@links);	{class=>"LC_ContentBoxSpecial"}) if scalar(@links);
}	}