loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.255, 2009/03/13 15:12:02	version 1.257, 2009/04/01 14:43:06
Line 174 sub initlittle {	Line 174 sub initlittle {
'Courses':'Roles'),	'Courses':'Roles'),
'other' => 'Other Roles',	'other' => 'Other Roles',
'docs' => 'Edit Course',	'docs' => 'Edit Course',
'exit' => 'Exit',	'exit' => 'Logout',
'login' => 'Log In',	'login' => 'Log In',
'launch' => 'Launch Remote Control',	'launch' => 'Launch Remote Control',
'groups' => 'Groups',	'groups' => 'Groups',
Line 348 ENDCRELOAD	Line 348 ENDCRELOAD
my $form=&serverform();	my $form=&serverform();
my $utility=&utilityfunctions();	my $utility=&utilityfunctions();

	my $messagelink = "";
	if(&Apache::lonmsg::mynewmail()){
	$messagelink = '<a href="javascript:go(\'/adm/communicate\');">Message(new)</a>'
	}else{
	$messagelink = '<a href="javascript:go(\'/adm/communicate\');">Message</a>'
	}
my $helplink=&Apache::loncommon::top_nav_help('Help');	my $helplink=&Apache::loncommon::top_nav_help('Help');
return (<<ENDINLINEMENU);	return (<<ENDINLINEMENU);
<script type="text/javascript">	<script type="text/javascript">
Line 358 $utility	Line 364 $utility
</script>	</script>
<ol class="LC_smallMenu LC_right">	<ol class="LC_smallMenu LC_right">
<li>$logo</li>	<li>$logo</li>
<li><a href="javascript:go('/adm/communicate');">Message</a></li>	<li>$messagelink</li>
<li>$roles</li>	<li>$roles</li>
<li>$helplink</li>	<li>$helplink</li>
<li><a href="/adm/logout" target="_top">$lt{'exit'}</a></li>	<li><a href="/adm/logout" target="_top">$lt{'exit'}</a></li>