[LON-CAPA-cvs] cvs: loncom /interface lonmenu.pm

[albertel]

albertel		Fri Jul 23 15:09:27 2004 EDT

  Modified files:              
    /loncom/interface	lonmenu.pm 
  Log:
  - arrgh when some logs in in 'inline mode' the main window never gets named loncapaclient.
    which causes problems with posting messages and other such things
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.110 loncom/interface/lonmenu.pm:1.111
--- loncom/interface/lonmenu.pm:1.110	Wed Jul 14 13:40:32 2004
+++ loncom/interface/lonmenu.pm	Fri Jul 23 15:09:27 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.110 2004/07/14 17:40:32 matthew Exp $
+# $Id: lonmenu.pm,v 1.111 2004/07/23 19:09:27 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -604,7 +604,9 @@
 sub open {
     my $returnval='';
     if (($ENV{'browser.interface'} eq 'textual') ||
-        ($ENV{'environment.remote'} eq 'off')) { return ''; }
+        ($ENV{'environment.remote'} eq 'off')) { 
+	return '<script type="text/javascript">self.name="loncapaclient";</script>';
+    }
     my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};
     unless (shift eq 'unix') {
 # resizing does not work on linux because of virtual desktop sizes