[LON-CAPA-cvs] cvs: loncom /homework grades.pm

[raeburn]

raeburn		Mon May  4 21:29:30 2026 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - WCAG 2 compliance for "Send bubblesheet data to a course" page.
    Include landmark for page's main content to support "Skip to main content".
    Include labels for form elements.
    Sequential headings.
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.830 loncom/homework/grades.pm:1.831
--- loncom/homework/grades.pm:1.830	Wed Dec 24 14:44:25 2025
+++ loncom/homework/grades.pm	Mon May  4 21:29:30 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.830 2025/12/24 14:44:25 raeburn Exp $
+# $Id: grades.pm,v 1.831 2026/05/04 21:29:30 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -11353,16 +11353,16 @@
     '.$formatjs.'
 '));
     $r->print('
-<h3>'.&mt('Send bubblesheet data to a course').'</h3>
+<h2 class="LC_heading_2">'.&mt('Send bubblesheet data to a course').'</h2>
 
 <form enctype="multipart/form-data" action="/adm/grades" name="rules" method="post">
 '.$default_form_data.
   &Apache::lonhtmlcommon::start_pick_box().
-  &Apache::lonhtmlcommon::row_title(&mt('Course ID')).
-  '<input name="courseid" type="text" size="30" />'.$select_link.
+  &Apache::lonhtmlcommon::row_title('<label for="courseid">'.&mt('Course ID').'</label>').
+  '<input name="courseid" id="courseid" type="text" size="30" />'.$select_link.
   &Apache::lonhtmlcommon::row_closure().
-  &Apache::lonhtmlcommon::row_title(&mt('Course Name')).
-  '<input name="coursename" type="text" size="30" />'.$syllabuslink.
+  &Apache::lonhtmlcommon::row_title('<label for="coursename">'.&mt('Course Name').'</label>').
+  '<input name="coursename" id="coursename" type="text" size="30" readonly="readonly" />'.$syllabuslink.
   &Apache::lonhtmlcommon::row_closure().
   &Apache::lonhtmlcommon::row_title(&mt('Domain')).
   '<input name="domainid" type="hidden" />'.$domdesc.
@@ -11372,8 +11372,8 @@
                   &Apache::lonhtmlcommon::row_closure());
     }
     $r->print(
-  &Apache::lonhtmlcommon::row_title(&mt('File to upload')).
-  '<input type="file" name="upfile" size="50" />'.
+  &Apache::lonhtmlcommon::row_title('<label for="upfile">'.&mt('File to upload').'</label>').
+  '<input type="file" name="upfile" id="upfile" size="50" />'.
   &Apache::lonhtmlcommon::row_closure(1).
   &Apache::lonhtmlcommon::end_pick_box().'<br />
 
@@ -13338,6 +13338,8 @@
         $r->print(&Apache::loncommon::start_page('Grading',$head_extra,\%args));
         if ($env{'request.course.id'}) {
             &Apache::lonquickgrades::startGradeScreen($r,($env{'form.symb'}?'probgrading':'grading'));
+        } else {
+            $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
         }
     }
     unless ($nodisplayflag) {
@@ -13743,6 +13745,8 @@
         $request->print(&Apache::loncommon::end_page());
     } elsif ($env{'request.course.id'}) {
         &Apache::lonquickgrades::endGradeScreen($request);
+    } else {
+        $request->print('</div>'.&Apache::loncommon::end_page());
     }
     &reset_caches();
     return OK;