version 1.5, 2003/04/03 14:44:01
|
version 1.6, 2003/04/03 16:50:46
|
Line 71 sub collapseremote {
|
Line 71 sub collapseremote {
|
# -------------------------------------------------------- Menu script and info |
# -------------------------------------------------------- Menu script and info |
my $bodytag=&Apache::loncommon::bodytag('Collapse Remote Control'); |
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.'">'; |
$r->print(<<ENDCOLLAPSE); |
$r->print(<<ENDCOLLAPSE); |
<html> |
<html> |
<head> |
<head> |
<title>The LearningOnline Network with CAPA</title> |
<title>The LearningOnline Network with CAPA</title> |
|
$switch |
</head> |
</head> |
$bodytag |
$bodytag |
$windowinfo |
$windowinfo |
Line 98 sub handler {
|
Line 100 sub handler {
|
} |
} |
|
|
my $lowerurl=$ENV{'form.url'}; |
my $lowerurl=$ENV{'form.url'}; |
|
unless ($lowerurl) { $lowerurl='/adm/menu'; } |
|
|
if ($ENV{'form.action'} eq 'launch') { |
if ($ENV{'form.action'} eq 'launch') { |
&launchremote($r,$lowerurl); |
&launchremote($r,$lowerurl); |