loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1075.2.172, 2024/10/07 21:20:09	version 1.1075.2.173, 2024/10/08 19:30:17
Line 5917 sub bodytag {	Line 5917 sub bodytag {
# Top frame rendering, Remote is up	# Top frame rendering, Remote is up
#	#

	my $linkattr;
	if ($args->{'links_disabled'}) {
	$linkattr = 'class="LCisDisabled" aria-disabled="true"';
	}

my $help=($no_inline_link?''	my $help=($no_inline_link?''
:&Apache::loncommon::top_nav_help('Help'));	:&top_nav_help('Help',$linkattr));

# Explicit link to get inline menu	# Explicit link to get inline menu
my $menu= ($no_inline_link?''	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) {	if ($dc_info) {
$dc_info = qq\|<span class="LC_cusr_subheading">($dc_info)</span>\|;	$dc_info = qq\|<span class="LC_cusr_subheading">($dc_info)</span>\|;
Line 5930 sub bodytag {	Line 5935 sub bodytag {

my $name = &plainname($env{'user.name'},$env{'user.domain'});	my $name = &plainname($env{'user.name'},$env{'user.domain'});
unless ($public) {	unless ($public) {
	my $class = 'LC_menubuttons_link';
	if ($args->{'links_disabled'}) {
	$class .= ' LCisDisabled';
	}
$name = &aboutmewrapper($name,$env{'user.name'},$env{'user.domain'},	$name = &aboutmewrapper($name,$env{'user.name'},$env{'user.domain'},
undef,'LC_menubuttons_link');	undef,$class);
}	}

unless ($env{'form.inhibitmenu'}) {	unless ($env{'form.inhibitmenu'}) {