[LON-CAPA-cvs] cvs: loncom /interface printout.pl

[raeburn]

raeburn		Sat Jun 27 23:24:14 2026 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  - WCAG 2 compliance: support "Skip to main content" link.
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.182 loncom/interface/printout.pl:1.183
--- loncom/interface/printout.pl:1.182	Thu Mar 26 02:49:57 2026
+++ loncom/interface/printout.pl	Sat Jun 27 23:24:14 2026
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
 #
-# $Id: printout.pl,v 1.182 2026/03/26 02:49:57 raeburn Exp $
+# $Id: printout.pl,v 1.183 2026/06/27 23:24:14 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -221,6 +221,7 @@
 print(&Apache::loncommon::start_page('Creating PDF',
                                      undef,
                                      {'bread_crumbs' => $brcrum,}));
+print('<div class="LC_landmark" role="main" id="LC_main_content">');
 
 my $identifier = $ENV{'QUERY_STRING'};
 my $texfile = $env{'cgi.'.$identifier.'.file'};
@@ -790,7 +791,7 @@
     }
     if ($advanced_role) { &Apache::lonhtmlcommon::Close_PrgWin('',\%zip_prog_state); }
 }
-print(&Apache::loncommon::end_page());
+print('</div>'.&Apache::loncommon::end_page());
 my $done;
 
 sub REAPER {