--- loncom/interface/lonprintout.pm 2001/01/03 16:20:59 1.1 +++ loncom/interface/lonprintout.pm 2001/08/21 15:59:08 1.2 @@ -15,6 +15,8 @@ package Apache::lonprintout; use strict; use Apache::Constants qw(:common); +use Apache::lonxml; +use Apache::lonnet; sub handler { my $r = shift; @@ -22,19 +24,42 @@ sub handler { $r->send_http_header; return OK if $r->header_only; -# --------------------------------------------------- Print login screen header - $r->print(< - -The LearningOnline Network with CAPA - - -

Printout

- - - -ENDDOCUMENT +#--- 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;