--- loncom/interface/Attic/lonremote.pm 2008/01/20 01:12:56 1.23 +++ loncom/interface/Attic/lonremote.pm 2008/12/15 16:37:44 1.26 @@ -1,7 +1,7 @@ # The LearningOnline Network # User Authentication Module # -# $Id: lonremote.pm,v 1.23 2008/01/20 01:12:56 www Exp $ +# $Id: lonremote.pm,v 1.26 2008/12/15 16:37:44 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -39,7 +39,7 @@ use Apache::lonlocal; sub launchremote { my ($r,$lowerurl)=@_; &Apache::lonnet::put('environment',{'remote' => 'on'}); - &Apache::lonnet::appenv('environment.remote' => 'on'); + &Apache::lonnet::appenv({'environment.remote' => 'on'}); # -------------------------------------------------------- Menu script and info my $windowinfo=&Apache::lonmenu::open($env{'browser.os'}); my $startupremote=&Apache::lonmenu::startupremote($lowerurl); @@ -64,9 +64,13 @@ ENDLAUNCH sub collapseremote { my ($r,$lowerurl)=@_; # -------------------------------------------------------- Menu script and info - my $start_page = &Apache::loncommon::start_page('Collapse Remote Control', - undef, - {'no_inline_link' => 1,}); + my $brcrum = [{href=>"/adm/preferences",text=>"Set User Preferences"}, + {href=>"/adm/remote?url=/adm/preferences&action=collapse",text=>"Collapse Remote Control"}]; + my $start_page = + &Apache::loncommon::start_page('Collapse Remote Control', + undef, + {'bread_crumbs' => $brcrum, + 'no_inline_link' => 1,}); my $end_page = &Apache::loncommon::end_page(); my $windowinfo=&Apache::lonmenu::close(); # my $switch=''; @@ -82,7 +86,7 @@ $message $end_page ENDCOLLAPSE &Apache::lonnet::put('environment',{'remote' => 'off'}); - &Apache::lonnet::appenv('environment.remote' => 'off'); + &Apache::lonnet::appenv({'environment.remote' => 'off'}); } sub handler {