loncom/interface/lonremote.pm - diff

Return to lonremote.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.24, 2008/03/12 02:45:07	version 1.25, 2008/12/10 21:46:58
Line 64 ENDLAUNCH	Line 64 ENDLAUNCH
sub collapseremote {	sub collapseremote {
my ($r,$lowerurl)=@_;	my ($r,$lowerurl)=@_;
# -------------------------------------------------------- Menu script and info	# -------------------------------------------------------- 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',	my $start_page = &Apache::loncommon::start_page('Collapse Remote Control',
undef,	undef,
{'no_inline_link' => 1,});	{'bread_crumbs' => @brcrum,
	'no_inline_link' => 1,});
my $end_page = &Apache::loncommon::end_page();	my $end_page = &Apache::loncommon::end_page();
my $windowinfo=&Apache::lonmenu::close();	my $windowinfo=&Apache::lonmenu::close();
# my $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'">';	# my $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'">';