loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.19, 2002/05/06 14:20:27	version 1.20, 2002/05/06 21:57:11
Line 49 sub open {	Line 49 sub open {
#}	#}
return(<<ENDOPEN);	return(<<ENDOPEN);
<script>	<script>
menu=window.open("/res/adm/pages/menu.html","LONCAPAmenu",	var menu=window.open("/res/adm/pages/menu.html","LONCAPAmenu",
"height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");	"height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");
</script>	</script>
ENDOPEN	ENDOPEN
Line 62 sub switchmenu {	Line 62 sub switchmenu {
my $openwin=&openmenu();	my $openwin=&openmenu();
return(<<ENDSMENU);	return(<<ENDSMENU);
<script>	<script>
swmenu=$openwin	var swmenu=$openwin
swmenu.switchbutton($row,$col,"$imgsrc","$texttop","$textbot","$action");	swmenu.switchbutton($row,$col,"$imgsrc","$texttop","$textbot","$action");
</script>	</script>
ENDSMENU	ENDSMENU
Line 107 sub openmenu {	Line 107 sub openmenu {

sub rawconfig {	sub rawconfig {
my $r = shift;	my $r = shift;
my $output="swmenu=".&openmenu();	my $output="var 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'};