loncom/interface/lonremote.pm - diff

Return to lonremote.pm CVS log

Up to [LON-CAPA] / loncom / interface

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);