version 1.117, 2004/09/18 16:55:33
|
version 1.118, 2004/10/28 16:25:21
|
Line 532 sub startupremote {
|
Line 532 sub startupremote {
|
# |
# |
my $configmenu=&rawconfig(); |
my $configmenu=&rawconfig(); |
my $esclowerurl=&Apache::lonnet::escape($lowerurl); |
my $esclowerurl=&Apache::lonnet::escape($lowerurl); |
|
my $message=&mt('"Waiting for remote to load "+[_1]','waited'); |
return(<<ENDREMOTESTARTUP); |
return(<<ENDREMOTESTARTUP); |
<script> |
<script> |
|
var timestart; |
function wheelswitch() { |
function wheelswitch() { |
|
if (typeof(document.wheel) != 'undefined') { |
|
if (typeof(document.wheel.spin) != 'undefined') { |
|
var date=new Date(); |
|
var waited=Math.round(30-((date.getTime()-timestart)/1000)); |
|
document.wheel.spin.value=$message; |
|
} |
|
} |
if (window.status=='|') { |
if (window.status=='|') { |
window.status='/'; |
window.status='/'; |
} else { |
} else { |
Line 573 function wait() {
|
Line 580 function wait() {
|
function main() { |
function main() { |
canceltim=setTimeout('tim=1;',30000); |
canceltim=setTimeout('tim=1;',30000); |
window.status='-'; |
window.status='-'; |
|
var date=new Date(); |
|
timestart=date.getTime(); |
wait(); |
wait(); |
} |
} |
|
|
Line 598 sub maincall() {
|
Line 607 sub maincall() {
|
</script> |
</script> |
ENDMAINCALL |
ENDMAINCALL |
} |
} |
|
|
|
sub load_remote_msg { |
|
my ($lowerurl)=@_; |
|
|
|
if (($ENV{'browser.interface'} eq 'textual') || |
|
($ENV{'environment.remote'} eq 'off')) { return ''; } |
|
|
|
my $esclowerurl=&Apache::lonnet::escape($lowerurl); |
|
my $link=&mt('<a href="[_1]">Continue</a> on in inline remote mode', |
|
"/adm/remote?action=collapse?url=$esclowerurl"); |
|
return(<<ENDREMOTEFORM); |
|
<p> |
|
<form name="wheel"> |
|
<input name="spin" type="text" size="40"/> |
|
</form> |
|
</p> |
|
<p>$link</p> |
|
ENDREMOTEFORM |
|
} |
# ================================================================= Reopen menu |
# ================================================================= Reopen menu |
|
|
sub reopenmenu { |
sub reopenmenu { |