version 1.47, 2003/03/10 20:21:45
|
version 1.48, 2003/04/02 22:02:19
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# (TeX Conversion Module |
|
# |
# |
# 05/29/00,05/30 Gerd Kortemeyer) |
# There are two parameters controlling the action of this module: |
|
# |
|
# browser.interface - if this is 'textual', it overrides the second parameter |
|
# and goes to screen reader PDA mode |
|
# |
|
# environment.remote - if this is 'on', the routines controll the remote |
|
# control, otherwise they render the main window controls; ignored it |
|
# browser.interface is 'textual' |
# |
# |
# 10/05,05/28,05/30,06/01,06/08,06/09,07/04,08/07 Gerd Kortemeyer |
|
# 02/15/02 Matthew Hall |
|
|
|
package Apache::lonmenu; |
package Apache::lonmenu; |
|
|
Line 48 sub menubuttons {
|
Line 52 sub menubuttons {
|
my $forcereg=shift; |
my $forcereg=shift; |
my $target =shift; |
my $target =shift; |
my $registration=shift; |
my $registration=shift; |
unless ($ENV{'browser.interface'} eq 'textual') { return ''; } |
if ($ENV{'browser.interface'} eq 'textual') { |
# Textual display only |
# Textual display only |
my $output=(<<ENDMAINMENU); |
my $output=(<<ENDMAINMENU); |
<script> |
<script> |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
</script> |
</script> |
Line 59 sub menubuttons {
|
Line 63 sub menubuttons {
|
// END LON-CAPA Internal |
// END LON-CAPA Internal |
</script> |
</script> |
ENDMAINMENU |
ENDMAINMENU |
if ($registration) { $output.=&innerregister($forcereg,$target); } |
if ($registration) { $output.=&innerregister($forcereg,$target); } |
return $output."<hr />"; |
return $output."<hr />"; |
|
} elsif ($ENV{'environment.remote'} eq 'off') { |
|
# Remote Control is switched off |
|
my $output=(<<ENDINLINEMENU); |
|
<script> |
|
// BEGIN LON-CAPA Internal |
|
</script> |
|
<a href="/adm/menu" target="_top">Main Menu</a> |
|
<a href="/adm/remote?action=launch" target="_top">Launch Remote Control</a> |
|
<script> |
|
// END LON-CAPA Internal |
|
</script> |
|
ENDINLINEMENU |
|
if ($registration) { $output.=&innerregister($forcereg,$target); } |
|
return $output."<hr />"; |
|
} else { |
|
return ''; |
|
} |
} |
} |
|
|
# ====================================== This gets called in the header section |
# ====================================== This gets called in the header section |