[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm rat lonpage.pm

[raeburn]

raeburn		Wed Mar 19 14:44:04 2025 EDT

  Modified files:              
    /rat	lonpage.pm 
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - WCAG 2 compliance. 
    Remove role="main" attribute when displaying LON-CAPA resource within 
    composite page, or when previewing when browsing/searching /res/ or
    when rendering student's view of problem in grading etc.
  
  
Index: rat/lonpage.pm
diff -u rat/lonpage.pm:1.144 rat/lonpage.pm:1.145
--- rat/lonpage.pm:1.144	Mon Sep 11 13:26:26 2023
+++ rat/lonpage.pm	Wed Mar 19 14:44:03 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Page Handler
 #
-# $Id: lonpage.pm,v 1.144 2023/09/11 13:26:26 raeburn Exp $
+# $Id: lonpage.pm,v 1.145 2025/03/19 14:44:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -424,6 +424,7 @@
 		              }
                               my $output=Apache::lonnet::ssi($src,%posthash);
 			      $output=~s|//(\s*<!--)? BEGIN LON-CAPA Internal.+?// END LON-CAPA Internal\s*(-->)?\s||gs;
+                              $output=~s{\Q<div class="LC_landmark" role="main">\E}{<div class="LC_landmark">}gs;
                               if (($target eq 'tex') || ($target eq 'tex_answer')) {
 				  $output =~ s/^([^&]+)\\begin\{document}//;
 				  $output =~ s/\\end\{document}//;
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1536 loncom/lonnet/perl/lonnet.pm:1.1537
--- loncom/lonnet/perl/lonnet.pm:1.1536	Tue Feb 18 19:30:43 2025
+++ loncom/lonnet/perl/lonnet.pm	Wed Mar 19 14:44:04 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1536 2025/02/18 19:30:43 raeburn Exp $
+# $Id: lonnet.pm,v 1.1537 2025/03/19 14:44:04 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3734,6 +3734,7 @@
     $output=~s|//(\s*<!--)? BEGIN LON-CAPA Internal.+?// END LON-CAPA Internal\s*(-->)?\s||gs;
     $output=~s/^.*?\<body[^\>]*\>//si;
     $output=~s/\<\/body\s*\>.*?$//si;
+    $output=~s{\Q<div class="LC_landmark" role="main">\E}{<div>}gs;
     if (wantarray) {
         return ($output, $response);
     } else {