--- loncom/interface/lonmenu.pm 2002/05/06 14:20:27 1.19 +++ loncom/interface/lonmenu.pm 2002/05/06 21:57:11 1.20 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.19 2002/05/06 14:20:27 matthew Exp $ +# $Id: lonmenu.pm,v 1.20 2002/05/06 21:57:11 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -49,7 +49,7 @@ sub open { #} return(< -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"); ENDOPEN @@ -62,7 +62,7 @@ sub switchmenu { my $openwin=&openmenu(); return(< - swmenu=$openwin + var swmenu=$openwin swmenu.switchbutton($row,$col,"$imgsrc","$texttop","$textbot","$action"); ENDSMENU @@ -107,7 +107,7 @@ sub openmenu { sub rawconfig { my $r = shift; - my $output="swmenu=".&openmenu(); + my $output="var swmenu=".&openmenu(); my $uname=$ENV{'user.name'}; my $udom=$ENV{'user.domain'}; my $adv=$ENV{'user.adv'};