[LON-CAPA-cvs] cvs: loncom /interface lonhtmlcommon.pm

raeburn raeburn at source.lon-capa.org
Mon Mar 3 17:03:02 EST 2025


raeburn		Mon Mar  3 22:03:02 2025 EDT

  Modified files:              
    /loncom/interface	lonhtmlcommon.pm 
  Log:
  - WCAG 2 compliance.
  
  
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.418 loncom/interface/lonhtmlcommon.pm:1.419
--- loncom/interface/lonhtmlcommon.pm:1.418	Tue Feb 18 03:42:04 2025
+++ loncom/interface/lonhtmlcommon.pm	Mon Mar  3 22:03:02 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.418 2025/02/18 03:42:04 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.419 2025/03/03 22:03:02 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3976,7 +3976,7 @@
 sub generate_menu {
     my @menu = @_;
     # subs for specific html elements
-    my ($h3, $div, $ul, $li, $a, $img) = inittags( qw(h3 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
    
@@ -4014,15 +4014,15 @@
                          {class => "LC_menubuttons_inline_text"}));
         }
 
-        # wrap categorytitle in <h3>, concatenate with 
+        # wrap categorytitle in <h2>, concatenate with 
         # joined and in <ul> tags wrapped @links
         # and wrap everything in an enclosing <div> and push it into
         # @categories
         # such that each element looks like:
-        # <div><h3>title</h3><ul><li>...</li>...</ul></div>
+        # <div><h2>title</h2><ul><li>...</li>...</ul></div>
         # the category won't be added if there aren't any links
         push(@categories, 
-            $div->($h3->(mt($$category{categorytitle}), {class=>"LC_hcell"}).
+            $div->($h2->(mt($$category{categorytitle}), {class=>'LC_hcell LC_heading_2'}).
             $ul->(join('' , at links),  {class =>"LC_ListStyleNormal" }),
             {class=>"LC_Box LC_400Box"})) if scalar(@links);
     }




More information about the LON-CAPA-cvs mailing list