loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.138, 2004/12/04 18:53:24	version 1.140, 2004/12/07 23:59:52
Line 460 $tableend	Line 460 $tableend
ENDREGTEXT	ENDREGTEXT
# Registered, graphical output	# Registered, graphical output
} else {	} else {
my $requri=(split(/\?/,$ENV{'request.noversionuri'}))[0];	my $requri=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$ENV{'request.noversionuri'}))[0]));
$requri=&Apache::lonenc::check_encrypt(&Apache::lonnet::unescape($requri));	$requri=&Apache::lonenc::check_encrypt(&Apache::lonnet::unescape($requri));
my $cursymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'});	my $cursymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'});
my $navstatus=&get_nav_status();	my $navstatus=&get_nav_status();
	my $clearcstr;
	if ($ENV{'user.adv'}) { $clearcstr='clearbut(6,1)'; }
$result = (<<ENDREGTHIS);	$result = (<<ENDREGTHIS);

<script type="text/javascript">	<script type="text/javascript">
Line 498 var swmenu=null;	Line 500 var swmenu=null;
swmenu.clearbut(7,3);	swmenu.clearbut(7,3);
swmenu.menucltim=swmenu.setTimeout(	swmenu.menucltim=swmenu.setTimeout(
'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+	'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+
'clearbut(9,1);clearbut(9,3);clearbut(6,3);clearbut(6,1)',	'clearbut(9,1);clearbut(9,3);clearbut(6,3);$clearcstr',
2000);	2000);
}	}