[BACK]Return to lonratedt.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat
File:  [LON-CAPA] / rat / lonratedt.pm
Revision 1.2: download - view: text, annotated - select for diffs
Tue May 1 15:23:40 2001 UTC (23 years ago) by harris41
Branches: MAIN
CVS tags: HEAD
changes between lonratedt.pm, lonratsrv.pm, and client/code.html
to have the loading "semaphore" to be in the parent frame

    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>
   27: <head>
   28: <script language="JavaScript">
   29:     var flag=0;
   30: </script>
   31: </head>
   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>