loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.188, 2008/12/01 17:45:20	version 1.190, 2008/12/03 18:53:54
Line 2047 sub generate_menu {	Line 2047 sub generate_menu {
my $menu_html = qq\|<div class="columnSection">\|;	my $menu_html = qq\|<div class="columnSection">\|;

foreach my $category (@menu) { #FIXME: insert appropriate classnames for styles when they're finished.	foreach my $category (@menu) { #FIXME: insert appropriate classnames for styles when they're finished.
$menu_html .='<div class="ContentBox">	$menu_html .='<div class="ContentBoxSpecial">
<h3 class="">'.mt($category->{'categorytitle'}).'</h3>	<h3 class="hcell">'.mt($category->{'categorytitle'}).'</h3>
<ul class="ListStyleNormal">';	<ul class="ListStyleNormal">';
foreach my $item ( @{ $category->{items} } ) {	foreach my $item ( @{ $category->{items} } ) {
next unless $item->{'permission'};	next unless $item->{'permission'};
$menu_html .= qq\|<li class=""><a href="$item->{'url'}" title="\|.mt($item->{'linktitle'}).'">';	$menu_html .= qq\|<li class="LC_menubuttons_inline_text"><a href="$item->{'url'}" title="\|.mt($item->{'linktitle'}).'">';
if($item->{'icon'}){	if($item->{'icon'}){
$menu_html .= qq\|<img class ="noBorder" src="/res/adm/pages/$item->{'icon'}" alt="\|;	$menu_html .= qq\|<img class ="noBorder" src="/res/adm/pages/$item->{'icon'}" alt="\|;
if($item->{'alttext'}){	if($item->{'alttext'}){