[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