[LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm

[foxr]

foxr		Mon Nov 30 11:03:07 2009 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  BZ 6132 - Needed to only output headers once when printing from a sequence...
  well really need to restructure so that
  - Latex headers are output
  - Type of printing is determined and done with no headers per resource.
  Well needs much more than that to make lonprintou.pm comprehensible :-(
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.565 loncom/interface/lonprintout.pm:1.566
--- loncom/interface/lonprintout.pm:1.565	Tue Nov 17 11:32:23 2009
+++ loncom/interface/lonprintout.pm	Mon Nov 30 11:03:07 2009
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.565 2009/11/17 11:32:23 foxr Exp $
+# $Id: lonprintout.pm,v 1.566 2009/11/30 11:03:07 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2108,7 +2108,6 @@
 
 
 	    $currentURL=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;
-#	    $result .= &print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
 	    $result .= &print_construction_sequence($currentURL, $helper, %form,
 						    $LaTeXwidth);
 	    $result .= '\end{document}';  
@@ -2227,7 +2226,10 @@
 		&& $urlp=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) {
 		$resources_printed .= $urlp.':';
 		&Apache::lonxml::remember_problem_counter();
-		$texversion.=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});  # RF
+		if ($flag_latex_header_remove eq 'NO') {
+		    $texversion.=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});  # RF
+		    $flag_latex_header_remove = 'YES';
+		}
 		$texversion.=&ssi_with_retries($urlp, $ssi_retry_count, %form);
 		if ($urlp=~/\.page$/) {
 		    ($texversion,my $number_of_columns_page) = &page_cleanup($texversion);