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

[raeburn]

raeburn		Fri Jan 23 23:06:27 2026 EDT

  Modified files:              
    /loncom/interface	lonevaluate.pm 
  Log:
  - WCAG 2 compliance
    - Include landmark for page's main content to support "Skip to main content"
    - Include labels for form elements  
  - Maintain resource context for "Evaluate Resource" link after submission. 
  
  
Index: loncom/interface/lonevaluate.pm
diff -u loncom/interface/lonevaluate.pm:1.31 loncom/interface/lonevaluate.pm:1.32
--- loncom/interface/lonevaluate.pm:1.31	Sat Apr 14 02:29:44 2018
+++ loncom/interface/lonevaluate.pm	Fri Jan 23 23:06:27 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Evaluate
 #
-# $Id: lonevaluate.pm,v 1.31 2018/04/14 02:29:44 raeburn Exp $
+# $Id: lonevaluate.pm,v 1.32 2026/01/23 23:06:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -104,7 +104,7 @@
 ENDJS
 
             # Breadcrumbs
-            my $brcrum = [{'href' => '/adm/evaluate',
+            my $brcrum = [{'href' => 'javascript:goback();',
                            'text' => 'Evaluate Resource'},
                           {'href' => '',
                            'text' => 'Done'}];
@@ -114,6 +114,7 @@
                                                             {'bread_crumbs' => $brcrum,});
 
             $r->print($start_page
+                     .'<div class="LC_landmark" role="main" id="LC_main_content">'
                      .'<p class="LC_success">'
                      .&mt('Saving feedback: [_1]'
                           ,&Apache::lonnet::put(
@@ -126,6 +127,7 @@
            $r->print('<p><b>'.&mt('Thank you for your input!').'</b></p>'
                     .&Apache::lonhtmlcommon::scripttag(
                         'setTimeout("goback()",2000);')
+                    .'</div>'
                     .&Apache::loncommon::end_page()
            );
            return OK;
@@ -189,6 +191,7 @@
     );
     $r->print(
         $start_page
+       .'<div class="LC_landmark" role="main" id="LC_main_content">'
        .'<h2>'.$title.'</h2>');
 
     if ($warning) {
@@ -213,9 +216,10 @@
     foreach my $key ('correct', 'helpful', 'depth', 'clear', 'technical') {
         $r->print(
             &Apache::lonhtmlcommon::row_title(
-                '<span title="'.&mt('required').'">'.$lt{$key}
+                '<span title="'.&mt('required').'">'
+               .'<label for="'.$key.'">'.$lt{$key}.'</label>'
                .' <span class="LC_info">*</span></span>')
-           .'<select name="'.$key.'">'
+           .'<select name="'.$key.'" id="'.$key.'">'
            .$standardoptions
            .'</select>'
            .&Apache::lonhtmlcommon::row_closure()
@@ -223,8 +227,9 @@
     }
 
     $r->print(
-        &Apache::lonhtmlcommon::row_title($lt{'comments'})
-       .'<textarea name="comments" cols="40" rows="5">'
+        &Apache::lonhtmlcommon::row_title(
+           '<label for="comments">'.$lt{'comments'}.'</label>')
+       .'<textarea name="comments" cols="40" rows="5" id="comments">'
        .$oldcomments
        .'</textarea>'
        .&Apache::lonhtmlcommon::row_closure(1)
@@ -237,6 +242,7 @@
     $r->print(
         &Apache::lonhtmlcommon::scripttag($dialold)
        .'</form>'
+       .'</div>'
        .$end_page
     );