loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.17, 2002/02/15 20:06:42	version 1.18, 2002/03/21 17:53:27
Line 59 ENDOPEN	Line 59 ENDOPEN

sub switchmenu {	sub switchmenu {
my ($row,$col,$imgsrc,$texttop,$textbot,$action)=@_;	my ($row,$col,$imgsrc,$texttop,$textbot,$action)=@_;
	my $openwin=&openmenu();
return(<<ENDSMENU);	return(<<ENDSMENU);
<script>	<script>
swmenu=window.open('','LONCAPAmenu');	swmenu=$openwin
swmenu.switchbutton($row,$col,"$imgsrc","$texttop","$textbot","$action");	swmenu.switchbutton($row,$col,"$imgsrc","$texttop","$textbot","$action");
</script>	</script>
ENDSMENU	ENDSMENU
Line 96 sub secondlevel {	Line 97 sub secondlevel {
return $output;	return $output;
}	}

	sub openmenu {
	if ($ENV{'browser.type'} eq 'explorer') {
	return "window.open('javascript:void(0);','LONCAPAmenu');";
	} else {
	return "window.open('','LONCAPAmenu');";
	}
	}

sub rawconfig {	sub rawconfig {
my $output="swmenu=window.open('','LONCAPAmenu');";	my $output="swmenu=".&openmenu();
my $uname=$ENV{'user.name'};	my $uname=$ENV{'user.name'};
my $udom=$ENV{'user.domain'};	my $udom=$ENV{'user.domain'};
my $adv=$ENV{'user.adv'};	my $adv=$ENV{'user.adv'};