# The LearningOnline Network with CAPA
# Wrapper for external and binary files as standalone resources
#
# (Edit Handler for RAT Maps
# (TeX Content Handler
#
# 05/29/00,05/30 Gerd Kortemeyer)
# 7/1,6/30 Gerd Kortemeyer)
#
# 7/5 Gerd Kortemeyer
package Apache::lonwrapper;
use strict;
use Apache::Constants qw(:common);
use Apache::lonnet();
use Apache::lonxml();
# ================================================================ Main Handler
sub handler {
my $r=shift;
$r->content_type('text/html');
$r->send_http_header;
return OK if $r->header_only;
my $url=$r->uri;
$url=~s/^\/adm\/wrapper//;
$url=~s/^\/ext\//http\:\/\//;
my $events='onLoad="'.&Apache::lonxml::loadevents.
'" onUnload="'.&Apache::lonxml::unloadevents.'"';
my $script=&Apache::lonxml::registerurl(1);
$r->print(<<ENDDOCUMENT);
<html>
<head>
$script
</head>
<frameset rows="1,*" border=0 $events>
<frame src="/adm/rat/empty.html">
<frame src="$url">
</frameset>
</html>
ENDDOCUMENT
return OK;
}
1;
__END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>