|
version 1.141, 2005/01/31 19:20:47
|
version 1.143, 2005/02/02 19:24:45
|
|
Line 979 sub utilityfunctions {
|
Line 979 sub utilityfunctions {
|
| my $caller = shift; |
my $caller = shift; |
| unless (($ENV{'browser.interface'} eq 'textual') || |
unless (($ENV{'browser.interface'} eq 'textual') || |
| ($ENV{'environment.remote'} eq 'off') || ($caller eq '/adm/menu')) { return ''; } |
($ENV{'environment.remote'} eq 'off') || ($caller eq '/adm/menu')) { return ''; } |
| my $currenturl=&Apache::lonenc::check_encrypt($ENV{'request.noversionuri'}); |
my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$ENV{'request.noversionuri'}))[0])); |
| |
$currenturl=&Apache::lonenc::check_encrypt(&Apache::lonnet::unescape($currenturl)); |
| |
|
| my $currentsymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'}); |
my $currentsymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'}); |
| my $nav_control=&nav_control_js(); |
my $nav_control=&nav_control_js(); |
|
Line 1147 sub handler {
|
Line 1148 sub handler {
|
| $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain); |
$tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain); |
| $font=&Apache::loncommon::designparm($function.'.font',$domain); |
$font=&Apache::loncommon::designparm($function.'.font',$domain); |
| my $script_tag; |
my $script_tag; |
| if ($ENV{'environment.remote'} eq 'on') { |
if ($ENV{'environment.remote'} ne 'off') { |
| my $utility=&utilityfunctions('/adm/menu'); |
my $utility=&utilityfunctions('/adm/menu'); |
| $script_tag=(<<ENDSCRIPT); |
$script_tag=(<<ENDSCRIPT); |
| <script type="text/javascript"> |
<script type="text/javascript"> |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmenu.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface