--- loncom/interface/lonprintout.pm	2011/11/29 11:57:33	1.610
+++ loncom/interface/lonprintout.pm	2011/12/27 20:14:33	1.612
@@ -1,8 +1,7 @@
-
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.610 2011/11/29 11:57:33 foxr Exp $
+# $Id: lonprintout.pm,v 1.612 2011/12/27 20:14:33 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -41,6 +40,7 @@ use Apache::admannotations;
 use Apache::lonenc;
 use Apache::entities;
 use Apache::londefdef;
+# use Apache::structurelags;	# for language management.
 
 use File::Basename;
 
@@ -660,7 +660,29 @@ sub include_pdf {
 
 
 }
-
+##
+#  Collect the various \select_language{language_name}
+#  latex tags to build a \usepackage[lang-list]{babel} which will
+#  appear just prior to the \begin{document} at the front of the concatenated
+#  set of resources:
+# @param doc - The string of latex to search/replace.
+# @return string
+# @retval - the modified document stringt.
+#
+sub collect_languages {
+    my $doc = shift;
+    my %languages;
+    while ($doc =~ /\\selectlanguage{(\w+)}/mg) {
+	$languages{$1} = 1;	# allows us to request each language exactly once.
+    }
+    my @lang_list = (keys(%languages)); # List of unique languages
+    if (scalar @lang_list) {
+	my $babel_header = '\usepackage[' . join(',', @lang_list) .']{babel}'. "\n";
+	$doc =~ s/\\begin{document}/$babel_header\\begin{document}/;
+    }
+    return $doc;
+}
+#-------------------------------------------------------------------
 
 #
 #   ssi_with_retries- Does the server side include of a resource.
@@ -2878,7 +2900,7 @@ ENDPART
 	     ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes')) {
 	     $moreenv{'problem_split'}='yes';
 	 }
-	 my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1,'inline','75');
+	 my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,$#students+1);
 	 my $student_counter=-1;
 	 my $i = 0;
 	 my $last_section = (split(/:/,$students[0]))[2];
@@ -2993,7 +3015,7 @@ ENDPART
 	     $number_per_page=$num_todo > 0 ? $num_todo : 1;
 	 }
 	 my $flag_latex_header_remove = 'NO'; 
-	 my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$num_todo,'inline','75');
+	 my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,$num_todo);
 	 my $count=0;
 	 foreach my $code (sort(@allcodes)) {
 	     my $file_num=int($count/$number_per_page);
@@ -3122,6 +3144,11 @@ ENDPART
 
     $result = set_font_size($result);
 
+    # Insert any babel headers required.
+
+    $result       = &collect_languages($result);
+
+
 #-- writing .tex file in prtspool 
     my $temp_file;
     my $identifier = &Apache::loncommon::get_cgi_id();