1: # The LearningOnline Network with CAPA
2: # Wrapper for external and binary files as standalone resources
3: #
4: # (Edit Handler for RAT Maps
5: # (TeX Content Handler
6: #
7: # 05/29/00,05/30 Gerd Kortemeyer)
8: # 7/1,6/30 Gerd Kortemeyer)
9: #
10: # 7/5 Gerd Kortemeyer
11:
12: package Apache::lonwrapper;
13:
14: use strict;
15: use Apache::Constants qw(:common);
16: use Apache::lonnet();
17: use Apache::lonxml();
18:
19: # ================================================================ Main Handler
20:
21: sub handler {
22: my $r=shift;
23: $r->content_type('text/html');
24: $r->send_http_header;
25:
26: return OK if $r->header_only;
27:
28: my $url=$r->uri;
29: $url=~s/^\/adm\/wrapper//;
30: my $events='onLoad="'.&Apache::lonxml::loadevents.
31: '" onUnload="'.&Apache::lonxml::unloadevents.'"';
32: my $script=&Apache::lonxml::registerurl(1);
33: $r->print(<<ENDDOCUMENT);
34: <html>
35: <head>
36: $script
37: </head>
38: <frameset rows="1,*" border=0 $events>
39: <frame src="/adm/rat/empty.html">
40: <frame src="$url">
41: </frameset>
42: </html>
43: ENDDOCUMENT
44: return OK;
45: }
46:
47: 1;
48: __END__
49:
50:
51:
52:
53:
54:
55:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>