--- loncom/interface/Attic/lonremote.pm 2008/12/10 21:46:58 1.25 +++ 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.25 2008/12/10 21:46:58 kaisler Exp $ +# $Id: lonremote.pm,v 1.26 2008/12/15 16:37:44 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -64,12 +64,13 @@ ENDLAUNCH sub collapseremote { my ($r,$lowerurl)=@_; # -------------------------------------------------------- Menu script and info - 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 $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='';