Annotation of rat/lonratedt.pm, revision 1.2

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: 

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>