loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.221, 2007/07/16 03:19:10	version 1.222, 2007/07/17 18:31:37
Line 807 sub open {	Line 807 sub open {
return '<script type="text/javascript">self.name="loncapaclient";</script>';	return '<script type="text/javascript">self.name="loncapaclient";</script>';
}	}
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};	my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};
unless (shift eq 'unix') {
	# unless (shift eq 'unix') {
# resizing does not work on linux because of virtual desktop sizes	# resizing does not work on linux because of virtual desktop sizes
$returnval.=(<<ENDRESIZE);	# $returnval.=(<<ENDRESIZE);
if (window.screen) {	#if (window.screen) {
self.resizeTo(screen.availWidth-215,screen.availHeight-55);	# self.resizeTo(screen.availWidth-215,screen.availHeight-55);
self.moveTo(190,15);	# self.moveTo(190,15);
}	#}
ENDRESIZE	#ENDRESIZE
}	# }
$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","$menuname",