[LON-CAPA-cvs] cvs: rat / lonpage.pm
sakharuk
lon-capa-cvs@mail.lon-capa.org
Mon, 16 Sep 2002 14:23:02 -0000
sakharuk Mon Sep 16 10:23:02 2002 EDT
Modified files:
/rat lonpage.pm
Log:
Can print pages: 1. with problems;
2. with html documents;
3. with another pages;
4. with mixture if 1.,2., and 3.
Current limitations (working to remove): 1. cannot print a long document or problems;
Index: rat/lonpage.pm
diff -u rat/lonpage.pm:1.45 rat/lonpage.pm:1.46
--- rat/lonpage.pm:1.45 Sun Sep 1 15:29:01 2002
+++ rat/lonpage.pm Mon Sep 16 10:23:02 2002
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Page Handler
#
-# $Id: lonpage.pm,v 1.45 2002/09/01 19:29:01 www Exp $
+# $Id: lonpage.pm,v 1.46 2002/09/16 14:23:02 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -239,6 +239,13 @@
}
}
my $output=Apache::lonnet::ssi($src,%posthash);
+ if ($target eq 'tex') {
+ $output =~ s/^([^&]+)\\begin{document}//;
+ $output =~ s/\\end{document}//;
+ $output = '\parbox{\minipagewidth}{ '.$output.' }';
+ #some additional cleanup necessary for LateX (due to limitations of table environment
+ $output =~ s/(\\vskip\s*\d+mm)\s*(\\\\)+/$1/g;
+ }
my $parser=HTML::TokeParser->new(\$output);
my $token;
my $thisdir=$src;