![]() ![]() | ![]() |
modification for tex output (starting work)
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); 18: use Apache::lonxml; 19: use Apache::lonnet; 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: 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: 49: # --------------------------------------------------- Print login screen header 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; 63: } 64: 65: 1; 66: __END__