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

[raeburn]

raeburn		Tue Jan 20 18:45:04 2026 EDT

  Modified files:              
    /loncom/interface	lonhtmlcommon.pm 
  Log:
  - WCAG 2 compliance
    Include id attribute for roles and status select boxes used in membership 
    selection list criteria for new group to facilitate labelling. 
  
  
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.428 loncom/interface/lonhtmlcommon.pm:1.429
--- loncom/interface/lonhtmlcommon.pm:1.428	Tue Jan 13 04:11:54 2026
+++ loncom/interface/lonhtmlcommon.pm	Tue Jan 20 18:45:04 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.428 2026/01/13 04:11:54 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.429 2026/01/20 18:45:04 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2589,7 +2589,7 @@
         $output = &row_title($title,$css_class);
     }
     $output .= qq|
-                                  <select name="roles" multiple="multiple">\n|;
+                                  <select name="roles" id="roles" multiple="multiple">\n|;
     foreach my $role (@$roles) {
         my $plrole;
         if ($role eq 'ow') {
@@ -2736,7 +2736,7 @@
         $output = &row_title($title,$css_class,'LC_pick_box_select');
     }
     $output .= qq|
-                                    <select name="types" multiple="multiple">\n|;
+                                    <select name="types" id="types" multiple="multiple">\n|;
     foreach my $status_type (sort(keys(%{$types}))) {
         $output .= '  <option value="'.$status_type.'">'.$$types{$status_type}.'</option>';
     }