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

raeburn raeburn at source.lon-capa.org
Sun Dec 14 22:28:54 EST 2025


raeburn		Mon Dec 15 03:28:54 2025 EDT

  Modified files:              
    /loncom/interface	lonconfigsettings.pm 
  Log:
  - WCAG 2 compliance.
  
  
Index: loncom/interface/lonconfigsettings.pm
diff -u loncom/interface/lonconfigsettings.pm:1.77 loncom/interface/lonconfigsettings.pm:1.78
--- loncom/interface/lonconfigsettings.pm:1.77	Sat Dec 13 05:56:01 2025
+++ loncom/interface/lonconfigsettings.pm	Mon Dec 15 03:28:54 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: lonconfigsettings.pm,v 1.77 2025/12/13 05:56:01 raeburn Exp $
+# $Id: lonconfigsettings.pm,v 1.78 2025/12/15 03:28:54 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -818,14 +818,17 @@
             $heading = &mt('Settings to display');
         }
     }
-    $r->print('<h3>'.$heading.'</h3>'.
+    $r->print('<h2 class="LC_heading_2">'.$heading.'</h2>'.
               '<div><input type="button" value="'.&mt('check all').'" '.
               'onclick="javascript:checkAll(document.pickactions.actions)"'.
               ' />'.(' 'x2).
               '<input type="button" value="'.&mt('uncheck all').'" '.
               'onclick="javascript:uncheckAll(document.pickactions.actions)" />'.
               "\n".
-              '</div><div class="LC_left_float">');
+              '</div>'."\n".
+              '<fieldset style="border: 0; padding: 0; margin: 0">'.
+              '<legend class="LC_visually_hidden">'.$heading.'</legend>'.
+              '<div class="LC_left_float">');
     my ($numitems,$maxincol,$firstthird,$secondthird,$seconddiv,$thirddiv,$count);
     if (ref($prefs_order) eq 'ARRAY') {
         $numitems = @{$prefs_order};
@@ -840,10 +843,10 @@
     $count = 0;
     if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH')) {
         foreach my $item (@{$prefs_order}) {
-            $r->print('<h4>'.
+            $r->print('<h3 class="LC_heading_3">'.
                       &Apache::loncommon::help_open_topic($prefs->{$item}->{'help'}).
                       '<label><input type="checkbox" name="actions" value="'.$item.
-                      '" /> '.&mt($prefs->{$item}->{'text'}).'</label></h4>');
+                      '" /> '.&mt($prefs->{$item}->{'text'}).'</label></h3>');
             $count ++;
             if ((!$seconddiv) && ($count >= $firstthird)) {
                 $r->print('</div>'."\n".'<div class="LC_left_float">'."\n");
@@ -855,7 +858,7 @@
             }
         }
     }
-    $r->print('</div><div style="padding:0;clear:both;margin:0;border:0"></div>');
+    $r->print('</div></fieldset><div style="padding:0;clear:both;margin:0;border:0"></div>');
     $r->print(&print_footer($r,$phase,'display','Display',undef,$container,$parm_permission));
     $r->print('</form>');
     if ($container) {




More information about the LON-CAPA-cvs mailing list