loncom/interface/lonremote.pm - diff

Return to lonremote.pm CVS log

Up to [LON-CAPA] / loncom / interface

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