loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.140, 2004/12/07 23:59:52	version 1.141, 2005/01/31 19:20:47
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\//) &&