loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.109, 2004/07/02 07:58:01	version 1.111, 2004/07/23 19:09:27
Line 339 sub innerregister {	Line 339 sub innerregister {
}	}
}	}
# Finally, turn the button on or off	# Finally, turn the button on or off
&Apache::lonnet::logthis("cfile is $cfile");
if ($cfile) {	if ($cfile) {
$editbutton=&switch	$editbutton=&switch
('','',6,1,'cstr.gif','edit[_1]','resource[_2]',	('','',6,1,'cstr.gif','edit[_1]','resource[_2]',
Line 605 sub reopenmenu {	Line 604 sub reopenmenu {
sub open {	sub open {
my $returnval='';	my $returnval='';
if (($ENV{'browser.interface'} eq 'textual') \|\|	if (($ENV{'browser.interface'} eq 'textual') \|\|
($ENV{'environment.remote'} eq 'off')) { return ''; }	($ENV{'environment.remote'} eq 'off')) {
	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