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

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.419 and 1.421

version 1.419, 2025/03/03 22:03:02 version 1.421, 2025/03/06 16:51:36
Line 2463  sub docs_breadcrumbs { Line 2463  sub docs_breadcrumbs {
 my @row_count;  my @row_count;
   
 sub start_pick_box {  sub start_pick_box {
     my ($css_class,$id) = @_;      my ($css_class,$id,$caption,$caption_class) = @_;
     if (defined($css_class)) {      if (defined($css_class)) {
  $css_class = 'class="'.$css_class.'"';   $css_class = 'class="'.$css_class.'"';
     } else {      } else {
Line 2477  sub start_pick_box { Line 2477  sub start_pick_box {
     my $output = <<"END";      my $output = <<"END";
  <table $css_class $table_id>   <table $css_class $table_id>
 END  END
       if (defined($caption)) {
           if (defined($caption_class)) {
               $caption_class = 'class="'.$caption_class.'"';
           } else {
               $caption_class = 'class="LC_caption"';
           }
           $output .= <<"END";
    <caption $caption_class>$caption</caption>
   END
       }
     return $output;      return $output;
 }  }
   
Line 3976  sub list_from_array { Line 3986  sub list_from_array {
 sub generate_menu {  sub generate_menu {
     my @menu = @_;      my @menu = @_;
     # subs for specific html elements      # subs for specific html elements
     my ($h2, $div, $ul, $li, $a, $img) = inittags( qw(h2 div ul li a img) );       my ($h2, $div, $ul, $li, $a, $img) = inittags( qw(h2 div ul li a img) );
           
     my @categories; # each element represents the entire markup for a category      my @categories; # each element represents the entire markup for a category
         
Line 3999  sub generate_menu { Line 4009  sub generate_menu {
                                 src   => $src,                                  src   => $src,
                                 alt   => mt(defined($$link{alttext}) ?                                  alt   => mt(defined($$link{alttext}) ?
                                 $$link{alttext} : $$link{linktext})                                  $$link{alttext} : $$link{linktext})
                             }), {                              }).mt($$link{linktext}), {
                             href  => $$link{url},  
                             title => mt($$link{linktitle}),  
                             class => 'LC_menubuttons_link'  
                             }).  
                         $a->(mt($$link{linktext}), {  
                             href  => $$link{url},                              href  => $$link{url},
                             title => mt($$link{linktitle}),                              title => mt($$link{linktitle}),
                             class => "LC_menubuttons_link"                              class => "LC_menubuttons_link"
                             }).                              }).
                          (defined($$link{help}) ?                            (defined($$link{help}) ?
                          Apache::loncommon::help_open_topic($$link{help}) : ''),                           Apache::loncommon::help_open_topic($$link{help}) : ''),
                          {class => "LC_menubuttons_inline_text"}));                           {class => "LC_menubuttons_inline_text"}));
         }          }
Removed from v.1.419  
changed lines
  Added in v.1.421

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