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

[raeburn]

raeburn		Sat Jan 24 18:29:11 2026 EDT

  Modified files:              
    /loncom/interface	lonmenu.pm 
  Log:
  - WCAG 2 compliance: alt attribute for Countdown Timer icon
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.568 loncom/interface/lonmenu.pm:1.569
--- loncom/interface/lonmenu.pm:1.568	Sat Dec 13 13:33:33 2025
+++ loncom/interface/lonmenu.pm	Sat Jan 24 18:29:10 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.568 2025/12/13 13:33:33 raeburn Exp $
+# $Id: lonmenu.pm,v 1.569 2026/01/24 18:29:10 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3642,7 +3642,7 @@
             (!$duedate && $hastimeleft) ||
             ($slot_name ne '' && $slothastime) ||
             (($duedate < time) && ($overduedate > time))) {
-            my ($collapse,$expand,$alttxt,$title,$currdisp,$donebutton);
+            my ($collapse,$expand,$title,$currdisp,$donebutton);
             if ((@interval > 1 && $hastimeleft) ||
                 ($type eq 'Task' && $slothastime)) {
                 $currdisp = 'inline';
@@ -3657,9 +3657,9 @@
                 $expand = '◄ ';
             }
             unless ($env{'environment.icons'} eq 'iconsonly') {
-                $alttxt = &mt('Timer');
-                $title = $alttxt.' ';
+                $title = &mt('Timer').' ';
             }
+            my $alttxt = &mt('Timer icon');
             my $desc = &mt('Countdown to due date/time');
             if (($duedate < time) && ($overduedate > time)) {
                 $desc = &mt('Countdown to end of grace period');