--- loncom/interface/Attic/lonremote.pm 2005/02/17 08:29:43 1.17 +++ loncom/interface/Attic/lonremote.pm 2005/04/07 06:56:23 1.18 @@ -1,7 +1,7 @@ # The LearningOnline Network # User Authentication Module # -# $Id: lonremote.pm,v 1.17 2005/02/17 08:29:43 albertel Exp $ +# $Id: lonremote.pm,v 1.18 2005/04/07 06:56:23 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -32,7 +32,7 @@ package Apache::lonremote; use strict; use Apache::Constants qw(:common); use Apache::loncommon(); -use Apache::lonnet(); +use Apache::lonnet; use Apache::lonmenu(); use Apache::lonlocal; @@ -41,7 +41,7 @@ sub launchremote { &Apache::lonnet::put('environment',{'remote' => 'on'}); &Apache::lonnet::appenv('environment.remote' => 'on'); # -------------------------------------------------------- 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 $startupremote=&Apache::lonmenu::startupremote($lowerurl); my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl); @@ -96,22 +96,22 @@ sub handler { my $r = shift; &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['action','url']); - unless ($ENV{'form.action'}) { - if ($ENV{'environment.remote'} ne 'off') { - $ENV{'form.action'}='collapse'; + unless ($env{'form.action'}) { + if ($env{'environment.remote'} ne 'off') { + $env{'form.action'}='collapse'; } else { - $ENV{'form.action'}='launch'; + $env{'form.action'}='launch'; } } - my $lowerurl=$ENV{'form.url'}; + my $lowerurl=$env{'form.url'}; unless ($lowerurl) { $lowerurl='/adm/menu'; } &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK if $r->header_only; - if ($ENV{'form.action'} eq 'launch') { + if ($env{'form.action'} eq 'launch') { &launchremote($r,$lowerurl); } else { &collapseremote($r,$lowerurl);