[BACK]Return to lonconstruct.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Annotation of loncom/publisher/lonconstruct.pm, revision 1.4

1.1       www         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: #
1.3       www        13: # 11/22,11/23,11/28,
                     14: # 03/30/01 Gerd Kortemeyer
1.1       www        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>
1.4     ! www        38: <frameset rows="140,*">
1.2       www        39: <frame src='/adm/publisher.html'>
                     40: <frame src='$lowerframe' name="LONCAPAToBePublished">
1.1       www        41: </frameset>
                     42: </html>
                     43: ENDPAGE
                     44:    return OK;
                     45: }
                     46: 1;
                     47: __END__
                     48: 
                     49: 
                     50: 
                     51: 
                     52: 
                     53: 
                     54: 
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>