[LON-CAPA-cvs] cvs: loncom /interface courseprefs.pm rat lonratmenu.pm

raeburn raeburn at source.lon-capa.org
Sat Jan 10 06:39:16 EST 2026


raeburn		Sat Jan 10 11:39:16 2026 EDT

  Modified files:              
    /rat	lonratmenu.pm 
    /loncom/interface	courseprefs.pm 
  Log:
  - WCAG 2 compliance
    - Include sequential headings starting with <h1>. 
  
  
Index: rat/lonratmenu.pm
diff -u rat/lonratmenu.pm:1.18.8.4.2.1 rat/lonratmenu.pm:1.18.8.4.2.2
--- rat/lonratmenu.pm:1.18.8.4.2.1	Fri May 27 18:00:59 2022
+++ rat/lonratmenu.pm	Sun May 29 12:38:12 2022
@@ -2,7 +2,7 @@
 # Build menu bar for Advanced RAT. Uses javascript code originally in
 # static file: rat/client/code.html, now in  rat/client/ratcode.js  
 #
-# $Id: lonratmenu.pm,v 1.18.8.4.2.1 2022/05/27 18:00:59 raeburn Exp $
+# $Id: lonratmenu.pm,v 1.18.8.4.2.2 2022/05/29 12:38:12 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -146,7 +146,8 @@
             'Advanced Editor',
             $js,
             {'add_entries' => \%loaditem,
-             'bread_crumbs' => $brcrum,})
+             'bread_crumbs' => $brcrum,
+             'links_target' => '_parent',})
 
        .&Apache::loncommon::head_subbox(
             &Apache::loncommon::CSTR_pageheader('',$frameset)
Index: loncom/interface/courseprefs.pm
diff -u loncom/interface/courseprefs.pm:1.138 loncom/interface/courseprefs.pm:1.139
--- loncom/interface/courseprefs.pm:1.138	Tue Jan  6 16:42:02 2026
+++ loncom/interface/courseprefs.pm	Sat Jan 10 11:39:16 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set configuration settings for a course
 #
-# $Id: courseprefs.pm,v 1.138 2026/01/06 16:42:02 raeburn Exp $
+# $Id: courseprefs.pm,v 1.139 2026/01/10 11:39:16 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4662,8 +4662,8 @@
     &Apache::lonrelrequtils::init_global_hashes();
     if (defined($Apache::lonrelrequtils::checkcrstypes{$crstype})) {
         ($reqdmajor,$reqdminor) = split(/\./,$Apache::lonrelrequtils::checkcrstypes{$crstype});
-        $output .= '<h4>'.&mt('Course type: [_1] requires [_2] or newer',$crstype,
-                              $Apache::lonrelrequtils::checkcrstypes{$crstype}).'</h4>';
+        $output .= '<h2 class="LC_heading_3">'.&mt('Course type: [_1] requires [_2] or newer',$crstype,
+                              $Apache::lonrelrequtils::checkcrstypes{$crstype}).'</h2>';
     }
     my (%fromparam,%rowspan,%bymap,%byresource, at scopeorder,%toshow,%allmaps,
         %byresponsetype,%bysubmission,%fromblocks,%bycrsrestype);
@@ -4826,7 +4826,7 @@
             }
         }
         if (keys(%fromparam)) {
-            $output .= '<h4>'.&mt('Requirements from general settings').'</h4>'.
+            $output .= '<h2 class="LC_heading_3">'.&mt('Requirements from general settings').'</h2>'.
                        &Apache::loncommon::start_data_table().
                        &Apache::loncommon::start_data_table_header_row().
                        '<th>'.&mt('Release').'</th><th>'.&mt('Scope').'</th>'.
@@ -4909,7 +4909,7 @@
                        printout => 'Printout generation',
                        timer    => 'Timed quiz trigger',
                      );
-            $output .= '<h4>'.&mt('Requirements from exam blocking').'</h4>'.
+            $output .= '<h2 class="LC_heading_3>'.&mt('Requirements from exam blocking').'</h2>'.
                        &Apache::loncommon::start_data_table().
                        &Apache::loncommon::start_data_table_header_row().
                        '<th>'.&mt('Release').'</th><th>'.&mt('Setting').'</th>'.
@@ -5044,14 +5044,14 @@
         }
     }
     my $supptools = &Apache::lonnet::count_supptools($cnum,$cdom,1,1);
-    my $mapres_header = '<h4>'.
+    my $mapres_header = '<h2 class="LC_heading_3">'.
                         &mt('Requirements for specific folders or resources').
-                        '</h4>';
+                        '</h2>';
     if ((keys(%toshow) > 0) || (keys(%byresource) > 0) || 
         (keys(%bysubmission) > 0) || (keys(%byresponsetype))) {
         $output .= $mapres_header;
     }
-    my $top_header = '<h3>'.&mt('LON-CAPA version dependencies').'</h3>';
+    my $top_header = '<h1 class="LC_heading_2">'.&mt('LON-CAPA version dependencies').'</h1>';
     my $title = 'Version Constraints';
     my $start_page =
         &Apache::loncommon::start_page($title,undef,{'only_body' => 1,});




More information about the LON-CAPA-cvs mailing list