version 1.20, 2006/03/16 22:17:30
|
version 1.21, 2006/08/30 15:26:29
|
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 $start_page = &Apache::loncommon::start_page('Collapse Remote Control', |
|
undef, |
|
{'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.'">'; |