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

raeburn raeburn at source.lon-capa.org
Tue May 12 00:04:38 EDT 2026


raeburn		Tue May 12 04:04:38 2026 EDT

  Modified files:              
    /loncom/interface	lonpickuser.pm 
  Log:
  - WCAG 2 compliance
    Include landmark for page's main content to support "Skip to main content".
    Sequential headings. 
  
  
Index: loncom/interface/lonpickuser.pm
diff -u loncom/interface/lonpickuser.pm:1.6 loncom/interface/lonpickuser.pm:1.7
--- loncom/interface/lonpickuser.pm:1.6	Mon Sep  5 01:46:08 2016
+++ loncom/interface/lonpickuser.pm	Tue May 12 04:04:37 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Search for a user
 #
-# $Id: lonpickuser.pm,v 1.6 2016/09/05 01:46:08 raeburn Exp $
+# $Id: lonpickuser.pm,v 1.7 2026/05/12 04:04:37 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -175,10 +175,11 @@
         $startargs->{'add_entries'} = { onload => 'javascript:setUserSearch();' };
     }
     $r->print(&Apache::loncommon::start_page('Selecting course personnel',
-                                             $js,$startargs));
+                                             $js,$startargs)
+             ."\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     if ($env{'form.caller'} eq 'checkusername') {
         $r->print(&check_user_form().
-                  &Apache::loncommon::end_page());
+                  '</div>'.&Apache::loncommon::end_page());
         return OK;
     }
     my %toset = (
@@ -231,7 +232,7 @@
         if ($cansearch) {
             
             $r->print(<<"ENDBLOCK");
-<h3>$headertext</h3>
+<h1 class="LC_heading_2">$headertext</h1>
 <form action="/adm/pickuser" method="post" name="userpicker">
 $opener_elems
 <input type="hidden" name="phase" value="get_user_info" />
@@ -322,7 +323,7 @@
                   &mt('Save').'" onclick="javascript:setphase('.
                   "'store_newuser'".');" /></form></div>');
     }
-    $r->print(&Apache::loncommon::end_page());
+    $r->print('</div>'.&Apache::loncommon::end_page());
     return OK;
 }
 




More information about the LON-CAPA-cvs mailing list