loncom/interface/lonremote.pm - diff

Return to lonremote.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.25, 2008/12/10 21:46:58	version 1.26, 2008/12/15 16:37:44
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"},	my $brcrum = [{href=>"/adm/preferences",text=>"Set User Preferences"},
{href=>"/adm/remote?url=/adm/preferences&action=collapse",text=>"Collapse Remote Control"}];	{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 =
undef,	&Apache::loncommon::start_page('Collapse Remote Control',
{'bread_crumbs' => @brcrum,	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.'">';