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

Annotation of loncom/interface/lonprintout.pm, revision 1.2

1.1       www         1: # The LearningOnline Network
                      2: # Printout
                      3: #
                      4: # (Internal Server Error Handler
                      5: #
                      6: # (Login Screen
                      7: # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
                      8: # 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer)
                      9: #
                     10: # 3/1/1 Gerd Kortemeyer)
                     11: #
                     12: # 3/1 Gerd Kortemeyer
                     13: #
                     14: package Apache::lonprintout;
                     15: 
                     16: use strict;
                     17: use Apache::Constants qw(:common);
1.2     ! sakharuk   18: use Apache::lonxml;
        !            19: use Apache::lonnet;
1.1       www        20: 
                     21: sub handler {
                     22:     my $r = shift;
                     23:     $r->content_type('text/html');
                     24:     $r->send_http_header;
                     25:     return OK if $r->header_only;
                     26: 
1.2     ! sakharuk   27: #--- my developmental space begin (Alex)
        !            28: #-- local menu
        !            29:     
        !            30: 
        !            31: 
        !            32: 
        !            33: #-- core
        !            34:     my $result = '';
        !            35:     my %mystyle;
        !            36: 
        !            37:     my $file=&Apache::lonnet::filelocation("",$ENV{'form.postdata'});
        !            38: 
        !            39:     my $filecontents=&Apache::lonnet::getfile($file);
        !            40: 
        !            41:     $result = &Apache::lonxml::xmlparse('tex',$filecontents,'',%mystyle);
        !            42:     
        !            43:     $r->print($result);
        !            44: 
        !            45:     return OK;
        !            46: 
        !            47: #--- my developmental space end (Alex)
        !            48: 
1.1       www        49: # --------------------------------------------------- Print login screen header
1.2     ! sakharuk   50: #    $r->print(<<ENDDOCUMENT);
        !            51: #<html>
        !            52: #<head>
        !            53: #<title>The LearningOnline Network with CAPA</title>
        !            54: #</head>
        !            55: #<body bgcolor="#FFFFFF">
        !            56: #<h1>Printout</h1>
        !            57: #<img src="/adm/lonKaputt/lonconstruct.gif">
        !            58: 
        !            59: #</body>
        !            60: #</html>
        !            61: #ENDDOCUMENT
        !            62: #    return OK;
1.1       www        63: } 
                     64: 
                     65: 1;
                     66: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>