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

Fri Jan 23 16:18:08 EST 2026

raeburn		Fri Jan 23 21:18:08 2026 EDT

  Modified files:              
    /loncom/interface	lonchatfetch.pm loncommon.pm 
  Log:
  - Only one 'Skip to main content' link in Chat window.
    Omitted from chatacc and chatout frames, but present in chatpost frame.
  
  
Index: loncom/interface/lonchatfetch.pm
diff -u loncom/interface/lonchatfetch.pm:1.40 loncom/interface/lonchatfetch.pm:1.41

--- loncom/interface/lonchatfetch.pm:1.40	Tue Nov 30 15:55:37 2021
+++ loncom/interface/lonchatfetch.pm	Fri Jan 23 21:18:08 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Chat Fetching
 #
-# $Id: lonchatfetch.pm,v 1.40 2021/11/30 15:55:37 raeburn Exp $
+# $Id: lonchatfetch.pm,v 1.41 2026/01/23 21:18:08 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -103,7 +103,8 @@
 	    &Apache::loncommon::start_page(undef,undef,
 					   {'only_body' => 1,
 					    'bgcolor'   => '#FFFFFF',
-					    'js_ready'  => 1,});
+					    'js_ready'  => 1,
+	                                    'no_main_skip' => 1,});
     }
     my @participants=();
     foreach my $entry (@entries) {
@@ -190,7 +191,8 @@
 ENDSCRIPT
     } else {
         $headarg = {'redirect'  => [5,$refresh_cmd,1],
-                                    'only_body' => 1,};
+                                    'only_body' => 1,
+                                    'no_main_skip' => 1,};
     }
     my $start_page = &Apache::loncommon::start_page('Chat Room',undef,$headarg); 
     my $end_page = &Apache::loncommon::end_page();
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1501 loncom/interface/loncommon.pm:1.1502
--- loncom/interface/loncommon.pm:1.1501	Wed Jan 21 20:55:08 2026
+++ loncom/interface/loncommon.pm	Fri Jan 23 21:18:08 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1501 2026/01/21 20:55:08 raeburn Exp $
+# $Id: loncommon.pm,v 1.1502 2026/01/23 21:18:08 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7002,9 +7002,11 @@
 
 # construct main body tag
     my $bodytag = "<body $extra_body_attr>".
-                  &Apache::lontexconvert::init_math_support().
-                  '<a href="#LC_main_content" class="LC_skip-to-main-content-link">'.
-                  &mt('Skip to main content').'</a>';
+                  &Apache::lontexconvert::init_math_support();
+    if (!$args->{'no_main_skip'}) {
+        $bodytag .= '<a href="#LC_main_content" class="LC_skip-to-main-content-link">'.
+                    &mt('Skip to main content').'</a>';
+    }
 
     &get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['inhibitmenu']);
 


