![]() ![]() | ![]() |
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__