# 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(< # #The LearningOnline Network with CAPA # # #

Printout

# # #ENDDOCUMENT # return OK; } 1; __END__