rat/lonwrapper.pm - diff

Return to lonwrapper.pm CVS log

Up to [LON-CAPA] / rat

version 1.1, 2001/07/05 13:31:53	version 1.2, 2001/07/05 15:54:02
Line 13 package Apache::lonwrapper;	Line 13 package Apache::lonwrapper;

use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::lonnet;	use Apache::lonnet();
	use Apache::lonxml();

# ================================================================ Main Handler	# ================================================================ Main Handler

Line 25 sub handler {	Line 26 sub handler {
return OK if $r->header_only;	return OK if $r->header_only;

my $url=$r->uri;	my $url=$r->uri;
	$url=~s/^\/adm\/wrapper//;
	my $events='onLoad="'.&Apache::lonxml::loadevents.
	'" onUnload="'.&Apache::lonxml::unloadevents.'"';
	my $script=&Apache::lonxml::registerurl(1);
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	<html>
<head>	<head>
	$script
</head>	</head>
<frameset rows="*" border=0>	<frameset rows="1,*" border=0 $events>
	<frame src="/adm/rat/empty.html">
<frame src="$url">	<frame src="$url">
</frameset>	</frameset>
</html>	</html>