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

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.194 and 1.198

version 1.194, 2008/12/10 10:29:43 version 1.198, 2009/01/20 16:38:39
Line 1278  Inputs: $component (the large text on th Line 1278  Inputs: $component (the large text on th
         $menulink (boolean, controls whether to include a link to /adm/menu)          $menulink (boolean, controls whether to include a link to /adm/menu)
         $helplink (if 'nohelp' don't include the orange help link)          $helplink (if 'nohelp' don't include the orange help link)
         $css_class (optional name for the class to apply to the table for CSS)          $css_class (optional name for the class to apply to the table for CSS)
           $no_mt (optional flag, 1 if &mt() is _not_ to be applied to $component
              when including the text on the right.
 Returns a string containing breadcrumbs for the current page.  Returns a string containing breadcrumbs for the current page.
   
 =item clear_breadcrumbs  =item clear_breadcrumbs
Line 1303  returns: nothing Line 1305  returns: nothing
     my @Crumbs;      my @Crumbs;
           
     sub breadcrumbs {      sub breadcrumbs {
         my ($component,$component_help,$menulink,$helplink,$css_class) = @_;          my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt) = @_;
         #          #
  $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 1383  returns: nothing Line 1385  returns: nothing
         $Str .= $links.'</ol></td>';          $Str .= $links.'</ol></td>';
         #          #
         if (defined($component)) {          if (defined($component)) {
             $Str .= '<td class="'.$css_class.'_component">'.              $Str .= '<td class="'.$css_class.'_component">';
                 &mt($component);              if ($no_mt) {
                   $Str .= $component;
               } else {
                   $Str .= &mt($component);
               }
     if ($icons ne '') {      if ($icons ne '') {
  $Str .= '&nbsp;'.$icons;   $Str .= '&nbsp;'.$icons;
     }      }
Line 1546  sub role_select_row { Line 1552  sub role_select_row {
         $output = &row_title($title,$css_class);          $output = &row_title($title,$css_class);
     }      }
     $output .= qq|      $output .= qq|
                                   <select name="roles" multiple >\n|;                                    <select name="roles" multiple="multiple">\n|;
     foreach my $role (@$roles) {      foreach my $role (@$roles) {
         my $plrole;          my $plrole;
         if ($role eq 'ow') {          if ($role eq 'ow') {
Line 1673  sub status_select_row { Line 1679  sub status_select_row {
         $output = &row_title($title,$css_class,'LC_pick_box_select');          $output = &row_title($title,$css_class,'LC_pick_box_select');
     }      }
     $output .= qq|      $output .= qq|
                                     <select name="types" multiple>\n|;                                      <select name="types" multiple="multiple">\n|;
     foreach my $status_type (sort(keys(%{$types}))) {      foreach my $status_type (sort(keys(%{$types}))) {
         $output .= '  <option value="'.$status_type.'">'.$$types{$status_type}.'</option>';          $output .= '  <option value="'.$status_type.'">'.$$types{$status_type}.'</option>';
     }      }
Line 2053  END Line 2059  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
Line 2077  sub generate_menu { Line 2083  sub generate_menu {
     }      }
     $menu_html .= '</li>';      $menu_html .= '</li>';
  }   }
  $menu_html .= '</div>';   $menu_html .= '</ul></div>';
     }      }
     $menu_html .= qq|</div>|;      $menu_html .= qq|</div>|;
     return $menu_html;      return $menu_html;
Removed from v.1.194  
changed lines
  Added in v.1.198

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