[LON-CAPA-cvs] cvs: loncom /publisher lonupload.pm

[raeburn]

raeburn		Mon Apr 27 18:58:08 2026 EDT

  Modified files:              
    /loncom/publisher	lonupload.pm 
  Log:
  - WCAG 2 compliance
    - Include landmark for page's main content to support "Skip to main content"
    - Include labels for form elements
  
  
Index: loncom/publisher/lonupload.pm
diff -u loncom/publisher/lonupload.pm:1.71 loncom/publisher/lonupload.pm:1.72
--- loncom/publisher/lonupload.pm:1.71	Sun Jul 23 11:54:56 2023
+++ loncom/publisher/lonupload.pm	Mon Apr 27 18:58:07 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to upload files into construction space
 #
-# $Id: lonupload.pm,v 1.71 2023/07/23 11:54:56 raeburn Exp $
+# $Id: lonupload.pm,v 1.72 2026/04/27 18:58:07 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -232,13 +232,15 @@
     );
     $r->print(
         &Apache::lonhtmlcommon::start_pick_box()
-       .&Apache::lonhtmlcommon::row_title(&mt('Save uploaded file as'))
+       .&Apache::lonhtmlcommon::row_title('<label for="filename2">'
+                                         .&mt('Save uploaded file as').'</label>')
        .'<span class="LC_filename">'.$fn1.'</span>'
        .'<input type="hidden" name="filename1" value="'.$fn1.'" />'
-       .'<input type="text" size="50" name="filename2" value="'.$fn2.'" />'
+       .'<input type="text" size="50" name="filename2" id="filename2" value="'.$fn2.'" />'
        .&Apache::lonhtmlcommon::row_closure()
-       .&Apache::lonhtmlcommon::row_title(&mt('File Type'))
-       .'<select name="filetype">'
+       .&Apache::lonhtmlcommon::row_title('<label for="filetype">'
+                                         .&mt('File Type').'</label>')
+       .'<select name="filetype" id="filetype">'
        .'<option value="standard" selected="selected">'.&mt('Regular file').'</option>'
        .'<option value="testbank">'.&mt('Testbank file').'</option>'
        .'<option value="imsimport">'.&mt('IMS package').'</option>'
@@ -642,6 +644,7 @@
     $r->print(&Apache::loncommon::start_page('Upload file to '.$text,
                                              $javascript,
                                              {'bread_crumbs' => $brcrum,})
+             ."\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n"
              .&Apache::loncommon::head_subbox(
                 &Apache::loncommon::CSTR_pageheader($trailfile))
     );
@@ -670,7 +673,7 @@
 	&phaseone($r,$fn,undef,$uname,$udom);
     }
 
-    $r->print(&Apache::loncommon::end_page());
+    $r->print('</div>'.&Apache::loncommon::end_page());
     return OK;
 }