[LON-CAPA-cvs] cvs: loncom /cgi quotacheck.pl

[raeburn]

raeburn		Sat Jun 27 23:00:19 2026 EDT

  Modified files:              
    /loncom/cgi	quotacheck.pl 
  Log:
  - WCAG 2 compliance: support "Skip to main content" link. 
  - Satisfy w3c compliance.
  
  
Index: loncom/cgi/quotacheck.pl
diff -u loncom/cgi/quotacheck.pl:1.9 loncom/cgi/quotacheck.pl:1.10
--- loncom/cgi/quotacheck.pl:1.9	Fri Sep  3 21:37:38 2021
+++ loncom/cgi/quotacheck.pl	Sat Jun 27 23:00:19 2026
@@ -6,7 +6,7 @@
 # requested domain, or current server should belong to requested
 # domain.
 #
-# $Id: quotacheck.pl,v 1.9 2021/09/03 21:37:38 raeburn Exp $
+# $Id: quotacheck.pl,v 1.10 2026/06/27 23:00:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -162,8 +162,9 @@
     }
     print(&Apache::loncommon::start_page('Course/Community disk usage and quotas', undef, $starthash).
           &Apache::lonhtmlcommon::breadcrumbs('Course/Community status').
-          '<h2>'.&Apache::lonlocal::mt('Quotas for uploaded course content').'</h2>'.
-          '<h3>'.$domdesc.'</h3>');
+          '<div class="LC_landmark" role="main" id="LC_main_content">'.
+          '<h2 class="LC_heading_2">'.&Apache::lonlocal::mt('Quotas for uploaded course content').'</h2>'.
+          '<h3 class="LC_heading_3">'.$domdesc.'</h3>');
 
 # Sort by course title (cdesc) as default, not reversed
     my $sortby = $params{'sortby'};
@@ -181,7 +182,9 @@
 
     if ($knownuser) {
         print <<"ENDSCRIPT";
-<script>
+<script type="text/javascript">
+// <![CDATA[
+
 function changeSort(sortby) {
     document.filterpicker.sortby.value = sortby;
     if (('$sortby' == sortby) && ('$params{'sortorder'}' != 'rev')) {
@@ -189,6 +192,7 @@
     }
     document.filterpicker.submit();
 }
+// ]]>
 </script>
 ENDSCRIPT
         my ($numtitles, at codetitles);
@@ -257,7 +261,7 @@
         &print_usage($lonhost,$reqdom,\@showcourses,$sortby,$sortorder,$type,$knownuser,
                      $script);
     }
-    print(&Apache::loncommon::end_page());
+    print('</div>'.&Apache::loncommon::end_page());
     return;
 }
 
@@ -363,7 +367,7 @@
                     }
                 }
             }
-            $output .= '<th><a href="'.$link.'"">'.$columns{$key}{text}
+            $output .= '<th><a href="'.$link.'">'.$columns{$key}{text}
                       .$arrows[$idx].'</a></th>';
         }
         print(&Apache::loncommon::start_data_table()