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

[raeburn]

raeburn		Thu Mar 20 17:59:20 2025 EDT

  Modified files:              
    /loncom/interface	slotrequest.pm 
  Log:
  - WCAG 2 compliance.
  
  
Index: loncom/interface/slotrequest.pm
diff -u loncom/interface/slotrequest.pm:1.149 loncom/interface/slotrequest.pm:1.150
--- loncom/interface/slotrequest.pm:1.149	Thu Mar 20 15:46:05 2025
+++ loncom/interface/slotrequest.pm	Thu Mar 20 17:59:20 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler for requesting to have slots added to a students record
 #
-# $Id: slotrequest.pm,v 1.149 2025/03/20 15:46:05 raeburn Exp $
+# $Id: slotrequest.pm,v 1.150 2025/03/20 17:59:20 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2331,8 +2331,8 @@
                             $arrowstate = 'closed';
                         }
                         $row .= '<td>'.$spacers.'<img src="/adm/lonIcons/arrow.'.$arrowstate.'.gif" '.
-                                'id="arrow'.$mapnum.'" '.'alt="arrow" onmouseover="this.style.cursor=\'pointer\'" '.
-                                'onclick="'."toggleSlotMap('$mapnum','$rownum');".'" />'.
+                                'id="arrow'.$mapnum.'" '.'alt="arrow" onmouseover="this.style.cursor=\'pointer\'" tabindex="0" '.
+                                'onclick="'."toggleSlotMap('$mapnum','$rownum');".'" onkeydown="'."toggleSlotMap('$mapnum','$rownum');".'" />'.
                                 $icon.(' ' x6).'</td>'."\n";
                         if (ref($output{$currmap}) eq 'HASH') {
                             my $formnum = $mapnum.'_'.$reservable+1;