--- loncom/interface/lonprintout.pm	2011/12/21 21:25:40	1.611
+++ loncom/interface/lonprintout.pm	2012/04/04 21:04:56	1.614
@@ -1,8 +1,7 @@
-
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.611 2011/12/21 21:25:40 www Exp $
+# $Id: lonprintout.pm,v 1.614 2012/04/04 21:04:56 raeburn 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.
@@ -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();
@@ -3261,7 +3288,7 @@ sub print_resources {
 	$print_incomplete = 1;
     }
     if ($person eq 'anonymous') {
-	$namepostfix .="Name: ";
+	$namepostfix .=&mt('Name:')." ";
 	$fullname = "CODE - ".$moreenv->{'CODE'};
     }
 
@@ -3448,9 +3475,44 @@ sub print_resources {
 
 }
 
+sub printing_blocked {
+    my ($r,$blocktext) = @_;
+    my $title = &mt('Preparing Printout');
+    &Apache::lonhtmlcommon::clear_breadcrumbs();
+    &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/printout',
+                                            text=> $title});
+    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs($title);
+    &Apache::loncommon::content_type($r,'text/html');
+    &Apache::loncommon::no_cache($r);
+    $r->send_http_header;
+    $r->print(&Apache::loncommon::start_page('Preparing Printout').
+              $breadcrumbs.
+              $blocktext.
+              &Apache::loncommon::end_page());
+    return;
+}
+
 sub handler {
 
     my $r = shift;
+
+    if ($env{'request.course.id'}) {
+        my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+        my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+        my ($blocked,$blocktext) = 
+            &Apache::loncommon::blocking_status('printout',$cnum,$cdom);
+        if ($blocked) {
+            my $checkrole = "cm./$cdom/$cnum";
+            if ($env{'request.course.sec'} ne '') {
+                $checkrole .= "/$env{'request.course.sec'}";
+            }
+            unless ((&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) && 
+                    ($env{'request.role'} !~ m{^st\./$cdom/$cnum})) {
+                &printing_blocked($r,$blocktext);
+                return OK;
+            }
+        }
+    }
     
     &init_perm();
 
@@ -3477,7 +3539,7 @@ sub handler {
 
     &output_data($r,$helper,\%parmhash);
     return OK;
-} 
+}
 
 use Apache::lonhelper;
 
@@ -4901,7 +4963,5 @@ sub postprocess {
     }
 }
 
-
-
 __END__