|
version 1.140, 2004/12/07 23:59:52
|
version 1.142, 2005/01/31 19:24:02
|
|
Line 145 ENDMAINMENU
|
Line 145 ENDMAINMENU
|
| my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain); |
my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain); |
| # Do we have a NAV link? |
# Do we have a NAV link? |
| if ($ENV{'request.course.id'}) { |
if ($ENV{'request.course.id'}) { |
| $navmaps=(<<ENDNAV); |
my $link='/adm/navmaps?postdata='.$escurl.'&postsymb='. |
| |
$escsymb; |
| |
if ($ENV{'environment.remotenavmap'} eq 'on') { |
| |
$link="javascript:gonav('".$link."')"; |
| |
} |
| |
$navmaps=(<<ENDNAV); |
| <td bgcolor="$tabbg"> |
<td bgcolor="$tabbg"> |
| <a href="javascript:gonav('/adm/navmaps?postdata=$escurl&postsymb=$escsymb')"><font color="$font">$lt{'nav'}</font></a></td> |
<a href="$link"><font color="$font">$lt{'nav'}</font></a></td> |
| ENDNAV |
ENDNAV |
| if (($ENV{'request.noversionuri'}=~/^\/adm\//) && |
if (($ENV{'request.noversionuri'}=~/^\/adm\//) && |
| ($ENV{'request.noversionuri'}!~/^\/adm\/wrapper\//) && |
($ENV{'request.noversionuri'}!~/^\/adm\/wrapper\//) && |
|
Line 1142 sub handler {
|
Line 1147 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