--- loncom/interface/lonprintout.pm	2011/10/26 02:09:42	1.601
+++ loncom/interface/lonprintout.pm	2012/04/10 09:49:36	1.615
@@ -1,8 +1,7 @@
-
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.601 2011/10/26 02:09:42 www Exp $
+# $Id: lonprintout.pm,v 1.615 2012/04/10 09:49:36 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -28,6 +27,7 @@
 #
 package Apache::lonprintout;
 use strict;
+use POSIX;
 use Apache::Constants qw(:common :http);
 use Apache::lonxml;
 use Apache::lonnet;
@@ -41,6 +41,7 @@ use Apache::admannotations;
 use Apache::lonenc;
 use Apache::entities;
 use Apache::londefdef;
+# use Apache::structurelags;	# for language management.
 
 use File::Basename;
 
@@ -302,7 +303,6 @@ CHOOSE_RESOURCES
       </resource>
     </state>
 CHOOSE_RESOURCES
-
     return $result;
 }
 #
@@ -435,6 +435,46 @@ RESOURCE_SELECTOR
 
 #-----------------------------------------------------------------------
 
+##
+# Returns the innermost print start/print end dates for a resource.
+# This is done by looking at the start/end dates for its parts and choosing
+# the intersection of those dates.
+# 
+# @param res - lonnvamaps::resource object that represents the resource.
+#
+# @return (opendate, closedate)
+#
+# @note If open/close dates are not defined they will be retunred as undef
+# @note It is possible for there to be no overlap in which case -1,-1 
+#       will be returned.
+# @note The algorithm used is to take the latest open date and the earliest end date.
+#
+
+sub get_print_dates {
+    my $res = shift;
+    my $partsref = $res->parts();
+    my @parts   = @$partsref;
+    my $open_date;
+    my $close_date;
+
+    if (defined(@parts) && (scalar(@parts) > 0)) {
+	foreach my $part (@parts) {
+	    my $partopen  = $res->parmval('printstartdate', $part);
+	    my $partclose = $res->parmval('printenddate',  $part);
+	    
+	    $open_date  = POSIX::strftime('%D', localtime($partopen));
+	    $close_date = POSIX::strftime('%D', localtime($partclose));
+	    
+	    # TODO: Complete this function and use it to tailor the
+	    #       can't print current resource message.
+	    #
+	    
+	}
+    }
+
+    return ($open_date, $close_date);
+}
+
 # Determine if a resource is incomplete given the map:
 # Parameters:
 #   $username - Name of user for whom we are checking.
