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

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.201 and 1.205

version 1.201, 2009/02/18 19:28:45 version 1.205, 2009/04/01 14:22:11
Line 1305  returns: nothing Line 1305  returns: nothing
     my @Crumbs;      my @Crumbs;
           
     sub breadcrumbs {      sub breadcrumbs {
         my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt) = @_;          my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $no_realBreadcrumb) = @_;
         #          #
  $css_class ||= 'LC_breadcrumbs';   $css_class ||= 'LC_breadcrumbs';
         my $Str1 = '<ol id="LC_MenuBreadcrumbs">';          my $Str1 = '<ol id="LC_MenuBreadcrumbs">';
   
    if($no_realBreadcrumb){
    $Str1 = '<ul class="LC_CourseBreadcrumbs">';
    }
   
         my $Str = '';          my $Str = '';
         #          #
         # Make the faq and bug data cascade          # Make the faq and bug data cascade
Line 1316  returns: nothing Line 1321  returns: nothing
         my $bug = '';          my $bug = '';
  my $help='';   my $help='';
  # Crumb Symbol   # Crumb Symbol
  my $crumbsymbol = '&#x25b6; ';   my $crumbsymbol = '&raquo;&nbsp;';
         # The last breadcrumb does not have a link, so handle it separately.          # The last breadcrumb does not have a link, so handle it separately.
         my $last = pop(@Crumbs);          my $last = pop(@Crumbs);
         #          #
Line 1383  returns: nothing Line 1388  returns: nothing
  $faq,$bug);   $faq,$bug);
  }   }
         #          #
         $Str1 .= $links.'</ol>';  
   
    if($no_realBreadcrumb){
           $Str1 .= $links.'</ul>';
    } else {
           $Str1 .= $links.'</ol>';
    }
         #          #
         if (defined($component)) {          if (defined($component)) {
             $Str .= "\n".'<table class="'.$css_class.'">'              $Str .= "\n".'<table class="'.$css_class.'">'
Line 2091  sub generate_menu { Line 2102  sub generate_menu {
                             $img->("", {                              $img->("", {
                                 class => "LC_noBorder LC_middle",                                  class => "LC_noBorder LC_middle",
                                 src   => "/res/adm/pages/$$link{icon}",                                  src   => "/res/adm/pages/$$link{icon}",
                                 alt   => defined($$link{alttext}) ?                                  alt   => mt(defined($$link{alttext}) ?
                                 $$link{alttext} : $$link{linktext}                                  $$link{alttext} : $$link{linktext})
                             }), {                              }), {
                             href  => $$link{url},                              href  => $$link{url},
                             title => $$link{linktitle}                              title => mt($$link{linktitle})
                             }).                              }).
                         $a->($$link{linktext}, {                          $a->(mt($$link{linktext}), {
                             href  => $$link{url},                              href  => $$link{url},
                             title => $$link{linktitle},                              title => mt($$link{linktitle}),
                             class => "LC_menubuttons_link"                              class => "LC_menubuttons_link"
                             }).                              }).
                          (defined($$link{help}) ?                            (defined($$link{help}) ? 
Line 2115  sub generate_menu { Line 2126  sub generate_menu {
         # <div><h3>title</h3><ul><li>...</li>...</ul></div>          # <div><h3>title</h3><ul><li>...</li>...</ul></div>
         # the category won't be added if there aren't any links          # the category won't be added if there aren't any links
         push @categories,           push @categories, 
             $div->($h3->($$category{categorytitle}, {class=>"LC_hcell"}).              $div->($h3->(mt($$category{categorytitle}), {class=>"LC_hcell"}).
             $ul->(join('' ,@links),  {class =>"LC_ListStyleNormal" }),              $ul->(join('' ,@links),  {class =>"LC_ListStyleNormal" }),
             {class=>"LC_ContentBoxSpecial"}) if scalar(@links);              {class=>"LC_ContentBoxSpecial LC_400Box"}) if scalar(@links);
     }      }
   
     # wrap the joined @categories in another <div> (column layout)      # wrap the joined @categories in another <div> (column layout)
Removed from v.1.201  
changed lines
  Added in v.1.205

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