loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.270, 2009/06/08 18:04:45	version 1.272, 2009/07/09 08:53:39
Line 225 sub menubuttons {	Line 225 sub menubuttons {

if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {	if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {
return (<<ENDINLINEMENU);	return (<<ENDINLINEMENU);
<table id="LC_top_nav">	<ol class="LC_smallMenu LC_right">
<tr>	<li>$logo</li>
<td>$logo</td>	<li><a href="/adm/roles" target="_top">$lt{'login'}</a></li>
<td></td>	</ol>
<td class="LC_top_nav_login">	<hr />
<a href="/adm/roles" target="_top">$lt{'login'}</a>
</td>
</tr>
</table>
ENDINLINEMENU	ENDINLINEMENU
}	}
$roles = '<a href="/adm/roles" target="_top">'.$lt{'roles'}.'</a>';	$roles = '<a href="/adm/roles" target="_top">'.$lt{'roles'}.'</a>';
Line 954 sub open {	Line 950 sub open {
# }	# }
$returnval.=(<<ENDOPEN);	$returnval.=(<<ENDOPEN);
window.status='Opening LON-CAPA Remote Control';	window.status='Opening LON-CAPA Remote Control';
var menu=window.open("/res/adm/pages/menu.html","$menuname",	var menu=window.open("/res/adm/pages/menu.html?inhibitmenu=yes","$menuname",
"height=375,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");	"height=375,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");
self.name='loncapaclient';	self.name='loncapaclient';
ENDOPEN	ENDOPEN