|
version 1.188, 2008/12/01 17:45:20
|
version 1.191, 2008/12/03 19:34:01
|
|
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 middle" src="/res/adm/pages/$item->{'icon'}" alt="|; |
| if($item->{'alttext'}){ |
if($item->{'alttext'}){ |
| $menu_html .= $item->{'alttext'}.'"/></a>'; |
$menu_html .= $item->{'alttext'}.'"/></a>'; |
| } else { #use linktext as alt text for the icon |
} else { #use linktext as alt text for the icon |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonhtmlcommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface