version 1.52, 2003/04/03 15:23:41
|
version 1.53, 2003/04/03 20:25:08
|
Line 73 ENDMAINMENU
|
Line 73 ENDMAINMENU
|
</script> |
</script> |
<a href="/adm/menu" target="_top">Main Menu</a> |
<a href="/adm/menu" target="_top">Main Menu</a> |
<a href="/adm/remote?action=launch" target="_top">Launch Remote Control</a> |
<a href="/adm/remote?action=launch" target="_top">Launch Remote Control</a> |
|
<br /> |
<script> |
<script> |
// END LON-CAPA Internal |
// END LON-CAPA Internal |
</script> |
</script> |
Line 98 sub registerurl {
|
Line 99 sub registerurl {
|
"\n</script>\n"; |
"\n</script>\n"; |
} |
} |
if (($ENV{'browser.interface'} eq 'textual') || |
if (($ENV{'browser.interface'} eq 'textual') || |
|
($ENV{'environment.remote'} eq 'off') || |
((($ENV{'request.publicaccess'}) || |
((($ENV{'request.publicaccess'}) || |
(!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) && |
(!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) && |
(!$forcereg))) { |
(!$forcereg))) { |
Line 704 sub handler {
|
Line 706 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
my $utility=&utilityfunctions(); |
|
my $form=&serverform(); |
my $form=&serverform(); |
my $bodytag=&Apache::loncommon::bodytag('Main Menu'); |
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); |
$r->print(<<ENDHEADER); |
<html><head> |
<html><head> |
<title>LON-CAPA Main Menu</title> |
<title>LON-CAPA Main Menu</title> |