--- loncom/interface/lonmenu.pm 2003/05/23 23:58:53 1.70 +++ loncom/interface/lonmenu.pm 2003/05/24 12:43:55 1.71 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.70 2003/05/23 23:58:53 www Exp $ +# $Id: lonmenu.pm,v 1.71 2003/05/24 12:43:55 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -186,8 +186,8 @@ sub registerurl { ($ENV{'environment.remote'} eq 'off') || ($ENV{'request.publicaccess'})) { my $reopen=&Apache::lonmenu::reopenmenu(); - $loadfunction='swmenu='.$reopen.'swmenu.noclient=0;'; - $unloadfunction='swmenu='.$reopen.'swmenu.noclient=1;'; + $loadfunction='swmenu='.$reopen.'swmenu.windowloaded(self.name);'; + $unloadfunction='swmenu='.$reopen.'swmenu.windowunloaded(self.name);'; } return $result.(< @@ -391,7 +391,7 @@ var swmenu=null; function LONCAPAreg() { swmenu=$reopen; - swmenu.noclient=0; + swmenu.windowloaded(self.name); swmenu.clearTimeout(swmenu.menucltim); $timesync $newmail @@ -419,7 +419,7 @@ var swmenu=null; 'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+ 'clearbut(9,1);clearbut(9,2);clearbut(9,3);clearbut(6,3);clearbut(6,1)', 2000); - swmenu.noclient=1; + swmenu.windowunloaded(self.name); } // END LON-CAPA Internal @@ -443,7 +443,7 @@ var swmenu=null; function LONCAPAreg() { swmenu=$reopen - swmenu.noclient=0; + swmenu.windowloaded(self.name); $timesync swmenu.currentStale=1; swmenu.clearbut(2,1); @@ -461,7 +461,7 @@ var swmenu=null; function LONCAPAstale() { swmenu=$reopen - swmenu.noclient=1; + swmenu.windowunloaded(self.name); } // END LON-CAPA Internal @@ -592,6 +592,7 @@ ENDRESIZE window.status='Opening LON-CAPA Remote Control'; var menu=window.open("/res/adm/pages/menu.html","$menuname", "height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5"); +self.name='loncapaclient'; ENDOPEN return ''; }