loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.112, 2004/08/10 18:05:12	version 1.113, 2004/08/13 20:12:11
Line 420 ENDREGTEXT	Line 420 ENDREGTEXT
} else {	} else {
my $requri=(split(/\?/,$ENV{'request.noversionuri'}))[0];	my $requri=(split(/\?/,$ENV{'request.noversionuri'}))[0];
$requri=&Apache::lonnet::unescape($requri);	$requri=&Apache::lonnet::unescape($requri);
	my $navstatus=&get_nav_status();
$result = (<<ENDREGTHIS);	$result = (<<ENDREGTHIS);

<script language="JavaScript">	<script language="JavaScript">
Line 437 var swmenu=null;	Line 438 var swmenu=null;
swmenu.currentSymb="$ENV{'request.symb'}";	swmenu.currentSymb="$ENV{'request.symb'}";
swmenu.reloadSymb="$ENV{'request.symb'}";	swmenu.reloadSymb="$ENV{'request.symb'}";
swmenu.currentStale=0;	swmenu.currentStale=0;
	$navstatus
$hwkadd	$hwkadd
$editbutton	$editbutton
}	}
Line 929 sub serverform {	Line 931 sub serverform {
</form>	</form>
ENDSERVERFORM	ENDSERVERFORM
}	}

	sub get_nav_status {
	my $navstatus="swmenu.w_loncapanav_flag=";
	if ($ENV{'environment.remotenavmap'} eq 'on') {
	$navstatus.="1";
	} else {
	$navstatus.="-1";
	}
	return $navstatus;
	}

# ================================================ Handler when called directly	# ================================================ Handler when called directly