--- loncom/interface/lonprintout.pm	2004/06/08 14:55:22	1.307
+++ loncom/interface/lonprintout.pm	2004/06/28 15:02:55	1.310
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.307 2004/06/08 14:55:22 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.310 2004/06/28 15:02:55 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -676,7 +676,7 @@ sub get_textwidth {
 sub unsupported {
     my ($currentURL,$mode)=@_;
     if ($mode ne '') {$mode='\\'.$mode}
-    my $result.='\documentclass[letterpaper]{article}'.$mode.'\usepackage{calc}\begin{document}Printout of this type of document is currently not supported: ';
+    my $result.= &print_latex_header($mode);
     if ($currentURL=~/\/ext\//) {
 	$result.=' \strut \\\\ THIS IS EXTERNAL RESOURCE WITH URL \strut \\\\ '.$currentURL.' ';
     } else {
@@ -769,7 +769,10 @@ ENDPART
 		$form{'grade_target'}='tex';
 		$form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
 		$form{'problem_split'}=$parmhash{'problem_stream_switch'};
+		$form{'suppress_tries'}=$parmhash{'suppress_tries'};
 		$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
+		$form{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'};
+		if ($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') {$form{'problem_split'}='yes';}
 		if ($helper->{'VARS'}->{'curseed'}) {
 		    $rndseed=$helper->{'VARS'}->{'curseed'};
 		}
@@ -834,6 +837,7 @@ ENDPART
 			$form{'grade_target'}='tex';
 			$form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
 			$form{'problem_split'}=$parmhash{'problem_stream_switch'};
+			$form{'suppress_tries'}=$parmhash{'suppress_tries'};
 			$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
 			$form{'rndseed'}=$rndseed;
 			$texversion=&Apache::lonnet::ssi($urlp,%form);
@@ -904,7 +908,10 @@ ENDPART
 	$form{'grade_target'}='tex';
 	$form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
 	$form{'problem_split'}=$parmhash{'problem_stream_switch'};
+	$form{'suppress_tries'}=$parmhash{'suppress_tries'};
 	$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
+	$form{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'};
+	if ($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') {$form{'problem_split'}='yes';}
 	my $flag_latex_header_remove = 'NO';
 	my $flag_page_in_sequence = 'NO';
 	my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
@@ -1021,6 +1028,8 @@ ENDPART
 	 my $flag_latex_header_remove = 'NO'; 
 	 my %moreenv;
 	 $moreenv{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
+	 $moreenv{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'};
+	 if ($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') {$moreenv{'problem_split'}='yes';}
 	 my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1);
 	 my $student_counter=-1;
 	 foreach my $person (@students) {
@@ -1845,6 +1854,15 @@ CHOOSE_FROM_ANY_SEQUENCE
 	    $paramHash->{CHOICES} = [
 				     ['No', 'no'],
 				     ['Yes', 'yes'] ];
+	    Apache::lonhelper::dropdown->new();
+	    addMessage("</td></tr>");
+	    addMessage("<tr><td align='right'>Print Discussions: </td><td>");
+	    $paramHash = Apache::lonhelper::getParamHash();
+	    $paramHash->{'variable'} = 'PRINT_DISCUSSIONS';   
+	    $helper->declareVar('PRINT_DISCUSSIONS');         
+	    $paramHash->{CHOICES} = [
+				     ['No', 'no'],
+				     ['Yes', 'yes'] ];
 	    Apache::lonhelper::dropdown->new();
 	    addMessage("</td></tr>");
 	}