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

[raeburn]

raeburn		Mon Oct 14 01:13:27 2024 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  - WCAG 2 compliance
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.563 loncom/interface/lonnavmaps.pm:1.564
--- loncom/interface/lonnavmaps.pm:1.563	Tue Apr  4 23:15:48 2023
+++ loncom/interface/lonnavmaps.pm	Mon Oct 14 01:13:27 2024
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.563 2023/04/04 23:15:48 raeburn Exp $
+# $Id: lonnavmaps.pm,v 1.564 2024/10/14 01:13:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1641,17 +1641,19 @@
 
     # Check for any unread discussions in all resources.
     if (($args->{'caller'} eq 'navmapsdisplay') && (!$args->{'notools'})) {
+        my $markread = 'Mark all posts read';
 	&add_linkitem($args->{'linkitems'},'clearbubbles',
 		      'document.clearbubbles.submit()',
-		      'Mark all posts read');
+		      $markread);
 	my $time=time;
+        my $submit = &mt($markread);
         my $querystr = &HTML::Entities::encode($ENV{'QUERY_STRING'},'<>&"');
 	$result .= (<<END);
-    <form name="clearbubbles" method="post" action="/adm/feedback">
+    <form name="clearbubbles" method="post" action="/adm/feedback" aria-hidden="true">
 	<input type="hidden" name="navurl" value="$querystr" />
 	<input type="hidden" name="navtime" value="$time" />
 END
-        if ($args->{'sort'} eq 'discussion') { 
+        if ($args->{'sort'} eq 'discussion') {
 	    my $totdisc = 0;
 	    my $haveDisc = '';
 	    my @allres=$navmap->retrieveResources();
@@ -1665,11 +1667,13 @@
 		$haveDisc =~ s/:$//;
 		$result .= (<<END);
 	<input type="hidden" name="navmaps" value="$haveDisc" />
-    </form>
 END
             }
 	}
-	$result.='</form>';
+	$result .= <<END;
+        <input type="submit" value="$submit" class="LC_visually_hidden" tabindex="-1" disabled="disabled" />
+    </form>
+END
     }
     if (($args->{'caller'} eq 'navmapsdisplay') && ($env{'request.course.id'})) {
         my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};