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

raeburn raeburn at source.lon-capa.org
Mon Feb 17 21:51:32 EST 2025


raeburn		Tue Feb 18 02:51:32 2025 EDT

  Modified files:              
    /loncom/interface	lonhtmlcommon.pm 
  Log:
  - WCAG 2 compliance. When text in header cell is only included for screen 
    readers, do not append :
  
  
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.416 loncom/interface/lonhtmlcommon.pm:1.417
--- loncom/interface/lonhtmlcommon.pm:1.416	Fri Feb 14 22:42:05 2025
+++ loncom/interface/lonhtmlcommon.pm	Tue Feb 18 02:51:32 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.416 2025/02/14 22:42:05 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.417 2025/02/18 02:51:32 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2489,7 +2489,7 @@
 }
 
 sub row_title {
-    my ($title,$css_title_class,$css_value_class,$css_value_furtherAttributes) = @_;
+    my ($title,$css_title_class,$css_value_class,$css_value_furtherAttributes,$nocolon) = @_;
     $row_count[0]++;
     my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';
     $css_title_class ||= 'LC_pick_box_title';
@@ -2497,7 +2497,7 @@
 
     $css_value_class ||= 'LC_pick_box_value';
 
-    if ($title ne '') {
+    if (($title ne '')  && (!$nocolon)) {
         $title .= ':';
     }
     my $output = <<"ENDONE";




More information about the LON-CAPA-cvs mailing list