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

Thu, 03 Apr 2003 20:25:08 -0000

www		Thu Apr  3 15:25:08 2003 EDT

  Modified files:              
    /loncom/interface	lonmenu.pm 
  Log:
  "No Remote" works as well and as bad as the "normal" textual interface now.
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.52 loncom/interface/lonmenu.pm:1.53

--- loncom/interface/lonmenu.pm:1.52	Thu Apr  3 10:23:41 2003
+++ loncom/interface/lonmenu.pm	Thu Apr  3 15:25:08 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.52 2003/04/03 15:23:41 www Exp $
+# $Id: lonmenu.pm,v 1.53 2003/04/03 20:25:08 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -73,6 +73,7 @@
 </script>
 <a href="/adm/menu" target="_top">Main Menu</a>
 <a href="/adm/remote?action=launch" target="_top">Launch Remote Control</a>
+<br />
 <script>
 // END LON-CAPA Internal
 </script>
@@ -98,6 +99,7 @@
                 "\n</script>\n";
     }
     if (($ENV{'browser.interface'} eq 'textual') ||
+        ($ENV{'environment.remote'} eq 'off') ||
         ((($ENV{'request.publicaccess'}) || 
          (!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) &&
         (!$forcereg))) {
@@ -704,10 +706,13 @@
     $r->send_http_header;
     return OK if $r->header_only;
 
-    my $utility=&utilityfunctions();
     my $form=&serverform();
     my $bodytag=&Apache::loncommon::bodytag('Main Menu');
-# ------------------------------------------------------------ Print the screen
+# ---- Print the screen, pretent to be in text mode to generate text-based menu
+    unless ($ENV{'brower.interface'} eq 'textual') {
+	$ENV{'environment.remote'}='off';
+    }
+    my $utility=&utilityfunctions();
     $r->print(<<ENDHEADER);
 <html><head>
 <title>LON-CAPA Main Menu</title>



