--- loncom/interface/lonprintout.pm	2009/11/16 11:13:24	1.564
+++ loncom/interface/lonprintout.pm	2009/11/30 11:03:07	1.566
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.564 2009/11/16 11:13:24 foxr Exp $
+# $Id: lonprintout.pm,v 1.566 2009/11/30 11:03:07 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -499,8 +499,11 @@ sub printf_style_subst {
 sub format_page_header {
     my ($width, $format, $assignment, $course, $student, $section) = @_;
 
-    
+
+
     $width = &recalcto_mm($width); # Get width in mm.
+    my $chars_per_line = int($width/1.6);   # Character/textline.
+
     #  Default format?
 
     if ($format eq '') {
@@ -514,9 +517,8 @@ sub format_page_header {
 	#   but only truncate the course.
 	# - Allow the assignment to be 2 lines (wrapped).
 	#
-	my $chars_per_line = $width/2; # Character/textline.
-	
 
+	
 
 	my $name_length    = int($chars_per_line *3 /4);
 	my $sec_length     = int($chars_per_line / 5);
@@ -552,7 +554,19 @@ sub format_page_header {
         my $testPrintout = '\\\\'.&mt('Construction Space').' \\\\'.&mt('Test-Printout ');
         $format =~ s/\\\\\s\\\\\s/$testPrintout/;
     }
-    
+    #
+    #  We're going to trust LaTeX to break lines appropriately, but
+    #  we'll truncate anything that's more than 3 lines worth of
+    # text.  This is also assuming (which will probably end badly)
+    # nobody's going to embed LaTeX control sequences in the title
+    # header or rather that those control sequences won't get broken
+    # by the stuff below.
+    #
+    my $total_length = 3*$chars_per_line;
+    if (length($format) > $total_length) {
+	$format = substr($format, 0, $total_length);
+    }
+
 
     return $format;
     
@@ -2094,7 +2108,6 @@ ENDPART
 
 
 	    $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}';  
@@ -2213,7 +2226,10 @@ ENDPART
 		&& $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);