[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;