loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.72, 2003/05/27 15:50:29	version 1.73, 2003/05/27 19:57:51
Line 188 sub registerurl {	Line 188 sub registerurl {
(!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) &&	(!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) &&
(!$forcereg))) {	(!$forcereg))) {
my $loadfunction='';	my $loadfunction='';
	my $inlineloadfunction='';
my $unloadfunction='';	my $unloadfunction='';
unless (($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'})) {
my $reopen=&Apache::lonmenu::reopenmenu();	my $reopen=&Apache::lonmenu::reopenmenu();
$loadfunction='swmenu='.$reopen.'swmenu.windowloaded(self.name);';	$loadfunction='swmenu='.$reopen.'swmenu.windowloaded(self.name);';
	$inlineloadfunction=&regflush();
$unloadfunction='swmenu='.$reopen.'swmenu.windowunloaded(self.name);';	$unloadfunction='swmenu='.$reopen.'swmenu.windowunloaded(self.name);';
}	}
return $result.(<<ENDFUNCTIONS);	return $result.(<<ENDFUNCTIONS);
Line 206 function LONCAPAstale() {	Line 208 function LONCAPAstale() {
$unloadfunction	$unloadfunction
}	}
</script>	</script>
	$inlineloadfunction
$force_title	$force_title
ENDFUNCTIONS	ENDFUNCTIONS
}	}