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

[raeburn]

raeburn		Wed Apr 29 16:59:22 2026 EDT

  Modified files:              
    /loncom/interface	loncreateuser.pm 
  Log:
  - WCAG 2 compliance for screen displaying user access records.
    Include labels for form elements.
    Replace use of <table> for layout with <div>.
    Sequential headings.
  
  
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.493 loncom/interface/loncreateuser.pm:1.494
--- loncom/interface/loncreateuser.pm:1.493	Wed Apr 29 14:53:14 2026
+++ loncom/interface/loncreateuser.pm	Wed Apr 29 16:59:22 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.493 2026/04/29 14:53:14 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.494 2026/04/29 16:59:22 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -8462,12 +8462,12 @@
     my ($nav_script,$nav_links);
 
 # table header
-    my $heading = '<h3>'.
+    my $heading = '<h2 class="LC_heading_2">'.
         &mt('User access logs for: [_1]',
-            &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$udom),$uname,$udom)).'</h3>';
+            &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$udom),$uname,$udom)).'</h2>';
     my $tableheader = $heading
        .&Apache::loncommon::start_data_table_header_row()
-       .'<th> </th>'
+       .'<th>#</th>'
        .'<th>'.&mt('When').'</th>'
        .'<th>'.&mt('HostID').'</th>'
        .'<th>'.&mt('Event').'</th>'
@@ -8631,11 +8631,12 @@
 sub activity_display_filter {
     my ($formname,$curr) = @_;
     my $nolink = 1;
-    my $output = '<table><tr><td valign="top">'.
-                 '<span class="LC_nobreak"><b>'.&mt('Actions/page:').'</b></span><br />'.
-                 &Apache::lonmeta::selectbox('show',$curr->{'show'},'','',undef,
+    my $output = '<div class="LC_left_float" style="padding: 0; vertical-align: top">'.
+                 '<span class="LC_nobreak"><b><label for="show">'.
+                 &mt('Actions/page:').'</b></span><br />'.
+                 &Apache::lonmeta::selectbox('show',$curr->{'show'},'','show',undef,
                                               (&mt('all'),5,10,20,50,100,1000,10000)).
-                 '</td><td>  </td>';
+                 '</div>';
     my $startform =
         &Apache::lonhtmlcommon::date_setter($formname,'accesslog_start_date',
                                             $curr->{'accesslog_start_date'},undef,
@@ -8649,15 +8650,22 @@
                                           Role     => 'Role selection',
                                           log      => 'Log-in or Logout',
     );
-    $output .= '<td valign="top"><b>'.&mt('Window during which actions occurred:').'</b><br />'.
-               '<table><tr><td>'.&mt('After:').
-               '</td><td>'.$startform.'</td></tr>'.
-               '<tr><td>'.&mt('Before:').'</td>'.
-               '<td>'.$endform.'</td></tr></table>'.
-               '</td>'.
-               '<td>  </td>'.
-               '<td valign="top"><b>'.&mt('Activities').'</b><br />'.
-               '<select name="activity"><option value="any"';
+    $output .= '<div class="LC_left_float" style="padding: 0 2px 0 0; vertical-align: top">'.
+               '<b>'.&mt('Window during which actions occurred:').'</b>'.
+               '<div style="padding-top: 0; margin-top:0; vertical-align: top" role="grid" class="LC_grid">'.
+               '<div role="row" class="LC_grid_row">'.
+               '<div role="gridcell" class="LC_grid_cell">'.
+               &mt('After:').'</div>'.
+               '<div role="gridcell" class="LC_grid_cell">'.$startform.'</div>'.
+               '</div>'.
+               '<div role="row" class="LC_grid_row">'.
+               '<div role="gridcell" class="LC_grid_cell">'.
+               &mt('Before:').'</div>'.
+               '<div role="gridcell" class="LC_grid_cell">'.$endform.'</div>'.
+               '</div></div></div>'.
+               '<div class="LC_left_float" style="padding: 0; vertical-align: top">'.
+               '<b><label for="activity">'.&mt('Activities').'</label></b><br />'.
+               '<select name="activity" id="activity"><option value="any"';
     if ($curr->{'activity'} eq 'any') {
         $output .= ' selected="selected"';
     }
@@ -8669,10 +8677,9 @@
         }
         $output .= '<option value="'.$activity.'"'.$selstr.'>'.$lt{$activity}.'</option>';
     }
-    $output .= '</select></td>'.
-               '</tr></table>';
+    $output .= '</select></div>';
     # Update Display button
-    $output .= '<p>'
+    $output .= '<div style="padding:0;clear:both;margin:0;border:0"></div><p>'
               .'<input type="submit" value="'.&mt('Update Display').'" />'
               .'</p><hr />';
     return $output;