version 1.7, 2003/05/23 21:18:56
|
version 1.8, 2003/06/06 02:24:49
|
Line 50 sub launchremote {
|
Line 50 sub launchremote {
|
my $startupremote=&Apache::lonmenu::startupremote($lowerurl); |
my $startupremote=&Apache::lonmenu::startupremote($lowerurl); |
my $setflags=&Apache::lonmenu::setflags(); |
my $setflags=&Apache::lonmenu::setflags(); |
my $maincall=&Apache::lonmenu::maincall(); |
my $maincall=&Apache::lonmenu::maincall(); |
my $bodytag=&Apache::loncommon::bodytag('Launch Remote Control',undef,' '); |
my $bodytag=&Apache::loncommon::bodytag('Launch Remote Control'); |
$r->print(<<ENDLAUNCH); |
$r->print(<<ENDLAUNCH); |
<html> |
<html> |
<head> |
<head> |
Line 69 ENDLAUNCH
|
Line 69 ENDLAUNCH
|
sub collapseremote { |
sub collapseremote { |
my ($r,$lowerurl)=@_; |
my ($r,$lowerurl)=@_; |
# -------------------------------------------------------- Menu script and info |
# -------------------------------------------------------- Menu script and info |
my $bodytag=&Apache::loncommon::bodytag('Collapse Remote Control',undef, |
my $bodytag=&Apache::loncommon::bodytag('Collapse Remote Control'); |
' '); |
|
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.'">'; |
$r->print(<<ENDCOLLAPSE); |
$r->print(<<ENDCOLLAPSE); |