[BACK]Return to lonprintout.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface
File:  [LON-CAPA] / loncom / interface / lonprintout.pm
Revision 1.2: download - view: text, annotated - select for diffs
Tue Aug 21 15:59:08 2001 UTC (22 years, 8 months ago) by sakharuk
Branches: MAIN
CVS tags: HEAD
modification for tex output (starting work)

# The LearningOnline Network
# Printout
#
# (Internal Server Error Handler
#
# (Login Screen
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer)
#
# 3/1/1 Gerd Kortemeyer)
#
# 3/1 Gerd Kortemeyer
#
package Apache::lonprintout;

use strict;
use Apache::Constants qw(:common);
use Apache::lonxml;
use Apache::lonnet;

sub handler {
    my $r = shift;
    $r->content_type('text/html');
    $r->send_http_header;
    return OK if $r->header_only;

#--- my developmental space begin (Alex)
#-- local menu
    



#-- core
    my $result = '';
    my %mystyle;

    my $file=&Apache::lonnet::filelocation("",$ENV{'form.postdata'});

    my $filecontents=&Apache::lonnet::getfile($file);

    $result = &Apache::lonxml::xmlparse('tex',$filecontents,'',%mystyle);
    
    $r->print($result);

    return OK;

#--- my developmental space end (Alex)

# --------------------------------------------------- Print login screen header
#    $r->print(<<ENDDOCUMENT);
#<html>
#<head>
#<title>The LearningOnline Network with CAPA</title>
#</head>
#<body bgcolor="#FFFFFF">
#<h1>Printout</h1>
#<img src="/adm/lonKaputt/lonconstruct.gif">

#</body>
#</html>
#ENDDOCUMENT
#    return OK;
} 

1;
__END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>