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

[raeburn]

raeburn		Wed Jan  7 02:17:43 2026 EDT

  Modified files:              
    /loncom/interface	lonviewcoauthors.pm 
  Log:
  - WCAG compliance
  
  
Index: loncom/interface/lonviewcoauthors.pm
diff -u loncom/interface/lonviewcoauthors.pm:1.7 loncom/interface/lonviewcoauthors.pm:1.8
--- loncom/interface/lonviewcoauthors.pm:1.7	Mon Jan  5 19:17:47 2026
+++ loncom/interface/lonviewcoauthors.pm	Wed Jan  7 02:17:43 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to display the coauthors
 #
-# $Id: lonviewcoauthors.pm,v 1.7 2026/01/05 19:17:47 raeburn Exp $
+# $Id: lonviewcoauthors.pm,v 1.8 2026/01/07 02:17:43 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -233,7 +233,7 @@
                  apos  => 'A problem occurred saving your changes.',
                  cloc  => 'Configure listing of co-authors',
                  set   => 'Setting',
-                 vale  => 'Value',
+                 val   => 'Value',
                  sav   => 'Save changes'
              );
     my $output;
@@ -324,8 +324,8 @@
                   &Apache::loncommon::end_data_table_header_row().
                   &Apache::loncommon::start_data_table_row().
                   '<td>'.
-                  $titles{'coauthorlist'}.'</td>'.
-                  '<td><select name="coauthorlist">'.
+                  '<label for="coauthorlist">'.$titles{'coauthorlist'}.'</label></td>'.
+                  '<td><select name="coauthorlist" id="coauthorlist">'.
                   '<option value="none"'.$sel{'none'}.'>'.$options{'none'}.'</option>'.
                   '<option value="role"'.$sel{'role'}.'>'.$options{'role'}.'</option>'.
                   '<option value="all"'.$sel{'all'}.'>'.$options{'all'}.'</option>'.
@@ -333,12 +333,13 @@
                   &Apache::loncommon::end_data_table_row().
                   &Apache::loncommon::start_data_table_row().
                   '<td>'.$titles{'coauthoroptin'}.'</td>'.
-                  '<td><span class="LC_nobreak">'.
+                  '<td><fieldset class="LC_borderless"><legend class="LC_visually_hidden">'.
+                  $titles{'coauthoroptin'}.'</legend><span class="LC_nobreak">'.
                   '<label><input type="radio" name="coauthoroptin" value="0" '.
                   $checkedoff.' />'.$lt{'no'}.'</label>  '.
                   '<label><input type="radio" name="coauthoroptin" value="1" '.
                   $checkedon.' />'.$lt{'yes'}.'</label>'.
-                  '</span></td>'.
+                  '</span></fieldset></td>'.
                   &Apache::loncommon::end_data_table_row().
                   &Apache::loncommon::end_data_table().
                   '<br clear="all" />'.