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

[raeburn]

raeburn		Wed Sep 11 05:20:52 2024 EDT

  Modified files:              
    /loncom/interface	lonwhatsnew.pm 
  Log:
  - WCAG 2 compliance
  
  
Index: loncom/interface/lonwhatsnew.pm
diff -u loncom/interface/lonwhatsnew.pm:1.129 loncom/interface/lonwhatsnew.pm:1.130
--- loncom/interface/lonwhatsnew.pm:1.129	Sun Dec 13 02:00:49 2020
+++ loncom/interface/lonwhatsnew.pm	Wed Sep 11 05:20:52 2024
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # What's New in a course
 #
-# $Id: lonwhatsnew.pm,v 1.129 2020/12/13 02:00:49 raeburn Exp $
+# $Id: lonwhatsnew.pm,v 1.130 2024/09/11 05:20:52 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -769,13 +769,18 @@
         my $onchange = 'onfocus="javascript:window.document.forms'.
               "['thresholdform'].elements['".$parameter."_setparmval']".
               '.checked=true;"';
+        my $aria_textbox = ' aria-label="'.&mt('Threshold value for [_1]',
+                                               $threshold_titles{$type}).'"';
+        my $aria_checkbox = ' aria-label="'.&mt('Change threshold value for [_1]',
+                                                $threshold_titles{$type}).'"';
         $r->print(&Apache::loncommon::start_data_table_row()."\n".
                  '<td>'.$threshold_titles{$type}.'</td>'."\n".
                  '<td>'.&Apache::lonhtmlcommon::textbox($parameter.'_value',
                                             $threshold{$type},
-                                            10,$onchange).'</td>'."\n".
+                                            10,$onchange.$aria_textbox).'</td>'."\n".
                  '<td>'.
-                 &Apache::lonhtmlcommon::checkbox($parameter.'_setparmval').
+                 &Apache::lonhtmlcommon::checkbox($parameter.'_setparmval',
+                                                  '','',$aria_checkbox).
                  '</td>'."\n".
                  &Apache::loncommon::end_data_table_row());
     }
@@ -829,7 +834,7 @@
 <input type="hidden" name="intervaltype" value="'.$context.'" />
 <input type="hidden" name="refpage" value="'.$refpage.'" />'.
 &mt('Display:').' 
-<select name="interval">
+<select name="interval" aria-label="'.&mt('Choose time window').'">
 <option value="" selected="selected">'.&mt('Select').'</option>
 ');
     if (ref($interval_titles) eq 'HASH') {
@@ -1250,8 +1255,10 @@
                      <td>'.$stats{$part}{degdiff}.'</td>
                      <td>'.$lastreset{$part}.'</td>';
                 if ($checkallowed->{'resetcounters'}) {
+                    my $aria = ' aria-label="'.&mt('Reset counter for [_1] (part [_2])',
+                                                  $$triggered{$symb}{title},$part).'"';
                     $$triggered{$symb}{text}[$partcount] .=
-                        '<td><input type="checkbox" name="'.$resetname.'" />'.
+                        '<td><input type="checkbox" name="'.$resetname.'"'.$aria.' />'.
                         '<input type="hidden" name="'.$resettitle.'" value="'.&escape($$triggered{$symb}{title}).'" /></td>';
                 }
                 $partcount ++;