@@ -519,6 +559,7 @@ sub master_seq_to_person_seq {
 	#  Only process resources..that are not removed by randomout...
 	#  and are selected for printint as well.
 	#
+     
 	if (! exists $nonResourceItems{$curres} && ! $curres->randomout()) {
 	    my $symb = $curres->symb();
 	    if (exists $seq_hash{$symb}) {
@@ -634,9 +675,10 @@ sub include_pdf {
     # (unlikely).  If it did exist, add the pdf to the set of files/images that
     # need tob e converted for this print job:
 
-    $file =~ s|(.*)/res/|/home/httpd/html/res/|;
+    my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
+    $file =~ s{(.*)/res/}{$londocroot/res/};
 
-    open(FILE,">>/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.dat");
+    open(FILE,">>$Apache::lonnet::perlvar{'lonPrtDir'}/$env{'user.name'}_$env{'user.domain'}_printout.dat");
     print FILE ("$file\n");
     close (FILE);
 
@@ -659,7 +701,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.
@@ -1808,6 +1872,7 @@ sub map_laystyle {
 
 sub print_page_in_course {
     my ($helper, $rparmhash, $currentURL, $resources) = @_;
+
     my %parmhash       = %$rparmhash;
     my @page_resources = @$resources;
     my $mode = $helper->{'VARS'}->{'LATEX_TYPE'};
@@ -1864,8 +1929,10 @@ sub print_page_in_course {
 	}
 	# these resources go through the XML transformer:
 
-	elsif ($resource_src =~ /\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm)$/)  {		
+	elsif ($resource_src =~ /\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm)$/)  {
+
 	    my $urlp = &Apache::lonnet::clutter($resource_src);
+
 	    my %form;
 	    my %moreenv;
 
@@ -1927,10 +1994,9 @@ sub print_page_in_course {
 			$texversion.='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';
 			$texversion.=&path_to_problem($urlp,$LaTeXwidth);
 		    } else {
-			$texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm ';
-			my $URLpath=$urlp;
-			#$URLpath=~s/~([^\/]+)/public_html\/$1\/$1/;
-			$texversion.=&path_to_problem($URLpath,$LaTeXwidth);
+			$texversion.='\vskip 0 mm \noindent\textbf{'.
+                        &mt("Printing from Construction Space: No Title").'}\vskip 0 mm ';
+			$texversion.=&path_to_problem($urlp,$LaTeXwidth);
 		    }
 		    $texversion.='\vskip 1 mm '.$answer.'\end{document}';
 		}
@@ -2049,7 +2115,7 @@ sub recently_generated {
 #    A reference to a page break hash.
 #
 #
-use Data::Dumper;
+# use Data::Dumper;
 # sub dump_helper_vars {
 #    my ($helper) = @_;
 #    my $helpervars = Dumper($helper->{'VARS'});
@@ -2198,18 +2264,19 @@ sub set_form_extraspace {
 sub print_construction_sequence {
     my ($currentURL, $helper, %form, $LaTeXwidth) = @_;
 
-
     my $result;
     my $rndseed=time;
     if ($helper->{'VARS'}->{'curseed'}) {
 	$rndseed=$helper->{'VARS'}->{'curseed'};
     }
-    my $errtext=&LONCAPA::map::mapread($currentURL);
+    my $errtext=&LONCAPA::map::mapread(&Apache::lonnet::filelocation('',$currentURL));
+
     # 
     #  These make this all support recursing for subsequences.
     #
     my @order    = @LONCAPA::map::order;
     my @resources = @LONCAPA::map::resources; 
+
     for (my $member=0;$member<=$#order;$member++) {
 	$resources[$order[$member]]=~/^([^:]*):([^:]*):/;
 	my $urlp=$2;
@@ -2225,7 +2292,7 @@ sub print_construction_sequence {
 	    }
 	    if((($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
 		($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) && 
-	       ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library|page)$/)) {
+	       ($urlp=~/$LONCAPA::assess_page_re/)) {
 		#  Don't permanently modify %$form...
 		my %answerform = %form;
 		$answerform{'grade_target'}='answer';
@@ -2269,16 +2336,7 @@ sub print_construction_sequence {
 	    # IF sequence, recurse:
 	    
 	    if ($urlp =~ /\.sequence$/) {
-#
-# FIXME: this does not work for co-authors
-		my $sequence_url = $urlp;
-		my $domain       = $env{'user.domain'};	# Constr. space only on local
-		my $user         = $env{'user.name'};
-# FIXME: the substitutions below do not seem to make sense
-		$sequence_url    =~ s/^\/res\/$domain/\/home/;
-		$sequence_url    =~ s/^(\/home\/$user)/$1\/public_html/;
-#		$sequence_url    =~ s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;
-		$result .= &print_construction_sequence($sequence_url, 
+		$result .= &print_construction_sequence($urlp, 
 							$helper, %form, 
 							$LaTeXwidth);
 	    }
@@ -2450,11 +2508,11 @@ ENDPART
 	} else {
 
             #prints resource from the construction space
-	    $currentURL='/'.$helper->{'VARS'}->{'filename'};
-	    if ($currentURL=~/([^?]+)/) {$currentURL=$1;}
+	    $currentURL=$helper->{'VARS'}->{'filename'};
 	    $cleanURL=$currentURL;
 	}
 	$selectionmade = 1;
+      
 	if ($cleanURL!~m|^/adm/|
 	    && $cleanURL=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm)$/) {
 	    my $rndseed=time;
@@ -2494,6 +2552,7 @@ ENDPART
 
 	    if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
 	       ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
+
 		$form{'problem_split'}=$parmhash{'problem_stream_switch'};
 		$form{'grade_target'}='answer';
 		$form{'answer_output_mode'}='tex';
@@ -2515,11 +2574,10 @@ ENDPART
 			$texversion.='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';
 			$texversion.=&path_to_problem($cleanURL,$LaTeXwidth);
 		    } else {
-			$texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm ';
-			my $URLpath=$cleanURL;
-# FIXME: unclear URL path, not sure when this would occur
-			$URLpath=~s/~([^\/]+)/public_html\/$1\/$1/;
-			$texversion.=&path_to_problem($URLpath,$LaTeXwidth);
+			$texversion.='\vskip 0 mm \noindent\textbf{'.
+                        &mt("Printing from Construction Space: No Title").'}\vskip 0 mm ';
+
+			$texversion.=&path_to_problem($cleanURL,$LaTeXwidth);
 		    }
 		    $texversion.='\vskip 1 mm '.$answer.'\end{document}';
 		}
@@ -2551,10 +2609,6 @@ ENDPART
 	    }
         } elsif ($cleanURL!~m|^/adm/|
 		 && $currentURL=~/\.(sequence|page)$/ && $helper->{'VARS'}->{'construction'} eq '1') {
-            #printing content of sequence from the construction space	
-
-# FIXME: unclear how this would work
-	    $currentURL=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;
 	    $result .= &print_construction_sequence($currentURL, $helper, %form,
 						    $LaTeXwidth);
 	    $result .= '\end{document}';  
@@ -2716,7 +2770,7 @@ ENDPART
                             $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
                         }
 		    } else {
-			if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library|page)$/) {
+			if ($urlp=~/$LONCAPA::assess_page_re/) {
 			    $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
 #			    $texversion =~ s/\\begin{document}//; # FIXME
 			    my $title = &Apache::lonnet::gettitle($master_seq[$i]);
@@ -2887,7 +2941,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];
@@ -3002,7 +3056,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);
@@ -3044,11 +3098,7 @@ ENDPART
 	    if ($urlp=~/\//) {
 		$form{'problem_split'}=$parmhash{'problem_stream_switch'};
 		$form{'rndseed'}=$rndseed;
-		if ($urlp =~ m|/home/([^/]+)/public_html|) {
-		    $urlp =~ s|/home/([^/]*)/public_html|/~$1|;
-		} else {
-		    $urlp =~ s|^$Apache::lonnet::perlvar{'lonDocRoot'}||;
-		}
+		$urlp =~ s|^$Apache::lonnet::perlvar{'lonDocRoot'}||;
 		$resources_printed .= $urlp.':';
 		my $texversion=&ssi_with_retries($urlp, $ssi_retry_count, %form);
 		if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
@@ -3069,19 +3119,16 @@ ENDPART
 			    $texversion.='\vskip 0 mm \noindent ';
 			    $texversion.=&path_to_problem ($urlp,$LaTeXwidth);
 			} else {
-			    $texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm ';
-			    my $URLpath=$urlp;
-			    $URLpath=~s/~([^\/]+)/public_html\/$1\/$1/;
-			    $texversion.=&path_to_problem ($URLpath,$LaTeXwidth);
+			    $texversion.='\vskip 0 mm \noindent\textbf{'.
+                                         &mt("Printing from Construction Space: No Title").'}\vskip 0 mm ';
+			    $texversion.=&path_to_problem ($urlp,$LaTeXwidth);
 			}
 			$texversion.='\vskip 1 mm '.$answer.'\end{document}';
 		    }
 		}
                 #this chunk is responsible for printing the path to problem
 
-		my $newurlp=$urlp;
-		if ($newurlp=~/~/) {$newurlp=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;}
-		$newurlp=&path_to_problem($newurlp,$LaTeXwidth);
+		my $newurlp=&path_to_problem($urlp,$LaTeXwidth);
 		$texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 $newurlp/;
 		if ($flag_latex_header_remove ne 'NO') {
 		    $texversion = &latex_header_footer_remove($texversion);
@@ -3130,12 +3177,7 @@ ENDPART
 
     my $URLback=''; #link to original document
     if ($helper->{'VARS'}->{'construction'} eq '1') {
-	#prints resource from the construction space
-	$URLback='/'.$helper->{'VARS'}->{'filename'};
-	if ($URLback=~/([^?]+)/) {
-	    $URLback=$1;
-	    $URLback=~s|^/~|/priv/|;
-	}
+	$URLback=$helper->{'VARS'}->{'filename'};
     }
     #
     # Final adjustment of the font size:
@@ -3143,6 +3185,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();
@@ -3282,7 +3329,7 @@ sub print_resources {
 	$print_incomplete = 1;
     }
     if ($person eq 'anonymous') {
-	$namepostfix .="Name: ";
+	$namepostfix .=&mt('Name:')." ";
 	$fullname = "CODE - ".$moreenv->{'CODE'};
     }
 
@@ -3318,7 +3365,7 @@ sub print_resources {
 	$current_output .= &get_extra_vspaces($helper, $curresline);
 	$i++;
 	if ( !($type eq 'problems' && 
-	       ($curresline!~ m/\.(problem|exam|quiz|assess|survey|form|library|page)$/)) ) {
+	       ($curresline!~ m/$LONCAPA::assess_page_re/)) ) {
 	    my ($map,$id,$res_url) = &Apache::lonnet::decode_symb($curresline);
 	    if ($print_incomplete && !&incomplete($username, $userdomain, $res_url)) {
 		next;
@@ -3469,14 +3516,47 @@ 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();
 
-
-
     my $helper = printHelper($r);
     if (!ref($helper)) {
 	return $helper;
@@ -3500,7 +3580,7 @@ sub handler {
 
     &output_data($r,$helper,\%parmhash);
     return OK;
-} 
+}
 
 use Apache::lonhelper;
 
@@ -3545,12 +3625,7 @@ sub get_randomly_ordered_warning {
 	    my $func = 
 	        sub { return ($_[0]->is_map() && $_[0]->randomorder); };
 	    my @matches = $navmap->retrieveResources($res, $func,1,1,1);
-	    if (@matches) {
-	        $message = "Some of the items below are in folders set to be randomly ordered. However, when printing the contents of these folders, they will be printed in the original order for all students, not the randomized order.";
-	    }
-        }
-        if ($message) {
-	    return '<message type="warning">'.$message.'</message>';
+
         }
     } else {
         $message = "Retrieval of information about ordering of resources failed."; 
@@ -3640,8 +3715,8 @@ sub printHelper {
     }
 
     # Detect whether we're coming from construction space
-    if ($env{'form.postdata'}=~/^(?:http:\/\/[^\/]+\/|\/|)\~([^\/]+)\/(.*)$/) {
-        $helper->{VARS}->{'filename'} = "~$1/$2";
+    if ($env{'form.postdata'}=~m{^/priv}) {
+        $helper->{VARS}->{'filename'} = $env{'form.postdata'};
         $helper->{VARS}->{'construction'} = 1;
     } else {
         if ($env{'form.postdata'}) {
@@ -3679,6 +3754,8 @@ sub printHelper {
     my $is_published=0;		# True when printing from resource space.
     my $res_printable = 1;	# By default the current resource is printable.    
     my $userCanPrint = ($perm{'pav'} || $perm{'pfo'});
+    my $res_printstartdate;
+    my $res_printenddate;
 
     # Get the resource name from construction space
     if ($helper->{VARS}->{'construction'}) {
@@ -3695,7 +3772,8 @@ sub printHelper {
 		&Apache::lonenc::check_encrypt(&Apache::lonnet::clutter($url));
 	    my $navmap = Apache::lonnavmaps::navmap->new();
 	    my $res   = $navmap->getBySymb($symb);
-	    $res_printable  = $res->resprintable() || $userCanPrint; #printability in course context
+	    $res_printable  = $res->resprintable() | $userCanPrint; #printability in course context
+	    ($res_printstartdate, $res_printenddate) = 	&get_print_dates($res);
 	} else {
 	    # Resource space.
 
@@ -3744,8 +3822,7 @@ sub printHelper {
 
     if ($resourceTitle && $res_printable) {
         push @{$printChoices}, ["<b><i>$resourceTitle</i></b> (".&mt('the resource you just saw on the screen').")", 'current_document', 'PAGESIZE'];
-    }
-    
+    } 
 
     # Useful filter strings
 
@@ -4287,6 +4364,14 @@ CHOOSE_FROM_ANY_SEQUENCE
 
     # Generate the first state, to select which resources get printed.
     Apache::lonhelper::state->new("START", "Select Printing Options:");
+    if (!$res_printable) {
+	$paramHash = Apache::lonhelper::getParamHash();
+	$paramHash->{MESSAGE_TEXT} = 
+	    &mt('<p><b>Printing for current resource is only possible between [_1] and [_1]</b></p>',
+	    $res_printstartdate, $res_printenddate);
+	Apache::lonhelper::message->new();
+    }
+    $paramHash = Apache::lonhelper::getParamHash();
     $paramHash = Apache::lonhelper::getParamHash();
     $paramHash->{MESSAGE_TEXT} = "";
     Apache::lonhelper::message->new();
@@ -4929,7 +5014,5 @@ sub postprocess {
     }
 }
 
-
-
 __END__