version 1.43, 2003/02/20 18:00:31
|
version 1.45, 2003/03/03 13:03:58
|
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 />"; |
} |
} |
Line 62 sub registerurl {
|
Line 70 sub registerurl {
|
my $result = ''; |
my $result = ''; |
|
|
if ($target eq 'edit') { |
if ($target eq 'edit') { |
$result .="<script type=\"text/javascrtipt\">\n". |
$result .="<script type=\"text/javascript\">\n". |
"if (typeof swmenu != 'undefined') {swmenu.currentURL=null;}\n". |
"if (typeof swmenu != 'undefined') {swmenu.currentURL=null;}\n". |
&Apache::loncommon::browser_and_searcher_javascript(). |
&Apache::loncommon::browser_and_searcher_javascript(). |
"\n</script>\n"; |
"\n</script>\n"; |