loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.53, 2003/04/03 20:25:08	version 1.54, 2003/04/03 21:32:23
Line 67 ENDMAINMENU	Line 67 ENDMAINMENU
return $output."<hr />";	return $output."<hr />";
} elsif ($ENV{'environment.remote'} eq 'off') {	} elsif ($ENV{'environment.remote'} eq 'off') {
# Remote Control is switched off	# Remote Control is switched off
	my $escurl=&Apache::lonnet::escape($ENV{'REQUEST_URI'});
my $output=(<<ENDINLINEMENU);	my $output=(<<ENDINLINEMENU);
<script>	<script>
// BEGIN LON-CAPA Internal	// BEGIN LON-CAPA Internal
</script>	</script>
	<table bgcolor="#AAAAAA" width="100%" border="2"><tr><td>
<a href="/adm/menu" target="_top">Main Menu</a>	<a href="/adm/menu" target="_top">Main Menu</a>
<a href="/adm/remote?action=launch" target="_top">Launch Remote Control</a>	<a href="/adm/remote?action=launch&url=$escurl" target="_top">Launch Remote Control</a>
<br />	<br />
<script>	<script>
// END LON-CAPA Internal	// END LON-CAPA Internal
</script>	</script>
ENDINLINEMENU	ENDINLINEMENU
if ($registration) { $output.=&innerregister($forcereg,$target); }	if ($registration) { $output.=&innerregister($forcereg,$target); }
return $output."<hr />";	return $output."</td></tr></table>";
} else {	} else {
return '';	return '';
}	}