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

[raeburn]

raeburn		Tue May  5 19:21:46 2026 EDT

  Modified files:              
    /loncom/interface	lonannounce.pm 
  Log:
  - WCAG 2.2 compliance: include labels for form elements.
  
  
Index: loncom/interface/lonannounce.pm
diff -u loncom/interface/lonannounce.pm:1.90 loncom/interface/lonannounce.pm:1.91
--- loncom/interface/lonannounce.pm:1.90	Sat Apr 18 00:38:11 2026
+++ loncom/interface/lonannounce.pm	Tue May  5 19:21:46 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Announce
 #
-# $Id: lonannounce.pm,v 1.90 2026/04/18 00:38:11 raeburn Exp $
+# $Id: lonannounce.pm,v 1.91 2026/05/05 19:21:46 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -610,9 +610,9 @@
         }
 	$r->print('<form name="serveranno" method="post" action="">'
                  .'<h2>'.&mt('Post Server Announcements').'</h2>'
-                 .&mt('Post announcements to the system login and roles screen').'<br />'
+                 .'<label for="serverannnounce">'.&mt('Post announcements to the system login and roles screen').'</label><br />'
                  .'<i>'.&mt('(leave blank to delete announcement)').'</i><br />'
-                 .'<textarea name="serverannnounce" cols="60" rows="5"></textarea><br />'
+                 .'<textarea name="serverannnounce" id="serverannnounce" cols="60" rows="5"></textarea><br />'
                  .&mt('Check machines:').'<br />'
         );
 # list servers