[BACK]Return to lonhtmlcommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.195 and 1.196

version 1.195, 2008/12/12 07:28:09 version 1.196, 2008/12/17 12:59:49
Line 1306  returns: nothing Line 1306  returns: nothing
         my ($component,$component_help,$menulink,$helplink,$css_class) = @_;          my ($component,$component_help,$menulink,$helplink,$css_class) = @_;
         #          #
  $css_class ||= 'LC_breadcrumbs';   $css_class ||= 'LC_breadcrumbs';
         my $Str = "\n".'<table class="'.$css_class.'"><tr><td><ol id="MenuBreadcrumbs">';          my $Str = "\n".'<table class="'.$css_class.'"><tr><td><ol id="LC_MenuBreadcrumbs">';
         #          #
         # Make the faq and bug data cascade          # Make the faq and bug data cascade
         my $faq = '';          my $faq = '';
Line 2053  END Line 2053  END
   
 sub generate_menu {  sub generate_menu {
     my @menu = @_;      my @menu = @_;
     my $menu_html = qq|<div class="columnSection">|;      my $menu_html = qq|<div class="LC_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="ContentBoxSpecial">   $menu_html .='<div class="LC_ContentBoxSpecial">
  <h3 class="hcell">'.mt($category->{'categorytitle'}).'</h3>   <h3 class="LC_hcell">'.mt($category->{'categorytitle'}).'</h3>
  <ul class="ListStyleNormal">';   <ul class="LC_ListStyleNormal">';
  foreach my $item ( @{ $category->{items} } ) {   foreach my $item ( @{ $category->{items} } ) {
     next unless $item->{'permission'};      next unless $item->{'permission'};
     $menu_html .= qq|<li class="LC_menubuttons_inline_text"><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 middle" src="/res/adm/pages/$item->{'icon'}" alt="|;                  $menu_html .= qq|<img class ="LC_noBorder LC_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
Removed from v.1.195  
changed lines
  Added in v.1.196

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>