[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm lonpickauthor.pm lonuserutils.pm

[raeburn]

raeburn		Sat Jan 24 02:20:56 2026 EDT

  Modified files:              
    /loncom/interface	lonpickauthor.pm lonuserutils.pm loncommon.pm 
  Log:
  - WCAG 2.2 compliance
   - Include landmark for page's main content to support "Skip to main content"
   - Satisfy minimum size for touch targets.
  
  
Index: loncom/interface/lonpickauthor.pm
diff -u loncom/interface/lonpickauthor.pm:1.7 loncom/interface/lonpickauthor.pm:1.8
--- loncom/interface/lonpickauthor.pm:1.7	Wed Mar 15 20:18:06 2017
+++ loncom/interface/lonpickauthor.pm	Sat Jan 24 02:20:56 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Display authors in domain for selection of ad loc co-author role by Domain Coordinator. 
 #
-# $Id: lonpickauthor.pm,v 1.7 2017/03/15 20:18:06 raeburn Exp $
+# $Id: lonpickauthor.pm,v 1.8 2026/01/24 02:20:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -47,8 +47,9 @@
 
 # ------------------------------------------------------------ Print the screen
     $r->print(&Apache::loncommon::start_page("Selecting an Author",undef,
-                                             {'no_nav_bar' => 1}));
-
+                                             {'no_nav_bar' => 1}).
+              '<div class="LC_landmark" role="main" id="LC_main_content">'.
+              '<h1 class="LC_heading_2">'.&mt('Select Authoring Space').'</h1>');
 
     &Apache::loncommon::get_unprocessed_cgi
         ($ENV{'QUERY_STRING'},['form','roledom','sortby']);
@@ -124,7 +125,7 @@
     } else {
        $r->print(&mt('There are no author roles currently in domain: [_1], so there are no Authoring Spaces for which you can assume a co-author role.',$domdesc));
     }
-    $r->print(&Apache::loncommon::end_page());
+    $r->print('</div>'.&Apache::loncommon::end_page());
     return OK;
 }
 
Index: loncom/interface/lonuserutils.pm
diff -u loncom/interface/lonuserutils.pm:1.228 loncom/interface/lonuserutils.pm:1.229
--- loncom/interface/lonuserutils.pm:1.228	Fri Jan  9 02:22:38 2026
+++ loncom/interface/lonuserutils.pm	Sat Jan 24 02:20:56 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Utility functions for managing LON-CAPA user accounts
 #
-# $Id: lonuserutils.pm,v 1.228 2026/01/09 02:22:38 raeburn Exp $
+# $Id: lonuserutils.pm,v 1.229 2026/01/24 02:20:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3428,13 +3428,15 @@
         }
         $output .= "\n".'<div style="padding:0;clear:both;margin:0;border:0"></div>'."\n".
                   &Apache::loncommon::start_data_table().
-                  &Apache::loncommon::start_data_table_header_row();
+                  &Apache::loncommon::start_data_table_header_row('LC_pad_header');
         if ($mode eq 'autoenroll') {
             $output .= "
  <th><a href=\"javascript:document.$formname.sortby.value='type';document.$formname.submit();\">$lt{'type'}</a></th>
             ";
+        } elsif ($mode eq 'pickauthor') {
+            $output .= "\n<th>".&mt('select')."</th>\n";
         } else {
-            $output .= "\n".'<th>#</th>'."\n";
+            $output .= "\n<th>#</th>\n";
             if ($actionselect) {
                 $output .= '<th class="LC_nobreak" valign="top">'.&mt('select').'</th>'."\n";
             }
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1502 loncom/interface/loncommon.pm:1.1503
--- loncom/interface/loncommon.pm:1.1502	Fri Jan 23 21:18:08 2026
+++ loncom/interface/loncommon.pm	Sat Jan 24 02:20:56 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1502 2026/01/23 21:18:08 raeburn Exp $
+# $Id: loncommon.pm,v 1.1503 2026/01/24 02:20:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -8061,6 +8061,11 @@
   background-color: #FFFFFF;
 }
 
+table.LC_data_table tr.LC_pad_header > th {
+  padding-top: 4px;
+  padding-bottom: 4px;
+}
+
 table.LC_caption {
 }