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