[LON-CAPA-cvs] cvs: loncom /publisher testbankimport.pm

raeburn raeburn at source.lon-capa.org
Mon Apr 27 14:41:42 EDT 2026


raeburn		Mon Apr 27 18:41:42 2026 EDT

  Modified files:              
    /loncom/publisher	testbankimport.pm 
  Log:
  - WCAG 2 compliance
    Include landmark for page's main content to support "Skip to main content"
  
  
Index: loncom/publisher/testbankimport.pm
diff -u loncom/publisher/testbankimport.pm:1.47 loncom/publisher/testbankimport.pm:1.48
--- loncom/publisher/testbankimport.pm:1.47	Mon Apr 27 18:12:14 2026
+++ loncom/publisher/testbankimport.pm	Mon Apr 27 18:41:42 2026
@@ -1,5 +1,5 @@
 # Handler for parsing text upload problem descriptions into .problems
-# $Id: testbankimport.pm,v 1.47 2026/04/27 18:12:14 raeburn Exp $
+# $Id: testbankimport.pm,v 1.48 2026/04/27 18:41:42 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1815,7 +1815,8 @@
     }
     my $output = &Apache::loncommon::start_page($title,$javascript,
                                              {'bread_crumbs' => $brcrum,
-                                              'add_entries' => $loadentries});
+                                              'add_entries' => $loadentries})
+                ."\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n";
     unless ($crsauthor) {
         if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {
             $output .= '<p class="LC_info">'
@@ -1978,7 +1979,7 @@
     } else {
         &Apache::lonupload::phaseone($r,$fn,'testbank',$uname,$udom);
     }
-    $r->print(&Apache::loncommon::end_page());
+    $r->print('</div>'.&Apache::loncommon::end_page());
     return OK;
 }
 




More information about the LON-CAPA-cvs mailing list