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

[raeburn]

raeburn		Fri Jun 26 15:45:02 2026 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  - WCAG 2 compliance for discussion posts export screen
    Include landmark for page's main content to support "Skip to main content".
    Include heading structure.
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.399 loncom/interface/lonfeedback.pm:1.400
--- loncom/interface/lonfeedback.pm:1.399	Sun Jun 21 17:18:12 2026
+++ loncom/interface/lonfeedback.pm	Fri Jun 26 15:45:02 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.399 2026/06/21 17:18:12 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.400 2026/06/26 15:45:02 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -529,12 +529,14 @@
         }
         my $currdepth = 0;
         my $firstidx = $alldiscussion{$showposts[0]};
-        if (@showposts) {
-            $discussion.= '<div class="LC_grid_row" role="row" style="margin: 0; width: 100%;">'.
-                          '<div class="LC_grid_cell" role="gridcell" style="margin: 0; width: 100%;">';
+        unless (($outputtarget eq 'export') || ($outputtarget eq 'tex')) {
+            if (@showposts) {
+                $discussion.= '<div class="LC_grid_row" role="row" style="margin: 0; width: 100%;">'.
+                              '<div class="LC_grid_cell" role="gridcell" style="margin: 0; width: 100%;">';
+            }
         }
         my ($doindent,$prevdepth);
-        unless ($outputtarget eq 'tex') {
+        unless (($outputtarget eq 'tex') || ($outputtarget eq 'export')) {
             if (($sortposts eq 'thread') ||
                 (($sortposts eq '') && (!$env{'environment.unthreadeddiscussion'}))) {
                 $doindent = 1;
@@ -629,7 +631,7 @@
 	    }
         }
         if (@showposts) {
-            unless ($outputtarget eq 'tex') {
+            unless (($outputtarget eq 'tex') || ($outputtarget eq 'export')) {
                 if ($doindent) {
                     for (0..$prevdepth) {
                         $discussion.= '</li></ul>';
@@ -637,8 +639,8 @@
                 } else {
                     $discussion.= '</ul>';
                 }
+                $discussion.= '</div></div>';
             }
-            $discussion.= '</div></div>';
         }
 	unless ($outputtarget eq 'tex' || $outputtarget eq 'export') {
             $discussion .= <<END;
@@ -4667,12 +4669,16 @@
           $mode='problem';
           $status=$Apache::inputtags::status[-1];
       }
-       
+      my %lt = &Apache::lonlocal::texthash(
+          'dipe' => 'Discussion Posting Export',
+      );
       my $discussion = &list_discussion($mode,$status,$symb); 
       my $start_page = 
-	  &Apache::loncommon::start_page('Resource Feedback and Discussion');
+	  &Apache::loncommon::start_page('Resource Feedback and Discussion').
+          '<div class="LC_landmark" role="main" id="LC_main_content">'.
+          '<h1 class="LC_heading_3">'.$lt{'dipe'}.'</h1>';
       my $end_page = 
-	  &Apache::loncommon::end_page();
+	  '</div>'.&Apache::loncommon::end_page();
       $r->print($start_page.$discussion.$end_page);
       return OK;