loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.239, 2008/07/05 23:21:23	version 1.239.4.2, 2008/12/13 15:55:40
Line 251 ENDCRELOAD	Line 251 ENDCRELOAD
}	}
my $form=&serverform();	my $form=&serverform();
my $utility=&utilityfunctions();	my $utility=&utilityfunctions();
my $remote;
if ($env{'user.adv'}) {
$remote = '<td><a href="/adm/remote?action=launch&url='.$escurl.'" target="_top">'.$lt{'launch'}.'</a></td>'
}

my $helplink=&Apache::loncommon::top_nav_help('Help');	my $helplink=&Apache::loncommon::top_nav_help('Help');
return (<<ENDINLINEMENU);	return (<<ENDINLINEMENU);
Line 272 $reloadlink	Line 268 $reloadlink
$navmaps	$navmaps
$docs	$docs
$groups	$groups
$remote
$roles	$roles
<td class="LC_top_nav_help">$helplink</td>	<td class="LC_top_nav_help">$helplink</td>
<td class="LC_top_nav_exit"><a href="/adm/logout" target="_top">$lt{'exit'}</a></td>	<td class="LC_top_nav_exit"><a href="/adm/logout" target="_top">$lt{'exit'}</a></td>
Line 1126 sub rawconfig {	Line 1121 sub rawconfig {
}	}
}	}
}	}
	} elsif ($pro eq 'tools') {
	my @tools = ('aboutme','blog','portfolio');
	if (grep(/^\Q$prt\E$/,@tools)) {
	if (!&Apache::lonnet::usertools_access($env{'user.name'},
	$env{'user.domain'},$prt)) {
	$output.=&clear($row,$col);
	next;
	}
	}
	$prt='any';
	$output.=&secondlevel(
	$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
}	}
}	}
unless (($env{'browser.interface'} eq 'textual') \|\|	unless (($env{'browser.interface'} eq 'textual') \|\|