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

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.183 and 1.186

version 1.183, 2008/11/11 20:12:17 version 1.186, 2008/11/26 23:20:56
Line 1708  sub email_default_row { Line 1708  sub email_default_row {
   
 sub submit_row {  sub submit_row {
     my ($title,$cmd,$submit_text,$css_class) = @_;      my ($title,$cmd,$submit_text,$css_class) = @_;
       $submit_text = &mt($submit_text);
     my $output = &row_title($title,$css_class,'LC_pick_box_submit');      my $output = &row_title($title,$css_class,'LC_pick_box_submit');
     $output .= qq|      $output .= qq|
              <br />               <br />
Line 2019  END Line 2020  END
 # url    => 'URL the link is pointing to, i.e. /adm/site?action=dosomething',  # url    => 'URL the link is pointing to, i.e. /adm/site?action=dosomething',
 # permission  => 'Contains permissions as returned from lonnet::allowed(),  # permission  => 'Contains permissions as returned from lonnet::allowed(),
 # must evaluate to true in order to activate the link',  # must evaluate to true in order to activate the link',
   # icon        =>  'icon filename',
   # alttext    => 'alt text for the icon',
 # help    => 'Name of the corresponding helpfile',  # help    => 'Name of the corresponding helpfile',
 # linktitle   => 'Description of the link (used for title tag)'  # linktitle   => 'Description of the link (used for title tag)'
 #    },  #    },
Line 2035  END Line 2038  END
 # subject to change during this project.  # subject to change during this project.
 # Don't rely on its current functionality as it might be   # Don't rely on its current functionality as it might be 
 # changed or removed.  # changed or removed.
   # TODO:
   # check for empty values
 # --------------------------  # --------------------------
   
 sub generate_menu {  sub generate_menu {
Line 2042  sub generate_menu { Line 2047  sub generate_menu {
     my $menu_html = '';      my $menu_html = '';
   
     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=""><h3 class="">'.$category->{'categorytitle'}.'</h3><ul class="">';   $menu_html .='<div class="DivContentBox"><h3 class="">'.$category->{'categorytitle'}.'</h3><ul class="ListStyleNormal">';
  foreach my $item (@{ $category->{items} }) {   foreach my $item (@{ $category->{items} }) {
     next if (! $item->{'permission'});      next if (! $item->{'permission'});
     $menu_html .= '<li class="">'.      $menu_html .= '<li class="">'.
     qq{<a href="$item->{'url'}" title="$item->{'linktitle'}">}.      qq{<a href="$item->{'url'}" title="$item->{'linktitle'}">};
     &mt($item->{'linktext'}).'</a>';              if($item->{'icon'}){
                   $menu_html .= qq{<img class = "" src="/res/adm/pages/$item->{'icon'}" alt="};
    if($item->{'alttext'}){
       $menu_html .= qq{$item->{'alttext'}"/>};
    } else { #use linktext as alt text for the icon
       $menu_html .= qq{$item->{'linktext'}"/>};
                   } 
               }
               $menu_html .= &mt($item->{'linktext'}).'</a>';
     if (exists($item->{'help'})) {      if (exists($item->{'help'})) {
  $menu_html .= &Apache::loncommon::help_open_topic($item->{'help'});   $menu_html .= &Apache::loncommon::help_open_topic($item->{'help'});
     }      }
Removed from v.1.183  
changed lines
  Added in v.1.186

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