loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.68, 2003/05/23 21:47:27	version 1.69, 2003/05/23 23:18:37
Line 182 sub registerurl {	Line 182 sub registerurl {
(!$forcereg))) {	(!$forcereg))) {
my $loadfunction='';	my $loadfunction='';
my $unloadfunction='';	my $unloadfunction='';
unless (1 \|\| ($ENV{'browser.interface'} eq 'textual') \|\|	unless (($ENV{'browser.interface'} eq 'textual') \|\|
($ENV{'environment.remote'} eq 'off') \|\|	($ENV{'environment.remote'} eq 'off') \|\|
($ENV{'request.publicaccess'})) {	($ENV{'request.publicaccess'}) \|\|
	($ENV{'REQUEST_URI'} eq '/res/adm/pages/menu.html')) {
my $reopen=&Apache::lonmenu::reopenmenu();	my $reopen=&Apache::lonmenu::reopenmenu();
$loadfunction='swmenu='.$reopen.'swmenu.noclient=0;';	$loadfunction='swmenu='.$reopen.'swmenu.noclient=0;';
$unloadfunction='swmenu='.$reopen.'swmenu.noclient=1;';	$unloadfunction='swmenu='.$reopen.'swmenu.noclient=1;';

}	}
return $result.(<<ENDFUNCTIONS);	return $result.(<<ENDFUNCTIONS);
<script type="text/javascript">	<script type="text/javascript">