version 1.3, 2003/04/02 22:02:19
|
version 1.4, 2003/04/03 03:08:12
|
Line 46 sub launchremote {
|
Line 46 sub launchremote {
|
&Apache::lonnet::put('environment',{'remote' => 'on'}); |
&Apache::lonnet::put('environment',{'remote' => 'on'}); |
&Apache::lonnet::appenv('environment.remote' => 'on'); |
&Apache::lonnet::appenv('environment.remote' => 'on'); |
# -------------------------------------------------------- Menu script and info |
# -------------------------------------------------------- Menu script and info |
# my $windowinfo=&Apache::lonmenu::open($clientos); |
my $windowinfo=&Apache::lonmenu::open($ENV{'browser.os'}); |
# my $startupremote=&Apache::lonmenu::startupremote($lowerurl); |
my $startupremote=&Apache::lonmenu::startupremote($lowerurl); |
# my $setflags=&Apache::lonmenu::setflags(); |
my $setflags=&Apache::lonmenu::setflags(); |
# my $maincall=&Apache::lonmenu::maincall(); |
my $maincall=&Apache::lonmenu::maincall(); |
my $bodytag=&Apache::loncommon::bodytag('Launch Remote Control'); |
my $bodytag=&Apache::loncommon::bodytag('Launch Remote Control'); |
$r->print(<<ENDLAUNCH); |
$r->print(<<ENDLAUNCH); |
<html> |
<html> |
<head> |
<head> |
<title>The LearningOnline Network with CAPA</title> |
<title>The LearningOnline Network with CAPA</title> |
|
$startupremote |
</head> |
</head> |
$bodytag |
$bodytag |
|
$setflags |
|
$windowinfo |
</body> |
</body> |
</html> |
</html> |
ENDLAUNCH |
ENDLAUNCH |
Line 66 sub collapseremote {
|
Line 69 sub collapseremote {
|
my ($r,$lowerurl)=@_; |
my ($r,$lowerurl)=@_; |
# -------------------------------------------------------- Menu script and info |
# -------------------------------------------------------- Menu script and info |
my $bodytag=&Apache::loncommon::bodytag('Collapse Remote Control'); |
my $bodytag=&Apache::loncommon::bodytag('Collapse Remote Control'); |
|
my $windowinfo=&Apache::lonmenu::close(); |
$r->print(<<ENDCOLLAPSE); |
$r->print(<<ENDCOLLAPSE); |
<html> |
<html> |
<head> |
<head> |
<title>The LearningOnline Network with CAPA</title> |
<title>The LearningOnline Network with CAPA</title> |
</head> |
</head> |
$bodytag |
$bodytag |
|
$windowinfo |
</body> |
</body> |
</html> |
</html> |
ENDCOLLAPSE |
ENDCOLLAPSE |
Line 89 sub handler {
|
Line 94 sub handler {
|
$ENV{'form.action'}='launch'; |
$ENV{'form.action'}='launch'; |
} |
} |
} |
} |
|
# FIXME - testurl |
|
my $lowerurl='/adm/roles'; |
|
### |
if ($ENV{'form.action'} eq 'launch') { |
if ($ENV{'form.action'} eq 'launch') { |
&launchremote($r); |
&launchremote($r,$lowerurl); |
} else { |
} else { |
&collapseremote($r); |
&collapseremote($r,$lowerurl); |
} |
} |
return OK; |
return OK; |
} |
} |