version 1.43, 2003/02/20 18:00:31
|
version 1.44, 2003/02/20 22:04:18
|
Line 49 sub menubuttons {
|
Line 49 sub menubuttons {
|
my $registration=shift; |
my $registration=shift; |
unless ($ENV{'browser.interface'} eq 'textual') { return ''; } |
unless ($ENV{'browser.interface'} eq 'textual') { return ''; } |
# Textual display only |
# Textual display only |
my $output='<a href="/adm/menu" target="_top">Main Menu</a><br />'; |
my $output=(<<ENDMAINMENU); |
|
<script> |
|
// BEGIN LON-CAPA Internal |
|
</script> |
|
<a href="/adm/menu" target="_top">Main Menu</a><br /> |
|
<script> |
|
// END LON-CAPA Internal |
|
</script> |
|
ENDMAINMENU |
if ($registration) { $output.=&innerregister($forcereg,$target); } |
if ($registration) { $output.=&innerregister($forcereg,$target); } |
return $output."<hr />"; |
return $output."<hr />"; |
} |
} |