[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface loncommon.pm

raeburn raeburn at source.lon-capa.org
Tue Oct 8 15:30:18 EDT 2024


raeburn		Tue Oct  8 19:30:18 2024 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/interface	loncommon.pm 
  Log:
  - If "links_disabled" is included in args passed to &start_page(), apply to
    links in top nav shown when Remote Control is on.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1075.2.172 loncom/interface/loncommon.pm:1.1075.2.173
--- loncom/interface/loncommon.pm:1.1075.2.172	Mon Oct  7 21:20:09 2024
+++ loncom/interface/loncommon.pm	Tue Oct  8 19:30:17 2024
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1075.2.172 2024/10/07 21:20:09 raeburn Exp $
+# $Id: loncommon.pm,v 1.1075.2.173 2024/10/08 19:30:17 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5917,12 +5917,17 @@
 # Top frame rendering, Remote is up
 #
 
+    my $linkattr;
+    if ($args->{'links_disabled'}) {
+        $linkattr = 'class="LCisDisabled" aria-disabled="true"';
+    }
+
     my $help=($no_inline_link?''
-              :&Apache::loncommon::top_nav_help('Help'));
+              :&top_nav_help('Help',$linkattr));
 
     # Explicit link to get inline menu
     my $menu= ($no_inline_link?''
-               :'<a href="/adm/remote?action=collapse" target="_top">'.&mt('Switch to Inline Menu Mode').'</a>');
+               :'<a href="/adm/remote?action=collapse" $linkattr target="_top">'.&mt('Switch to Inline Menu Mode').'</a>');
 
     if ($dc_info) {
         $dc_info = qq|<span class="LC_cusr_subheading">($dc_info)</span>|;
@@ -5930,8 +5935,12 @@
 
     my $name = &plainname($env{'user.name'},$env{'user.domain'});
     unless ($public) {
+        my $class = 'LC_menubuttons_link';
+        if ($args->{'links_disabled'}) {
+            $class .= ' LCisDisabled';
+        }
         $name = &aboutmewrapper($name,$env{'user.name'},$env{'user.domain'},
-                                undef,'LC_menubuttons_link');
+                                undef,$class);
     }
 
     unless ($env{'form.inhibitmenu'}) {




More information about the LON-CAPA-cvs mailing list