loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.282, 2010/08/08 02:00:38	version 1.283, 2010/08/30 02:55:17
Line 2475 sub generate_menu {	Line 2475 sub generate_menu {
# create the markup for the current $link and push it into @links.	# create the markup for the current $link and push it into @links.
# each entry consists of an image and a text optionally followed	# each entry consists of an image and a text optionally followed
# by a help link.	# by a help link.
	my $src;
	if ($$link{icon} ne '') {
	$src = '/res/adm/pages/'.$$link{icon};
	}
push(@links,$li->(	push(@links,$li->(
$a->(	$a->(
$img->("", {	$img->("", {
class => "LC_noBorder LC_middle",	class => "LC_noBorder LC_middle",
src => "/res/adm/pages/$$link{icon}",	src => $src,
alt => mt(defined($$link{alttext}) ?	alt => mt(defined($$link{alttext}) ?
$$link{alttext} : $$link{linktext})	$$link{alttext} : $$link{linktext})
}), {	}), {