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

[raeburn]

raeburn		Sat Dec 27 23:11:00 2025 EDT

  Modified files:              
    /loncom/interface/statistics	lonsubmissiontimeanalysis.pm 
  Log:
  - WCAG 2 compliance.
    - Headings descend sequentially
    - Include labels for form elements
  
  
Index: loncom/interface/statistics/lonsubmissiontimeanalysis.pm
diff -u loncom/interface/statistics/lonsubmissiontimeanalysis.pm:1.38 loncom/interface/statistics/lonsubmissiontimeanalysis.pm:1.39
--- loncom/interface/statistics/lonsubmissiontimeanalysis.pm:1.38	Wed Nov 18 15:31:40 2020
+++ loncom/interface/statistics/lonsubmissiontimeanalysis.pm	Sat Dec 27 23:11:00 2025
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonsubmissiontimeanalysis.pm,v 1.38 2020/11/18 15:31:40 raeburn Exp $
+# $Id: lonsubmissiontimeanalysis.pm,v 1.39 2025/12/27 23:11:00 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -90,7 +90,7 @@
 #           &mt('Graph Problem Submission Times').'" />';
             &mt('Generate Graph').'" />';
         $r->print($submit_button.' 'x5);
-        $r->print('<h3>'.&mt('Please select a problem to analyze').'</h3>');
+        $r->print('<h2 class="LC_heading_2">'.&mt('Please select a problem to analyze').'</h2>');
         $r->print(&Apache::lonstathelpers::problem_selector('.',
                                                             $submit_button));
     } else {
@@ -125,8 +125,8 @@
                      .'</div>'
             );
         } else {
-            $r->print('<h1>'.$resource->compTitle.'</h1>');
-            $r->print('<h3>'.$resource->src.'</h3>');
+            $r->print('<h1 class="LC_heading_1">'.$resource->compTitle.'</h1>');
+            $r->print('<h2 class="LC_heading_2">'.$resource->src.'</h2>');
             $r->print('<p>'.
                  &Apache::lonstatistics::section_and_enrollment_description().
                       '</p>');
@@ -282,7 +282,7 @@
     }
     #
     # Build the data table
-    $htmltable = '<br><h3>'.&mt('Student submission data').'</h3><p>'.
+    $htmltable = '<br /><h3>'.&mt('Student submission data').'</h3><div>'.
         &Apache::loncommon::start_data_table().
         &Apache::loncommon::start_data_table_header_row().
         &Apache::loncommon::start_data_table_row().
@@ -323,7 +323,7 @@
                &Apache::loncommon::end_data_table_row().$/;
         }
     }
-    $htmltable .= '</tbody>'.&Apache::loncommon::end_data_table().'</p>';
+    $htmltable .= '</tbody>'.&Apache::loncommon::end_data_table().'</div>';
     #
     # Build the plot
     my $title = '';#'Number of Submissions and Number Correct';
@@ -407,32 +407,32 @@
     ##
     ## Build the menu
     my $Str = '';
-    $Str .= '<p>';
+    $Str .= '<div>';
     $Str .= &Apache::loncommon::start_data_table();
     $Str .= &Apache::loncommon::start_data_table_header_row();
-    $Str .= '<th>'.&mt('Sections').'</th>';
-    $Str .= '<th>'.&mt('Groups').'</th>';
-    $Str .= '<th>'.&mt('Access Status').'</th>';
+    $Str .= '<th><label for="Section">'.&mt('Sections').'</label></th>';
+    $Str .= '<th><label for="Group">'.&mt('Groups').'</label></th>';
+    $Str .= '<th><label for="Status">'.&mt('Access Status').'</label></th>';
     $Str .= &Apache::loncommon::end_data_table_header_row();
     ##
     ## 
     $Str .= &Apache::loncommon::start_data_table_row();
     $Str .= '<td align="center">'."\n";
-    $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',4);
+    $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',4,'Section');
     $Str .= '</td>';
     #
     $Str .= '<td align="center">'."\n";
-    $Str .= &Apache::lonstatistics::GroupSelect('Group','multiple',4);
+    $Str .= &Apache::lonstatistics::GroupSelect('Group','multiple',4,'Group');
     $Str .= '</td>';
     #
     $Str .= '<td align="center">';
-    $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,4);
+    $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,4,'','','Status');
     $Str .= '</td>';
     #
     $Str .= &Apache::loncommon::end_data_table_row();
     $Str .= &Apache::loncommon::end_data_table();
     #
-    $Str .= '</p>';
+    $Str .= '</div>';
     ##
     return $Str;
 }