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

raeburn raeburn at source.lon-capa.org
Mon Jan 12 23:11:54 EST 2026


raeburn		Tue Jan 13 04:11:54 2026 EDT

  Modified files:              
    /loncom/interface	lonhtmlcommon.pm lonpopulate.pm 
  Log:
  - WCAG 2 compliance
    Include scope="row" where <th></th> tag in data table used as row heading.
  
  
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.427 loncom/interface/lonhtmlcommon.pm:1.428
--- loncom/interface/lonhtmlcommon.pm:1.427	Mon Dec 15 05:26:26 2025
+++ loncom/interface/lonhtmlcommon.pm	Tue Jan 13 04:11:54 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.427 2025/12/15 05:26:26 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.428 2026/01/13 04:11:54 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2551,7 +2551,7 @@
     }
     my $output = <<"ENDONE";
            <tr class="LC_pick_box_row" $css_value_furtherAttributes> 
-            <th $css_title_class>
+            <th scope="row" $css_title_class>
 	       $title
             </th>
             <td class="$css_value_class $css_class">
Index: loncom/interface/lonpopulate.pm
diff -u loncom/interface/lonpopulate.pm:1.94 loncom/interface/lonpopulate.pm:1.95
--- loncom/interface/lonpopulate.pm:1.94	Fri Jan  9 02:22:38 2026
+++ loncom/interface/lonpopulate.pm	Tue Jan 13 04:11:54 2026
@@ -1,5 +1,5 @@
 # automated enrollment configuration handler
-# $Id: lonpopulate.pm,v 1.94 2026/01/09 02:22:38 raeburn Exp $
+# $Id: lonpopulate.pm,v 1.95 2026/01/13 04:11:54 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -307,7 +307,7 @@
     <br />
     <table width="100%" border="0" cellpadding="0" cellspacing="0" class="LC_pick_box">
     <tr class="LC_pick_box_row">
-      <th valign="top" class="LC_pick_box_title">
+      <th scope="row" valign="top" class="LC_pick_box_title">
 ');
     foreach my $task (@{$tasksref}) {
         if (($task eq $action) && ($state eq 'choose')) {
@@ -583,6 +583,7 @@
              <span class="LC_nobreak"><label><input type="radio" name="autodropfailsafetype" value="any" onclick="toggleFailsafe(this.form);"'.$failsafechecked{'any'}.$disabled.' />'.&mt('Failsafe will apply if retrieved institutional section enrollment is zero or greater.').'</label></span><br />
              <span class="LC_nobreak"><label><input type="radio" name="autodropfailsafetype" value="off" onclick="toggleFailsafe(this.form);"'.$failsafechecked{'off'}.$disabled.' />'.&mt('Failsafe will not be in use in this course.').'</label></span><br />
              </fieldset>
+             <br />
              <fieldset style="display:'.$failsafesty.';" id="autodropfailsafe">
              <legend>'.&mt('Failsafe threshold').'</legend>
              <span class="LC_nobreak"><label>'.




More information about the LON-CAPA-cvs mailing list