--- loncom/interface/lonprintout.pm	2004/04/30 17:50:29	1.297
+++ loncom/interface/lonprintout.pm	2004/05/10 14:25:02	1.301
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.297 2004/04/30 17:50:29 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.301 2004/05/10 14:25:02 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -676,9 +676,7 @@ sub get_textwidth {
 sub unsupported {
     my $currentURL=shift;
     my $result.='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}Printout of this type of document is currently not supported: ';
-    if ($currentURL=~/\/(aboutme|syllabus|bulletinboard|smppg)$/) {
-	$result.='\textbf{'.$1.'}';
-    } elsif ($currentURL=~/\/ext\//) {
+    if ($currentURL=~/\/ext\//) {
 	$result.=' \strut \\\\ THIS IS EXTERNAL RESOURCE WITH URL \strut \\\\ '.$currentURL.' ';
     } else {
 	$result.=$currentURL;
@@ -876,11 +874,12 @@ ENDPART
 	    }
 	    if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\begin{document})/$1 \\fbox\{RANDOM SEED IS $rndseed\} /;}
 	    $result .= '\end{document}';   
-	} elsif ($currentURL=~/\/smppg$/) { 
+	} elsif ($currentURL=~/\/(smppg|syllabus|aboutme|bulletinboard)$/) { 
 		my %form;
 		$form{'grade_target'}='tex';
 		$form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
 		$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
+		if ($currentURL=~/\/syllabus$/) {$currentURL=~s/\/res//;}
 		my $texversion=&Apache::lonnet::ssi($currentURL,%form);
 		$result .= $texversion;
 	} else {
@@ -972,6 +971,20 @@ ENDPART
 		}
 		$result .= $texversion;
 		$flag_latex_header_remove = 'YES';   
+	    } elsif ($urlp=~/\/(smppg|syllabus|aboutme|bulletinboard)$/) { 
+		my %form;
+		$form{'grade_target'}='tex';
+		$form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
+		$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
+		if ($urlp=~/\/syllabus$/) {$urlp=~s/\/res//;}
+		my $texversion=&Apache::lonnet::ssi($urlp,%form);
+		if ($flag_latex_header_remove ne 'NO') {
+		    $texversion = &latex_header_footer_remove($texversion);
+		} else {
+		    $texversion =~ s/\\end{document}/\\vskip 0\.5mm\\noindent\\makebox\[\\textwidth\/\$number_of_columns\]\[b\]\{\\hrulefill\}/;
+		}
+		$result .= $texversion;
+		$flag_latex_header_remove = 'YES'; 
 	    } else {
 		$texversion=&unsupported($urlp);
 		if ($flag_latex_header_remove ne 'NO') {
@@ -1035,7 +1048,7 @@ ENDPART
 	 }
 	 my $flag_latex_header_remove = 'NO'; 
 	 my %moreenv = ('textwidth' => &get_textwidth($helper,$LaTeXwidth));
-	 my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$num_todo,'inline');
+	 my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$num_todo,'inline','75');
 	 my $seed=time+($$<<16)+($$);
 	 my @allcodes;
 	 if ($old_name) {
@@ -1043,6 +1056,7 @@ ENDPART
 	     @allcodes=split(',',$result{$old_name});
 	 } else {
 	     my %allcodes;
+	     srand($seed);
 	     for (my $i=0;$i<$num_todo;$i++) {
 		 $moreenv{'CODE'}=&get_CODE(\%allcodes,$i,$seed,'6');
 	     }
@@ -1244,7 +1258,6 @@ sub num_to_letters {
 sub get_CODE {
     my ($all_codes,$num,$seed,$size)=@_;
     my $max='1'.'0'x$size;
-    srand($seed);
     my $newcode;
     while(1) {
 	$newcode=sprintf("%06d",int(rand($max)));