version 1.17, 2005/02/17 08:29:43
|
version 1.18, 2005/04/07 06:56:23
|
Line 32 package Apache::lonremote;
|
Line 32 package Apache::lonremote;
|
use strict; |
use strict; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonnet(); |
use Apache::lonnet; |
use Apache::lonmenu(); |
use Apache::lonmenu(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
|
Line 41 sub launchremote {
|
Line 41 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($ENV{'browser.os'}); |
my $windowinfo=&Apache::lonmenu::open($env{'browser.os'}); |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $startupremote=&Apache::lonmenu::startupremote($lowerurl); |
my $startupremote=&Apache::lonmenu::startupremote($lowerurl); |
my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl); |
my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl); |
Line 96 sub handler {
|
Line 96 sub handler {
|
my $r = shift; |
my $r = shift; |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['action','url']); |
['action','url']); |
unless ($ENV{'form.action'}) { |
unless ($env{'form.action'}) { |
if ($ENV{'environment.remote'} ne 'off') { |
if ($env{'environment.remote'} ne 'off') { |
$ENV{'form.action'}='collapse'; |
$env{'form.action'}='collapse'; |
} else { |
} else { |
$ENV{'form.action'}='launch'; |
$env{'form.action'}='launch'; |
} |
} |
} |
} |
|
|
my $lowerurl=$ENV{'form.url'}; |
my $lowerurl=$env{'form.url'}; |
unless ($lowerurl) { $lowerurl='/adm/menu'; } |
unless ($lowerurl) { $lowerurl='/adm/menu'; } |
|
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
if ($ENV{'form.action'} eq 'launch') { |
if ($env{'form.action'} eq 'launch') { |
&launchremote($r,$lowerurl); |
&launchremote($r,$lowerurl); |
} else { |
} else { |
&collapseremote($r,$lowerurl); |
&collapseremote($r,$lowerurl); |