--- loncom/interface/Attic/lonremote.pm 2003/04/02 22:02:19 1.3 +++ loncom/interface/Attic/lonremote.pm 2003/04/03 03:08:12 1.4 @@ -1,7 +1,7 @@ # The LearningOnline Network # User Authentication Module # -# $Id: lonremote.pm,v 1.3 2003/04/02 22:02:19 www Exp $ +# $Id: lonremote.pm,v 1.4 2003/04/03 03:08:12 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -46,17 +46,20 @@ sub launchremote { &Apache::lonnet::put('environment',{'remote' => 'on'}); &Apache::lonnet::appenv('environment.remote' => 'on'); # -------------------------------------------------------- Menu script and info -# my $windowinfo=&Apache::lonmenu::open($clientos); -# my $startupremote=&Apache::lonmenu::startupremote($lowerurl); -# my $setflags=&Apache::lonmenu::setflags(); -# my $maincall=&Apache::lonmenu::maincall(); + my $windowinfo=&Apache::lonmenu::open($ENV{'browser.os'}); + my $startupremote=&Apache::lonmenu::startupremote($lowerurl); + my $setflags=&Apache::lonmenu::setflags(); + my $maincall=&Apache::lonmenu::maincall(); my $bodytag=&Apache::loncommon::bodytag('Launch Remote Control'); $r->print(< The LearningOnline Network with CAPA +$startupremote $bodytag +$setflags +$windowinfo ENDLAUNCH @@ -66,12 +69,14 @@ sub collapseremote { my ($r,$lowerurl)=@_; # -------------------------------------------------------- Menu script and info my $bodytag=&Apache::loncommon::bodytag('Collapse Remote Control'); + my $windowinfo=&Apache::lonmenu::close(); $r->print(< The LearningOnline Network with CAPA $bodytag +$windowinfo ENDCOLLAPSE @@ -89,10 +94,13 @@ sub handler { $ENV{'form.action'}='launch'; } } +# FIXME - testurl + my $lowerurl='/adm/roles'; +### if ($ENV{'form.action'} eq 'launch') { - &launchremote($r); + &launchremote($r,$lowerurl); } else { - &collapseremote($r); + &collapseremote($r,$lowerurl); } return OK; }