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.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 $start_page = &Apache::loncommon::start_page('Collapse Remote Control',	my $brcrum = [{href=>"/adm/preferences",text=>"Set User Preferences"},
undef,	{href=>"/adm/remote?url=/adm/preferences&action=collapse",text=>"Collapse Remote Control"}];
{'no_inline_link' => 1,});	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 $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.'">';