[LON-CAPA-cvs] cvs: loncom /xml lonxml.pm

[raeburn]

raeburn		Wed Feb 19 23:39:39 2025 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  - WCAG 2 compliance.
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.576 loncom/xml/lonxml.pm:1.577
--- loncom/xml/lonxml.pm:1.576	Sat Nov 16 02:43:50 2024
+++ loncom/xml/lonxml.pm	Wed Feb 19 23:39:38 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module
 #
-# $Id: lonxml.pm,v 1.576 2024/11/16 02:43:50 raeburn Exp $
+# $Id: lonxml.pm,v 1.577 2025/02/19 23:39:38 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1890,12 +1890,19 @@
     my $result = '';
     my $filecontents=&Apache::lonnet::getfile($file);
     if ($filecontents eq -1) {
-	my $start_page=&Apache::loncommon::start_page('File Error');
-	my $end_page=&Apache::loncommon::end_page();
-        my $errormsg='<p class="LC_error">'
-                    .&mt('File not found: [_1]'
-                        ,'<span class="LC_filename">'.$file.'</span>')
-                    .'</p>';
+	my ($start_page,$end_page,$errormsg);
+	$start_page=&Apache::loncommon::start_page('File Error');
+	if ($target eq 'web') {
+	    $start_page .= '<div class="LC_landmark" style="clear:both" role="menu">'.
+	                   '<h1 class="LC_visually_hidden">'.
+	                   &mt('File not found').'</h1>';
+	    $end_page = '</div>';
+	}
+	$end_page .= &Apache::loncommon::end_page();
+	$errormsg='<p class="LC_error">'
+	         .&mt('File not found: [_1]'
+	             ,'<span class="LC_filename">'.$file.'</span>')
+	         .'</p>';
 	$result=(<<ENDNOTFOUND);
 $start_page
 $errormsg