loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.419, 2025/03/03 22:03:02	version 1.420, 2025/03/06 16:42:40
Line 3976 sub list_from_array {	Line 3976 sub list_from_array {
sub generate_menu {	sub generate_menu {
my @menu = @_;	my @menu = @_;
# subs for specific html elements	# subs for specific html elements
my ($h2, $div, $ul, $li, $a, $img) = inittags( qw(h2 div ul li a img) );	my ($h2, $div, $ul, $li, $a, $img) = inittags( qw(h2 div ul li a img) );

my @categories; # each element represents the entire markup for a category	my @categories; # each element represents the entire markup for a category

Line 3999 sub generate_menu {	Line 3999 sub generate_menu {
src => $src,	src => $src,
alt => mt(defined($$link{alttext}) ?	alt => mt(defined($$link{alttext}) ?
$$link{alttext} : $$link{linktext})	$$link{alttext} : $$link{linktext})
}), {	}).mt($$link{linktext}), {
href => $$link{url},
title => mt($$link{linktitle}),
class => 'LC_menubuttons_link'
}).
$a->(mt($$link{linktext}), {
href => $$link{url},	href => $$link{url},
title => mt($$link{linktitle}),	title => mt($$link{linktitle}),
class => "LC_menubuttons_link"	class => "LC_menubuttons_link"
}).	}).
(defined($$link{help}) ?	(defined($$link{help}) ?
Apache::loncommon::help_open_topic($$link{help}) : ''),	Apache::loncommon::help_open_topic($$link{help}) : ''),
{class => "LC_menubuttons_inline_text"}));	{class => "LC_menubuttons_inline_text"}));
}	}