--- loncom/interface/Attic/lonremote.pm 2008/03/12 02:45:07 1.24 +++ 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.24 2008/03/12 02:45:07 raeburn Exp $ +# $Id: lonremote.pm,v 1.26 2008/12/15 16:37:44 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -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='';