version 1.4, 2003/04/03 03:08:12
|
version 1.7, 2003/05/23 21:18:56
|
Line 50 sub launchremote {
|
Line 50 sub launchremote {
|
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',undef,' '); |
$r->print(<<ENDLAUNCH); |
$r->print(<<ENDLAUNCH); |
<html> |
<html> |
<head> |
<head> |
Line 60 $startupremote
|
Line 60 $startupremote
|
$bodytag |
$bodytag |
$setflags |
$setflags |
$windowinfo |
$windowinfo |
|
$maincall |
</body> |
</body> |
</html> |
</html> |
ENDLAUNCH |
ENDLAUNCH |
Line 68 ENDLAUNCH
|
Line 69 ENDLAUNCH
|
sub collapseremote { |
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',undef, |
|
' '); |
my $windowinfo=&Apache::lonmenu::close(); |
my $windowinfo=&Apache::lonmenu::close(); |
|
my $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'">'; |
$r->print(<<ENDCOLLAPSE); |
$r->print(<<ENDCOLLAPSE); |
<html> |
<html> |
<head> |
<head> |
<title>The LearningOnline Network with CAPA</title> |
<title>The LearningOnline Network with CAPA</title> |
|
$switch |
</head> |
</head> |
$bodytag |
$bodytag |
$windowinfo |
$windowinfo |
Line 86 ENDCOLLAPSE
|
Line 90 ENDCOLLAPSE
|
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['action']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
|
['action','url']); |
unless ($ENV{'form.action'}) { |
unless ($ENV{'form.action'}) { |
if ($ENV{'environment.remote'} eq 'on') { |
if ($ENV{'environment.remote'} eq 'on') { |
$ENV{'form.action'}='collapse'; |
$ENV{'form.action'}='collapse'; |
Line 94 sub handler {
|
Line 99 sub handler {
|
$ENV{'form.action'}='launch'; |
$ENV{'form.action'}='launch'; |
} |
} |
} |
} |
# FIXME - testurl |
|
my $lowerurl='/adm/roles'; |
my $lowerurl=$ENV{'form.url'}; |
### |
unless ($lowerurl) { $lowerurl='/adm/menu'; } |
|
|
if ($ENV{'form.action'} eq 'launch') { |
if ($ENV{'form.action'} eq 'launch') { |
&launchremote($r,$lowerurl); |
&launchremote($r,$lowerurl); |
} else { |
} else { |