[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.5: download - view: text, annotated - select for diffs
Thu Jul 26 12:54:31 2001 UTC (22 years, 10 months ago) by ng
Branches: MAIN
CVS tags: stable_2001_fall, HEAD
Adjust row pixels

    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,11/28,
   14: # 03/30/01 Gerd Kortemeyer
   15: 
   16: package Apache::lonconstruct;
   17: 
   18: use strict;
   19: use Apache::Constants qw(:common :http);
   20: 
   21: # ================================================================ Main Handler
   22: 
   23: sub handler {
   24:    my $r=shift;
   25: 
   26: # -------------------------------------------------------------- Build frameset
   27: 
   28:    $r->content_type('text/html');
   29:    $r->send_http_header;
   30:    return OK if $r->header_only;
   31: 
   32:    my $lowerframe=$r->path_info;
   33:    $lowerframe=~s/^\//\/\~/;
   34: 
   35:    $r->print(<<ENDPAGE);
   36: <html>
   37: <head><title>LON-CAPA Construction Space</title></head>
   38: <frameset rows="110,*">
   39: <frame src='/adm/publisher.html'>
   40: <frame src='$lowerframe' name="LONCAPAToBePublished">
   41: </frameset>
   42: </html>
   43: ENDPAGE
   44:    return OK;
   45: }
   46: 1;
   47: __END__
   48:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>