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

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

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.2     ! www        13: # 11/22,11/23,11/28 Gerd Kortemeyer
1.1       www        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,*">
1.2     ! www        38: <frame src='/adm/publisher.html'>
        !            39: <frame src='$lowerframe' name="LONCAPAToBePublished">
1.1       www        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>