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

[raeburn]

raeburn		Tue Feb 25 05:34:59 2025 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - WCAG 2 compliance.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1462 loncom/interface/loncommon.pm:1.1463
--- loncom/interface/loncommon.pm:1.1462	Fri Feb 21 20:55:17 2025
+++ loncom/interface/loncommon.pm	Tue Feb 25 05:34:58 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1462 2025/02/21 20:55:17 raeburn Exp $
+# $Id: loncommon.pm,v 1.1463 2025/02/25 05:34:58 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -19063,7 +19063,7 @@
 sub check_release_result {
     my ($switchwarning,$switchserver) = @_;
     my $output = &start_page('Selected course unavailable on this server').
-                 '<p class="LC_warning">';
+                 '<div class="LC_landmark" role="main"><p class="LC_warning">';
     if ($switchwarning) {
         $output .= $switchwarning.'<br /><a href="/adm/roles">';
         if (&show_course()) {
@@ -19079,7 +19079,7 @@
                    &mt('Switch Server').
                    '</a>';
     }
-    $output .= '</p>'.&end_page();
+    $output .= '</p></div>'.&end_page();
     return $output;
 }
 
@@ -19696,7 +19696,7 @@
             $output = '<input type="hidden" name="crypt" value="'.$md5sum.'" />'."\n".
                       '<span class="LC_nobreak">'.
                       '<label>'.&mt('Type in the letters/numbers shown below').' '.
-                      '<input type="text" size="5" name="code" value="" autocomplete="new-password" />'.
+                      '<input type="text" size="5" name="code" value="" autocomplete="new-password" aria-required="true" />'.
                       '</label></span><br />'.
                       '<img src="'.$captcha_params{'www_output_dir'}.'/'.$md5sum.'.png" alt="captcha" />';
             last;