[BACK]Return to lonconstruct.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher
File:  [LON-CAPA] / loncom / publisher / Attic / lonconstruct.pm
Revision 1.1: download - view: text, annotated - select for diffs
Thu Nov 23 11:44:25 2000 UTC (23 years, 7 months ago) by www
Branches: MAIN
CVS tags: HEAD
New handler to establish publication frameset

    1: # The LearningOnline Network with CAPA
    2: #
    3: # Construction Space Page Wrapper for Construction
    4: #
    5: # (Page Handler
    6: #
    7: # (TeX Content Handler
    8: #
    9: # 05/29/00,05/30 Gerd Kortemeyer)
   10: # 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,
   11: # 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16 Gerd Kortemeyer)
   12: #
   13: # 11/22,11/23 Gerd Kortemeyer
   14: 
   15: package Apache::lonconstruct;
   16: 
   17: use strict;
   18: use Apache::Constants qw(:common :http);
   19: 
   20: # ================================================================ Main Handler
   21: 
   22: sub handler {
   23:    my $r=shift;
   24: 
   25: # -------------------------------------------------------------- Build frameset
   26: 
   27:    $r->content_type('text/html');
   28:    $r->send_http_header;
   29:    return OK if $r->header_only;
   30: 
   31:    my $lowerframe=$r->path_info;
   32:    $lowerframe=~s/^\//\/\~/;
   33: 
   34:    $r->print(<<ENDPAGE);
   35: <html>
   36: <head><title>LON-CAPA Construction Space</title></head>
   37: <frameset rows="50,*">
   38: <frame src='/cgi-bin/publisher'>
   39: <frame src='$lowerframe'>
   40: </frameset>
   41: </html>
   42: ENDPAGE
   43:    return OK;
   44: }
   45: 1;
   46: __END__
   47: 
   48: 
   49: 
   50: 
   51: 
   52: 
   53:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>