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"> |