version 1.31, 2003/01/29 15:22:06
|
version 1.32, 2003/01/31 21:46:36
|
Line 39 use Apache::lonnet;
|
Line 39 use Apache::lonnet;
|
use Apache::File; |
use Apache::File; |
use vars qw(@desklines $readdesk); |
use vars qw(@desklines $readdesk); |
|
|
|
# ============================================================= Start up remote |
|
|
|
sub startupremote { |
|
my ($lowerurl)=@_; |
|
my $configmenu=&rawconfig(); |
|
return(<<ENDREMOTESTARTUP); |
|
<script> |
|
|
|
// ---------------------------------------------------------- The wait function |
|
var canceltim; |
|
function wait() { |
|
if ((menuloaded==1) || (tim==1)) { |
|
if (tim==0) { |
|
clearTimeout(canceltim); |
|
$configmenu |
|
window.location='$lowerurl'; |
|
} else { |
|
alert("Remote Control Timed Out."); |
|
} |
|
} else { |
|
setTimeout('wait();',100); |
|
} |
|
} |
|
|
|
function main() { |
|
canceltim=setTimeout('tim=1;',80000); |
|
wait(); |
|
} |
|
|
|
</script> |
|
ENDREMOTESTARTUP |
|
} |
|
|
|
sub setflags() { |
|
return(<<ENDSETFLAGS); |
|
<script> |
|
menuloaded=0; |
|
tim=0; |
|
</script> |
|
ENDSETFLAGS |
|
} |
|
|
|
sub maincall() { |
|
return(<<ENDMAINCALL); |
|
<script> |
|
main(); |
|
</script> |
|
ENDMAINCALL |
|
} |
# ================================================================= Reopen menu |
# ================================================================= Reopen menu |
|
|
sub reopenmenu { |
sub reopenmenu { |
Line 123 sub openmenu {
|
Line 172 sub openmenu {
|
} |
} |
|
|
sub rawconfig { |
sub rawconfig { |
my $r = shift; |
|
my $output="var swmenu=".&openmenu(); |
my $output="var swmenu=".&openmenu(); |
my $uname=$ENV{'user.name'}; |
my $uname=$ENV{'user.name'}; |
my $udom=$ENV{'user.domain'}; |
my $udom=$ENV{'user.domain'}; |
Line 183 sub rawconfig {
|
Line 231 sub rawconfig {
|
} |
} |
$act =~ s/\$caname/$caname/g; |
$act =~ s/\$caname/$caname/g; |
my $home = &Apache::lonnet::homeserver($caname,$cadom); |
my $home = &Apache::lonnet::homeserver($caname,$cadom); |
if ($home eq $r->dir_config('lonHostID')) { |
if ($home eq $Apache::lonnet::perlvar{'lonHostID'}) { |
$output.=switch($caname,$cadom, |
$output.=switch($caname,$cadom, |
$row,$col,$img,$top,$bot,$act,$desc); |
$row,$col,$img,$top,$bot,$act,$desc); |
} |
} |