loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.50, 2003/04/03 03:08:12	version 1.52, 2003/04/03 15:23:41
Line 364 sub startupremote {	Line 364 sub startupremote {
# The Remote actually gets launched!	# The Remote actually gets launched!
#	#
my $configmenu=&rawconfig();	my $configmenu=&rawconfig();
	my $esclowerurl=&Apache::lonnet::escape($lowerurl);

return(<<ENDREMOTESTARTUP);	return(<<ENDREMOTESTARTUP);
<script>	<script>

Line 393 function wait() {	Line 395 function wait() {
$configmenu	$configmenu
window.location='$lowerurl';	window.location='$lowerurl';
} else {	} else {
alert("Remote Control timed out. It is possible that it was blocked by pop-up window filters.");	window.location='/adm/remote?action=collapse&url=$esclowerurl';
}	}
} else {	} else {
wheelswitch();	wheelswitch();
Line 402 function wait() {	Line 404 function wait() {
}	}

function main() {	function main() {
canceltim=setTimeout('tim=1;',60000);	canceltim=setTimeout('tim=1;',30000);
window.status='-';	window.status='-';
wait();	wait();
}	}
Line 640 sub footer {	Line 642 sub footer {
}	}

sub utilityfunctions {	sub utilityfunctions {
unless ($ENV{'browser.interface'} eq 'textual') { return ''; }	unless (($ENV{'browser.interface'} eq 'textual') \|\|
	($ENV{'environment.remote'} eq 'off')) { return ''; }
my $currenturl=$ENV{'REQUEST_URI'};	my $currenturl=$ENV{'REQUEST_URI'};
my $currentsymb=$ENV{'request.symb'};	my $currentsymb=$ENV{'request.symb'};
return (<<ENDUTILITY)	return (<<ENDUTILITY)