version 1.54, 2003/04/03 21:32:23
|
version 1.55, 2003/04/04 19:35:04
|
Line 52 sub menubuttons {
|
Line 52 sub menubuttons {
|
my $forcereg=shift; |
my $forcereg=shift; |
my $target =shift; |
my $target =shift; |
my $registration=shift; |
my $registration=shift; |
|
my $navmaps=''; |
|
my $escurl=&Apache::lonnet::escape($ENV{'REQUEST_URI'}); |
|
my $escsymb=&Apache::lonnet::escape($ENV{'request.symb'}); |
if ($ENV{'browser.interface'} eq 'textual') { |
if ($ENV{'browser.interface'} eq 'textual') { |
# Textual display only |
# Textual display only |
|
if ($ENV{'request.course.id'}) { |
|
$navmaps=(<<ENDNAV); |
|
<a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">Navigate Contents</a> |
|
ENDNAV |
|
} |
my $output=(<<ENDMAINMENU); |
my $output=(<<ENDMAINMENU); |
<script> |
<script> |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
</script> |
</script> |
<a href="/adm/menu" target="_top">Main Menu</a><br /> |
<a href="/adm/menu" target="_top">Main Menu</a> |
|
$navmaps<br /> |
<script> |
<script> |
// END LON-CAPA Internal |
// END LON-CAPA Internal |
</script> |
</script> |
Line 67 ENDMAINMENU
|
Line 76 ENDMAINMENU
|
return $output."<hr />"; |
return $output."<hr />"; |
} elsif ($ENV{'environment.remote'} eq 'off') { |
} elsif ($ENV{'environment.remote'} eq 'off') { |
# Remote Control is switched off |
# Remote Control is switched off |
my $escurl=&Apache::lonnet::escape($ENV{'REQUEST_URI'}); |
if ($ENV{'request.course.id'}) { |
|
$navmaps=(<<ENDNAVREM); |
|
<a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">Navigate Contents</a> |
|
ENDNAVREM |
|
} |
my $output=(<<ENDINLINEMENU); |
my $output=(<<ENDINLINEMENU); |
<script> |
<script> |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
</script> |
</script> |
<table bgcolor="#AAAAAA" width="100%" border="2"><tr><td> |
<table bgcolor="#AAAAAA" width="100%" border="2"><tr><td> |
<a href="/adm/menu" target="_top">Main Menu</a> |
<a href="/adm/menu" target="_top">Main Menu</a> |
|
$navmaps |
<a href="/adm/remote?action=launch&url=$escurl" target="_top">Launch Remote Control</a> |
<a href="/adm/remote?action=launch&url=$escurl" target="_top">Launch Remote Control</a> |
<br /> |
<br /> |
<script> |
<script> |