--- loncom/interface/lonmenu.pm 2003/04/03 15:23:41 1.52
+++ loncom/interface/lonmenu.pm 2003/04/03 20:25:08 1.53
@@ -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 @@ ENDMAINMENU
Main Menu
Launch Remote Control
+
@@ -98,6 +99,7 @@ sub registerurl {
"\n\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 @@ sub handler {
$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(<
LON-CAPA Main Menu