[BACK]Return to lonremote.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/lonremote.pm between versions 1.17 and 1.18

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);
Removed from v.1.17  
changed lines
  Added in v.1.18

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>