version 1.34, 2003/02/13 18:11:26
|
version 1.35, 2003/02/13 20:35:39
|
Line 52 sub startupremote {
|
Line 52 sub startupremote {
|
return(<<ENDREMOTESTARTUP); |
return(<<ENDREMOTESTARTUP); |
<script> |
<script> |
|
|
|
function wheelswitch() { |
|
if (window.status=='|') { |
|
window.status='/'; |
|
} else { |
|
if (window.status=='/') { |
|
window.status='-'; |
|
} else { |
|
if (window.status=='-') { |
|
window.status='\\\\'; |
|
} else { |
|
if (window.status=='\\\\') { window.status='|'; } |
|
} |
|
} |
|
} |
|
} |
|
|
// ---------------------------------------------------------- The wait function |
// ---------------------------------------------------------- The wait function |
var canceltim; |
var canceltim; |
function wait() { |
function wait() { |
if ((menuloaded==1) || (tim==1)) { |
if ((menuloaded==1) || (tim==1)) { |
|
window.status='Done.'; |
if (tim==0) { |
if (tim==0) { |
clearTimeout(canceltim); |
clearTimeout(canceltim); |
$configmenu |
$configmenu |
window.location='$lowerurl'; |
window.location='$lowerurl'; |
} else { |
} else { |
alert("Remote Control Timed Out."); |
alert("Remote Control timed out. It is possible that it was blocked by pop-up window filters."); |
} |
} |
} else { |
} else { |
setTimeout('wait();',100); |
wheelswitch(); |
|
setTimeout('wait();',200); |
} |
} |
} |
} |
|
|
function main() { |
function main() { |
canceltim=setTimeout('tim=1;',80000); |
canceltim=setTimeout('tim=1;',60000); |
|
window.status='-'; |
wait(); |
wait(); |
} |
} |
|
|
Line 120 if (window.screen) {
|
Line 139 if (window.screen) {
|
ENDRESIZE |
ENDRESIZE |
} |
} |
$returnval.=(<<ENDOPEN); |
$returnval.=(<<ENDOPEN); |
|
window.status='Opening LON-CAPA Remote Control'; |
var menu=window.open("/res/adm/pages/menu.html","$menuname", |
var menu=window.open("/res/adm/pages/menu.html","$menuname", |
"height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5"); |
"height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5"); |
ENDOPEN |
ENDOPEN |
Line 145 ENDSMENU
|
Line 165 ENDSMENU
|
sub clear { |
sub clear { |
my ($row,$col)=@_; |
my ($row,$col)=@_; |
unless ($ENV{'browser.interface'} eq 'textual') { |
unless ($ENV{'browser.interface'} eq 'textual') { |
return qq(swmenu.clearbut($row,$col);); |
return "\n".qq(window.status+='.';swmenu.clearbut($row,$col);); |
} else { return ''; } |
} else { return ''; } |
} |
} |
|
|
Line 157 sub switch {
|
Line 177 sub switch {
|
$act=~s/\$udom/$udom/g; |
$act=~s/\$udom/$udom/g; |
unless ($ENV{'browser.interface'} eq 'textual') { |
unless ($ENV{'browser.interface'} eq 'textual') { |
return "\n". |
return "\n". |
qq(swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc");); |
qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc");); |
} else { |
} else { |
my $text=$top.' '.$bot; |
my $text=$top.' '.$bot; |
$text=~s/\- //; |
$text=~s/\- //; |
Line 193 sub rawconfig {
|
Line 213 sub rawconfig {
|
my $textualoverride=shift; |
my $textualoverride=shift; |
my $output=''; |
my $output=''; |
unless ($ENV{'browser.interface'} eq 'textual') { |
unless ($ENV{'browser.interface'} eq 'textual') { |
$output.="var swmenu=".&openmenu(); |
$output.= |
|
"window.status='Opening Remote Control';var swmenu=".&openmenu(). |
|
"\nwindow.status='Configuring Remote Control ';"; |
} else { |
} else { |
unless ($textualoverride) { return ''; } |
unless ($textualoverride) { return ''; } |
} |
} |
Line 264 sub rawconfig {
|
Line 286 sub rawconfig {
|
} |
} |
} |
} |
unless ($ENV{'browser.interface'} eq 'textual') { |
unless ($ENV{'browser.interface'} eq 'textual') { |
$output.="swmenu.syncclock(1000*".time.");"; |
$output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';"; |
} |
} |
return $output; |
return $output; |
} |
} |
Line 272 sub rawconfig {
|
Line 294 sub rawconfig {
|
# ======================================================================= Close |
# ======================================================================= Close |
|
|
sub close { |
sub close { |
|
if ($ENV{'browser.interface'} eq 'textual') { return ''; } |
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; |
my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; |
return(<<ENDCLOSE); |
return(<<ENDCLOSE); |
<script> |
<script> |
|
window.status='Accessing Remote Control'; |
menu=window.open("/adm/rat/empty.html","$menuname", |
menu=window.open("/adm/rat/empty.html","$menuname", |
"height=350,width=150,scrollbars=no,menubar=no"); |
"height=350,width=150,scrollbars=no,menubar=no"); |
|
window.status='Disabling Remote Control'; |
|
menu.active=0; |
menu.autologout=0; |
menu.autologout=0; |
|
window.status='Closing Remote Control'; |
menu.close(); |
menu.close(); |
|
window.status='Done.'; |
</script> |
</script> |
ENDCLOSE |
ENDCLOSE |
} |
} |