loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.84, 2003/08/15 14:55:45	version 1.86, 2003/08/28 16:43:12
Line 377 $form	Line 377 $form
ENDREGTEXT	ENDREGTEXT
# Registered, graphical output	# Registered, graphical output
} else {	} else {
my $requri=&Apache::lonnet::unescape($ENV{'REQUEST_URI'});	my $requri=(split(/\?/,$ENV{'REQUEST_URI'}))[0];
	$requri=&Apache::lonnet::unescape($requri);
$result = (<<ENDREGTHIS);	$result = (<<ENDREGTHIS);

<script language="JavaScript">	<script language="JavaScript">
Line 391 var swmenu=null;	Line 392 var swmenu=null;
$newmail	$newmail
$buttons	$buttons
swmenu.currentURL="$requri";	swmenu.currentURL="$requri";
swmenu.reloadURL=currentURL+window.location.search;	swmenu.reloadURL=swmenu.currentURL+window.location.search;
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;