![[BACK]](/icons/back.gif){kind=icon}
Return to lonratedt.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / rat|
Return to lonratedt.pm CVS log | Up to [LON-CAPA] / rat |
1.1 www 1: # The LearningOnline Network with CAPA
2: # Edit Handler for RAT Maps
3: # (TeX Content Handler
4: #
5: # 05/29/00,05/30 Gerd Kortemeyer)
6: # 7/1 Gerd Kortemeyer
7:
8: package Apache::lonratedt;
9:
10: use strict;
11: use Apache::Constants qw(:common);
12:
13: # ================================================================ Main Handler
14:
15: sub handler {
16: my $r=shift;
17: $r->content_type('text/html');
18: $r->send_http_header;
19:
20: return OK if $r->header_only;
21:
22: my $url=$r->uri;
23:
24: $r->print(<<ENDDOCUMENT);
25:
26: <html>
1.2 ! harris41 27: <head>
! 28: <script language="JavaScript">
! 29: var flag=0;
! 30: </script>
! 31: </head>
1.1 www 32: <frameset rows="1,50,*" border=0>
33: <frame name=server src="$url/loadonly/ratserver" noresize noscroll>
34: <frame name=code src="/adm/rat/code.html">
35: <frame name=mapout src="/adm/rat/map.html">
36: </frameset>
37: </html>
38:
39: ENDDOCUMENT
40: return OK;
41: }
42:
43: 1;
44: __END__
45:
46:
47:
48:
49:
50:
51: